以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  如何在打印前打开打印机窗口  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=10019)

--  作者:红叶
--  发布时间:2011/5/18 16:06: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" \'指定动作

        Proc.Start()

按下按钮将会直接打印了

我想要在打印前先进行预缆后,然后打开打印机的对话窗口,因为我需要选择不同的打印机来打印

 


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

--  作者:狐狸爸爸
--  发布时间:2011/5/18 16:08:00
--  

学这个:

 

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

 


--  作者:红叶
--  发布时间:2011/5/18 16:21:00
--  

还是没研究明白,狐爸给解决一下嘛,给个代码实例嘛


--  作者:狐狸爸爸
--  发布时间:2011/5/18 16:27:00
--  

其实我也不会vba的。

我大概看了一下,似乎只有打印和打印预览两个方法。


--  作者:blackzhu
--  发布时间:2011/5/19 8:34: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()



--  作者:红叶
--  发布时间:2011/5/19 9:22:00
--  
谢谢楼主!
--  作者:dj68301367
--  发布时间:2018/7/2 20:19:00
--  
如何把选择的打印机 赋值给 Proc
--  作者:有点蓝
--  发布时间:2018/7/2 20:24:00
--  
对话框设置后就可以用,不需要赋值