Áp dụng cho
Đối tượng Printer
Trả về hoặc đặt hằng số AcPrintPaperBin sẽ cho biết thùng giấy mà máy in đã xác định sẽ sử dụng. Đọc/ghi.
|
AcPrintPaperBin có thể là một trong các hằng số AcPrintPaperBin sau. |
|
acPRBNAuto |
|
acPRBNCassette |
|
acPRBNEnvelope |
|
acPRBNEnvManual |
|
acPRBNFormSource |
|
acPRBNLargeCapacity |
|
acPRBNLargeFmt |
|
acPRBNLower |
|
acPRBNManual |
|
acPRBNMiddle |
|
acPRBNSmallFmt |
|
acPRBNTractor |
|
acPRBNUpper |
expression.PaperBin
biểu thức Bắt buộc. Một biểu thức trả về một trong các đối tượng trong danh sách Áp dụng Cho.
Ví dụ
Ví dụ sau đây đặt một loạt cài đặt máy in cho biểu mẫu được xác định trong tham đối strFormname của thủ tục.
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
