access的papersize命令_PaperSize 属性

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