Private Sub Command1_Click()
    On Error GoTo DontPrint
    CommonDialog1.CancelError = True
    CommonDialog1.ShowPrinter

    Form1.PrintForm
    Exit Sub
    
DontPrint:
    ' Cancel Button was chosen so exit printing ...
    MsgBox "Printing Cancelled by User.", vbOKOnly + vbInformation
End Sub