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.).