vb 怎么实现不弹出ShowPrinter对话框 直接打印

vb 如何实现不弹出ShowPrinter对话框 直接打印
我现在的情况是点击“打印”按钮，弹出打印设置对话框，点击对话框上的“打印”打印机执行打印任务。我想实现的是点击“打印”后，不弹出打印对话框直接打印，免得误修改设置。程序如下：

VB code

Private Sub Commandprint_Click()frmmeasure.RefreshCommonDialog1.CancelError = True '如果点击“取消”，则不打印On Error GoTo Cancel '点“取消”跳到cancel    CommonDialog1.ShowPrinterPrinter.FontSize = 14Printer.PrintPrinter.Print。。。

请教各位大侠，如何实现？

[解决办法]
Private Sub Commandprint_Click()
Printer.FontName = "楷体_GB2312"

Printer.FontSize = 12

Printer.Print Text1.Text

Printer.EndDoc

End Sub

查看更多 下一篇