Thứ Bảy, 19 tháng 6, 2010

Thiết lập Máy in trong VBA ACCESS

PaperBin Property

Applies to

Printer Object

Returns or sets an AcPrintPaperBin constant indicating which paper bin the specified printer should use. Read/write.

AcPrintPaperBin can be one of these AcPrintPaperBin constants.

acPRBNAuto

acPRBNCassette

acPRBNEnvelope

acPRBNEnvManual

acPRBNFormSource

acPRBNLargeCapacity

acPRBNLargeFmt

acPRBNLower

acPRBNManual

acPRBNMiddle

acPRBNSmallFmt

acPRBNTractor

acPRBNUpper

expression.PaperBin

expression Required. An expression that returns one of the objects in the Applies To list.

Example

The following example sets a variety of printer settings for the form specified in the strFormname argument of the 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

Không có nhận xét nào: