B
Brian Scheele
I have a report that needs to pull paper from a specific printer using
specific bin and output it to a specific tray.
I could set all of this using the page setup and choosing a specific
printer, but I need my users to be able to choose a backup printer for this
document in case the default copier goes down.
DoCmd.OpenReport "Bill of Lading", View:=acViewPreview,
windowmode:=acHidden
Set rpt = Reports("Bill of Lading")
Set rpt.Printer = Application.Printers("\\Clark66\Main Office BOL
Printer")
With Reports("Bill of Lading")
.PaperBin = acPRBNUpper 'Here I am choosing what paper
source I am using
.OutputTray = acLeftOutputTray 'Pseudocode here since this is
where I think my code should go. Anyone have any ideas?
DoCmd.OpenReport ("Bill of Lading")
DoCmd.Close acReport, "Bill of Lading"
For the code above, I am not sure if anything exists to go in place of
..OutputTray. If there is something, then if someone can please provide a
list of constants that can go in place of acLeftOutputTray?
--
Brian Scheele
IT Manager
Clark Filter
3649 Hempland Road
Lancaster, PA 17601-1323
specific bin and output it to a specific tray.
I could set all of this using the page setup and choosing a specific
printer, but I need my users to be able to choose a backup printer for this
document in case the default copier goes down.
DoCmd.OpenReport "Bill of Lading", View:=acViewPreview,
windowmode:=acHidden
Set rpt = Reports("Bill of Lading")
Set rpt.Printer = Application.Printers("\\Clark66\Main Office BOL
Printer")
With Reports("Bill of Lading")
.PaperBin = acPRBNUpper 'Here I am choosing what paper
source I am using
.OutputTray = acLeftOutputTray 'Pseudocode here since this is
where I think my code should go. Anyone have any ideas?
DoCmd.OpenReport ("Bill of Lading")
DoCmd.Close acReport, "Bill of Lading"
For the code above, I am not sure if anything exists to go in place of
..OutputTray. If there is something, then if someone can please provide a
list of constants that can go in place of acLeftOutputTray?
--
Brian Scheele
IT Manager
Clark Filter
3649 Hempland Road
Lancaster, PA 17601-1323