以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  打印指定打印机无效  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=10419)

--  作者:红叶
--  发布时间:2011/6/4 13:41:00
--  打印指定打印机无效

我的代码为

        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" \'指定动作
        CurrentTable.PrintSetting() \'打开打印机设置对话框
        Proc.Start()

 

 

我的默认打印机为Canon LBP 2900,由CurrentTable.PrintSetting() 打开打印机设置对话框,选择非默认的打印机Epson LQ-630K ESC/P2打印时,却打印用的还是默认的打印机Canon LBP 2900,并不是我选择的打印机Epson LQ-630K ESC/P2?而且按取消打印,却无效,还是继续打印了?

默认打印机


图片点击可在新窗口打开查看此主题相关图片如下:qq截图20110604133518.png
图片点击可在新窗口打开查看

选择打印机


 


图片点击可在新窗口打开查看此主题相关图片如下:qq截图20110604133549.png
图片点击可在新窗口打开查看

--  作者:blackzhu
--  发布时间:2011/6/4 15:12:00
--  
我估计这个选项对于EXCEL打印没有什么作用,用VBA处理直接指定打印机.
--  作者:红叶
--  发布时间:2011/6/4 15:51:00
--  
能给我一个代码吗?我不会
--  作者:blackzhu
--  发布时间:2011/6/4 15:54:00
--  
http://www.datasoft.com.cn/dispbbs.asp?BoardID=2&ID=10052&replyID=&skin=1