ينطبق على
عنصر Printer
يقوم بإرجاع أو تعيين ثابت AcPrintPaperBin الذي يشير إلى حاوية الورق التي يجب أن تستخدمها الطابعة المحددة. قراءة/كتابة.
يمكن أن يكون AcPrintPaperBin أحد ثوابت AcPrintPaperBin هذه. |
acPRBNAuto |
acPRBNCassette |
acPRBNEnvelope |
acPRBNEnvManual |
acPRBNFormSource |
acPRBNLargeCapacity |
acPRBNLargeFmt |
acPRBNLower |
acPRBNManual |
acPRBNMiddle |
acPRBNSmallFmt |
acPRBNTractor |
acPRBNUpper |
expression.PaperBin
expression Required. تعبير يُرجع أحد العناصر في قائمة "ينطبق على".
مثال
يقوم المثال التالي بتعيين مجموعة متنوعة من إعدادات الطابعة للنموذج المحدد في وسيطة strFormname للإجراء.
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