Érvényesség
Printer objektum
Visszaad vagy beállít egy AcPrintPaperBin-konstanst, mely meghatározza, hogy az adott nyomtató melyik papíradagolót használja. Olvasható/írható.
|
Az AcPrintPaperBin értéke az alábbi AcPrintPaperBin-konstansok egyike lehet. |
|
acPRBNAuto |
|
acPRBNCassette |
|
acPRBNEnvelope |
|
acPRBNEnvManual |
|
acPRBNFormSource |
|
acPRBNLargeCapacity |
|
acPRBNLargeFmt |
|
acPRBNLower |
|
acPRBNManual |
|
acPRBNMiddle |
|
acPRBNSmallFmt |
|
acPRBNTractor |
|
acPRBNUpper |
kifejezés.Papíradagoló
kifejezés Kötelező megadni. Olyan kifejezés, amely az Érvényesség listában található objektumok valamelyikét adja vissza.
Példa
Az alábbi példa különféle nyomtatóbeállításokat alkalmaz az eljárás strFormname argumentumában megadott űrlapra.
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
