Function PrintButton()
'This is for the menu, to allow the user to choose
'print options.
On Error GoTo HandleErr
DoCmd.RunCommand acCmdPrint
Exit_Sub:
Exit Function
HandleErr:
Select Case Err.Number
Case 2501 'User cancelled
Err.Clear
Resume Exit_Sub
Case Else
MsgBox Err.Description
End Select
End Function