UC知道vbCommonDialog1.ShowPrinter
来源：百度知道 编辑：UC知道 时间：2024/05/24 20:48:23
我用CommonDialog1.ShowPrinter来控制打印，如何判定是否点了取消？
CommonDialog1.ShowPrinter
下面用printer代码写了打印程序
如果点取消，会继续运行下面的代码，也就是还是会打印
CommonDialog1.ShowPrinter
下面用printer代码写了打印程序
如果点取消，会继续运行下面的代码，也就是还是会打印
shouprinter 本身就可以
你用masn里的代码就可以了.
Private Sub Command1_Click()
Dim BeginPage, EndPage, NumCopies, i
' 设置“取消”为 True
CommonDialog1.CancelError = True
On Error GoTo ErrHandler
' 显示“打印”对话框
CommonDialog1.ShowPrinter
' 从该对话框取得选定的值
BeginPage = CommonDialog1.FromPage
EndPage = CommonDialog1.ToPage
NumCopies = CommonDialog1.Copies
For i = 1 To NumCopies
' 此处放置将数据发送到打印机的代码
printer.print 数据
printer.enddoc '开始打印
Next i
Exit Sub
ErrHandler：
' 用户按了“取消”按钮
Exit Sub
End Sub