Select source tray of printer

[fef]

Hi,

I've some problems to configure my printer via VB.
I've searched arround in the threads, but can not find what I'm looking for.
I just want to know how to select the source tray of the printer.

See enclosed picture

 

[llkhoutx]

These are the only PaperBin constants I could find:

acPRBNAuto
acPRBNCassette
acPRBNenvelope
acPRBNEnvManual
acPRBNLargeCapacity
acPRBNLargeFmt
acPRBNLower
acPRBNManual
acPRBNMiddle
acPRBNSmallFmt
acPRBNTractor
acPRBNUpper
acPRBNFormSource

dim rpt as Report
docmd.openreport "ReportName",acviewPreview
set rpt=Reports("ReportName")
rsp.printer.PaperBin=acPRBNUpper
docmd.selectobject acReport,"ReportName"
rpt.printer.PaperBin=acPRBNUpper
docmd.Printout acpages, 1, 1
rpt.printer.paperbin.acPRBNMiddle
docmd.printout acpages, 2, 2000
docmd.close acreport,"ReportName",acSaveNo

If the constant list doesn't adequately describe your printer bins, and from your jpg I doubt it, I'd test numeric values 1 through n.

The above is from Ken Getz, et al's "Access Cookbook," puiblished by O'Rielly, about $50.00 (U.S.).

 

[fef]

Ok,
Thanks for your reply