I do this with VBA. Some of our printers can duplex and some can't. Example extracted from my procedure:
Code:
'open report in preview mode because is only way to change bin and/or printer destinations without changing report saved setup
strPrinter = Application.Printer.DeviceName
strReport = "report name here"
intView = MsgBox("View the report before printing?", vbApplicationModal + vbQuestion + vbYesNoCancel + vbDefaultButton2, "Reports")
If intView <> vbCancel Then
DoCmd.OpenReport strReport, acViewPreview, , "Submit.LabNum='" & strLabNum & "'", acWindowNormal
If strPrinter Like "*Konica*" Then Reports(strReport).Printer.Duplex = acPRDPSimplex
Reports(strReport).Printer.PaperBin = acPRBNAuto
If strPrinter Like "*Konica*" Then
'Set the report destination paper bin to Tray 2 to print on yellow paper
Reports(strReport).Printer.PaperBin = acPRBNLower
End If
If strPrinter Like "*Konica*" Then
Reports(strReport).Printer.Duplex = acPRDPHorizontal
End If
If intView = vbNo Then DoCmd.PrintOut acPages, 1, IIf(strPrinter Like "*Konica*", 2, 1)
If strPrinter Like "*Konica*" Then Reports(strReport).Printer.Duplex = acPRDPSimplex
Reports(strReport).Printer.PaperBin = acPRBNAuto
If intView = vbNo And Not strPrinter Like "*Konica*" Then
If Not strPrinter Like "*Konica*" Then MsgBox "Add paper or turn sheet over to print on reverse then click OK.", vbApplicationModal, "Print"
DoCmd.PrintOut acPages, 2, 2, , IIf(strPrinter Like "*Konica*", 1, 2)
End If
If intView = vbNo Then DoCmd.Close acReport, strReport, acSaveNo
End If