主题：如何在打印前打开打印机窗口

 我的打印按钮代码为:

        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