以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  请教代码里如何指定打印机？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=84330)
--  作者：李睿涵
--  发布时间：2016/4/28 15:01:00
--  请教代码里如何指定打印机？

电脑上安装了多台打印机 默认是打A4纸的 还有台打四联纸的

想在出库单模块的打印按钮里直接打到四联纸上

下面是现在的代码

 

        Dim Book As New XLS.Book(ProjectPath & "Attachments\\客户订单.xls")
        Dim fl As String = ProjectPath  & "Reports\\客户订单.xls"
        Book.Build() \'生成细节区
        Book.Save(fl) \'保存工作簿
        Dim Proc As New Process \'打开工作簿
        Proc.File = fl
        proc.verb = "print"
        Proc.Start()

 

请教要打到不是默认的四联纸打印机（名称是："四联打印"），该如何加代码？
--  作者：李睿涵
--  发布时间：2016/4/28 16:50:00
--  
请指导。
--  作者：大红袍
--  发布时间：2016/4/28 17:29:00
--  

这样打印

 

Dim Book As New XLS.Book(ProjectPath & "Attachments\\客户订单.xls")
Dim fl As String = ProjectPath  & "Reports\\客户订单.xls"
Book.Build() \'生成细节区
Book.Save(fl) \'保存工作簿

Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(fl)
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)

Ws.PrintOut(Preview:=True,ActivePrinter:="四联打印")

 

http://www.foxtable.com/help/topics/2121.htm