- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 如何在打印前打开打印机窗口 (http://www.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的。
我大概看了一下，似乎只有打印和打印预览两个方法。
-- 发布时间：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
--
谢谢楼主!
-- 发布时间：2018/7/2 20:19:00
--
如何把选择的打印机 赋值给 Proc
-- 发布时间：2018/7/2 20:24:00
--
对话框设置后就可以用，不需要赋值