标题：打印指定打印机无效

我的代码为

        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

我估计这个选项对于EXCEL打印没有什么作用,用VBA处理直接指定打印机.

能给我一个代码吗？我不会

http://www.datasoft.com.cn/dispbbs.asp?BoardID=2&ID=10052&replyID=&skin=1