Option Compare Database

Option Explicit On

Private Sub BtnPrintForm_Click()

    '-------------< BtnPrintForm_Click() >------------

    'Print with PrinterDialog but no Preview or Form

    DoCmd.SelectObject acForm, Form_frmPrint.Name, True

    On Error Resume Next    'if user break

    RunCommand acCmdPrint

    '-------------</ BtnPrintForm_Click() >------------

End Sub