Private Sub CmdPrint_Click()
Dim TempRpt As TempVars
Dim TempNo As TempVars
TempVars!TempRpt = Me.ID.Value
TempVars!TempNo = Me.RMANo.Value
On Error GoTo ErrHand
'Set Application.Printer = Printers("Samsung X4300 Series")
'Application.Printer.PaperBin = acPRBNLower
DoCmd.OpenReport ReportName:="Rpt_RMA", View:=acViewPreview, WindowMode:=acHidden
DoCmd.RunCommand acCmdPrint
'Set Application.Printer = Nothing
On Error GoTo 0
DoCmd.Close acReport, "Rpt_RMA"
Exit Sub
ErrHand:
strSEM = dfSEM(Err.Number, Err.Description, "Frm_Repair_Main", "CmdPrint_Click")
MsgBox strSEM, vbInformation, "Technical Support and Repairs Database"
Err.Clear
Exit Sub
End Sub