Van toepassing op
Printer-object
Geeft als resultaat of het stelt een constante AcPrintPaperBin in, waarmee wordt aangegeven welke papierbak de opgegeven printer moet gebruiken. Lezen/schrijven.
AcPrintPaperBin kan een van deze AcPrintPaperBin-constanten Ijn. |
acPRBNAuto |
acPRBNCassette |
acPRBNEnvelope |
acPRBNEnvManual |
acPRBNFormSource |
acPRBNLargeCapacity |
acPRBNLargeFmt |
acPRBNLower |
acPRBNManual |
acPRBNMiddle |
acPRBNSmallFmt |
acPRBNTractor |
acPRBNUpper |
expressie.PaperBin
expressie Vereist. Een expressie die een van de objecten in de lijst Van toepassing op retourneert.
Voorbeeld
In het volgende voorbeeld wordt een aantal printerinstellingen ingesteld voor het formulier dat u hebt opgegeven in het argument strFormname van de procedure.
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:=acSaveYes
End Sub