Posted by Grant Foraker on September 27, 2007 at 13:33:54:
Having problems with a new HP P3005 printer. It has a manual tray and two 500 page trays. They're labeled 1-3 on the printer. Customer wants white paper in #2 and yellow in #3.
I've been coding this as (SetPrinterInfo, 8, 2) to select tray 2 on printers like HP 2100's. 8 = DMDefaultSource and 2 = DMBIN. It's not working on the P3005. I looked at some MS documentaion and it makes it look like I should be changing the DMDefaultSource setting and not the DMBIN setting. It doesn't show DMBIN at all.
Bins, trays, and drawers. Confusing.
-----------------------------------------------------------
DoCmd.SetWarnings False
' Set Paper Tray for page 1
DoCmd.OpenReport rptName, acDesign
Set Rpt = Reports(rptName)
DevModeExtra = Rpt.PrtDevMode
DevString.RGB = DevModeExtra
LSet dm = DevString
dm.dmDefaultSource = 2 '1 = Upper Tray, 2 = Lower Tray, 5 = _
Envelope Feeder
LSet DevString = dm
Mid$(DevModeExtra, 1, 68) = DevString.RGB
Rpt.PrtDevMode = DevModeExtra
DoCmd.Save acReport, Rpt.Name
DoCmd.SelectObject acReport, Rpt.Name, True
DoCmd.PrintOut acPages, 1, 1
' Set Paper Tray for page 2
DoCmd.OpenReport rptName, acDesign
Set Rpt = Reports(rptName)
DevModeExtra = Rpt.PrtDevMode
DevString.RGB = DevModeExtra
LSet dm = DevString
dm.dmDefaultSource = 1 '1 = Upper Tray, 2 = Lower Tray, 5 = _
Envelope Feeder
LSet DevString = dm
Mid$(DevModeExtra, 1, 68) = DevString.RGB
Rpt.PrtDevMode = DevModeExtra
DoCmd.Save acReport, Rpt.Name
DoCmd.SelectObject acReport, Rpt.Name, True
DoCmd.PrintOut acPages, 2, 2
DoCmd.SetWarnings True