这个代码是在报表事件的afterbulid事件中
Dim Book As New XLS.Book '定义一个Excel工作簿
book=e.Book
Dim Sheet As XLS.Sheet = Book.Sheets(0) '引用工作簿的第一个工作表
'
'Dim cps As new CustomPaperSize.CustomPaperSize()
'cps.SetPrintForm(DefaultPrinter,"送货单",100*21.75, 100*13.9)
'cps.SetPrintForm(DefaultPrinter,"加工单",100*21.75, 100*27.95)
Dim prtdoc As new Printing.PrintDocument()
prtdoc.PrinterSettings.PrinterName = DefaultPrinter
Select Case e.Book.TempLate
Case "对账单"
With Sheet.PrintSetting
''页眉左边为日期,中间为时间,右边为表名
'.Header = "&L&D &C&T &R&A"
'在页脚右边打印页号和总页数
.Footer = "&R第&P页,总&N页"
End With
Case "送货单","送货单无金额"
For Each ps As System.Drawing.Printing.PaperSize In prtdoc.PrinterSettings.PaperSizes '生成打印机的纸张下拉列表
If ps.PaperName = "送货单" Then
Sheet.PrintSetting.PaperKind = ps.RawKind
End If
Next
Case "加工单","加工单含成本"
For Each ps As System.Drawing.Printing.PaperSize In prtdoc.PrinterSettings.PaperSizes '生成打印机的纸张下拉列表
If ps.PaperName = "加工单" Then
Sheet.PrintSetting.PaperKind = ps.RawKind
End If
Next
End Select
[此贴子已经被作者于2016/7/26 10:55:46编辑过]
加好友 
发短信
Post By：2016/7/25 16:06:00 [显示全部帖子]
此主题相关图片如下：123.png
