Selecting Paper Trays.

[BobM]

I am working with a HP4650HDN printer using Access from Office XP
Professional to create reports. I can select the duplex option but appear
unable to select anything other than the default paper tray. I have the
latest driver from HP and all of the latest updates for WinXP and Office and
am using the following code. Has anyone any suggestions on what is going
wrong.

DoCmd.OpenReport "SampleReport", acViewPreviewDim devMode As PrtDevMode
Dim prtNew As Printer
Set prtNew = Reports("SampleReport").Printer
prtNew.Duplex = acPRDPHorizontal
Select Case Me.ComboPrinterBin
Case "Auto"
prtNew.PaperBin = acPRBNAuto
Case "Cassette"
prtNew.PaperBin = acPRBNCassette
Case "Envelope"
prtNew.PaperBin = acPRBNEnvelope
Case "EnvManual"
prtNew.PaperBin = acPRBNEnvManual
Case "FormSource"
prtNew.PaperBin = acPRBNFormSource
Case "LargeCapacity"
prtNew.PaperBin = acPRBNLargeCapacity
Case "LargeFmt"
prtNew.PaperBin = acPRBNLargeFmt
Case "Lower"
prtNew.PaperBin = acPRBNLower
Case "Manual"
prtNew.PaperBin = acPRBNManual
Case "Middle"
prtNew.PaperBin = acPRBNMiddle
Case "SmallFmt"
prtNew.PaperBin = acPRBNSmallFmt
Case "Tractor"
prtNew.PaperBin = acPRBNTractor
Case "Upper"
prtNew.PaperBin = acPRBNUpper
End Select

DoCmd.PrintOut acPrintAll, , , acHigh, TextNoForms, False
DoCmd.Close acReport, "DuplexBlankMandate"

 

[BobM]

The code should have been

DoCmd.OpenReport "SampleReport", acViewPreview
Dim prtNew As Printer
Set prtNew = Reports("SampleReport").Printer
prtNew.Duplex = acPRDPHorizontal
Select Case Me.ComboPrinterBin
Case "Auto"
prtNew.PaperBin = acPRBNAuto
Case "Cassette"
prtNew.PaperBin = acPRBNCassette
Case "Envelope"
prtNew.PaperBin = acPRBNEnvelope
Case "EnvManual"
prtNew.PaperBin = acPRBNEnvManual
Case "FormSource"
prtNew.PaperBin = acPRBNFormSource
Case "LargeCapacity"
prtNew.PaperBin = acPRBNLargeCapacity
Case "LargeFmt"
prtNew.PaperBin = acPRBNLargeFmt
Case "Lower"
prtNew.PaperBin = acPRBNLower
Case "Manual"
prtNew.PaperBin = acPRBNManual
Case "Middle"
prtNew.PaperBin = acPRBNMiddle
Case "SmallFmt"
prtNew.PaperBin = acPRBNSmallFmt
Case "Tractor"
prtNew.PaperBin = acPRBNTractor
Case "Upper"
prtNew.PaperBin = acPRBNUpper
End Select

DoCmd.PrintOut acPrintAll, , , acHigh, TextNoForms, False
DoCmd.Close acReport, "SampleReport"