我在打印机 设置了
新纸张 定义名称为 "MVP"
纸张大小： 宽度 24.5cm 高度 9.3cm
请问如何在下边代码里面 插入这些内容？
我搜了 有点甜老师的 关于 该方面的设置内容 但看不懂！！
有老师能帮忙直接改下以下代码吗，谢谢了。
If Tables("OIL订单总表").Current IsNot Nothing Then
Dim dr As DataRow = DataTables("OIL库存表").Find("社内品番 = '" & Tables("OIL订单总表.OIL订单明细").Rows(0)("社内品番") & "'")
Dim str As String = dr("客户名称")
Dim Book As New XLS.Book(ProjectPath & "Attachments\MVP打印.xls")
Dim fl As String = ProjectPath & "Reports\MVP打印.xls"
Book.Build() '生成细节区
Book.Save(fl) '保存工作簿
Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook
wb = App.WorkBooks.Open(fl)
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
Ws.PrintOut(ActivePrinter:="EPSON LQ-1600K IIIH ESC/P2")
Ws.PageSetup.PaperSize = 164
wb.close
App.Quit
End If
加好友 
发短信
Post By：2014/11/24 11:15:00 [只看该作者]
