Berlaku untuk
Objek Printer
Mengembalikan atau mengatur konstanta AcPrintPaperBin yang mengindikasikan tempat sampah kertas yang harus digunakan printer yang ditentukan. Baca/tulis.
|
AcPrintPaperBin dapat berupa salah satu konstanta AcPrintPaperBin ini. |
|
acPRBNAuto |
|
acPRBNCassette |
|
acPRBNEnvelope |
|
acPRBNEnvManual |
|
acPRBNFormSource |
|
acPRBNLargeCapacity |
|
acPRBNLargeFmt |
|
acPRBNLower |
|
acPRBNManual |
|
acPRBNMiddle |
|
acPRBNSmallFmt |
|
acPRBNTractor |
|
acPRBNUpper |
ekspresi.PaperBin
ekspresi Diperlukan. Suatu ekspresi yang mengembalikan salah satu objek dalam daftar Berlaku Untuk.
Contoh
Contoh berikut mengatur berbagai pengaturan printer untuk formulir yang ditentukan dalam argumen strFormname dari prosedur.
Sub SetPrinter(strFormname As String) DoCmd.OpenForm FormName:=strFormname, _ view:=acDesign, _ datamode:=acFormEdit, _ windowmode:=acHidden With Forms(form1).Printer .TopMargin = 1440 .BottomMargin = 1440 .LeftMargin = 1440 .RightMargin = 1440 .ColumnSpacing = 360 .RowSpacing = 360 .ColorMode = acPRCMColor .DataOnly = False .DefaultSize = False .ItemSizeHeight = 2880 .ItemSizeWidth = 2880 .ItemLayout = acPRVerticalColumnLayout .ItemsAcross = 6 .Copies = 1 .Orientation = acPRORLandscape .Duplex = acPRDPVertical .PaperBin = acPRBNAuto .PaperSize = acPRPSLetter .PrintQuality = acPRPQMedium End With DoCmd.Close objecttype:=acForm, _ objectname:=strFormname, _ Save:=acSaveYesEnd Sub
