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 SubHope this helps