Option Compare Database
Option Explicit
'------------------------------------------------------------
' cmdPrintRecord_Click
'
'------------------------------------------------------------
Private Sub cmdPrintRecord_Click()
On Error GoTo cmdPrintRecord_Click_Err
DoCmd.RunCommand acCmdSelectRecord
DoCmd.RunCommand acCmdPrintSelection
cmdPrintRecord_Click_Exit:
Exit Sub
cmdPrintRecord_Click_Err:
MsgBox Error$
Resume cmdPrintRecord_Click_Exit
End Sub