摘自msdn 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 ' 此处放置将数据发送到打印机的代码 Next i Exit Sub ErrHandler: ' 用户按了“取消”按钮 Exit Sub End Sub
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
' 此处放置将数据发送到打印机的代码
Next i
Exit Sub
ErrHandler:
' 用户按了“取消”按钮
Exit Sub
End Sub