PaperBin-Eigenschaft
Gilt für
Druckerobjekt
Gibt eine AcPrintPaperBin-Konstante zurück oder legt sie fest, die angibt, welche Papierablage der angegebene Drucker verwenden soll. Lesen Schreiben.
AcPrintPaperBin kann eine dieser AcPrintPaperBin-Konstanten sein. |
acPRBNAuto |
acPRBNCassette |
acPRBNUmschlag |
acPRBNEnvManual |
acPRBNFormSource |
acPRBNGroßeKapazität |
acPRBNLargeFmt |
acPRBNLower |
acPRBNManual |
acPRBNMiddle |
acPRBNSmallFmt |
acPRBNTractor |
acPRBNUpper |
Ausdruck . Papierkorb
Ausdruck Erforderlich. Ein Ausdruck, der eines der Objekte in der Liste Gilt für zurückgibt.
Beispiel
Im folgenden Beispiel werden verschiedene Druckereinstellungen für das im Argument strFormname der Prozedur angegebene Formular festgelegt.
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
No comments:
Post a Comment