Gäller för
Printer-objekt |
Returnerar eller anger konstanten AcPrintPaperSize som anger vilken pappersstorlek som ska användas när du skriver ut. Läsning/skrivning.
AcPrintPaperSize kan vara någon av dessa konstanter: |
acPRPS10x14 |
acPRPS11x17 |
acPRPSA3 |
acPRPSA4 |
acPRPSA4Small |
acPRPSA5 |
acPRPSB4 |
acPRPSB5 |
acPRPSCSheet |
acPRPSDSheet |
acPRPSEnv10 |
acPRPSEnv11 |
acPRPSEnv12 |
acPRPSEnv14 |
acPRPSEnv9 |
acPRPSEnvB4 |
acPRPSEnvB5 |
acPRPSEnvB6 |
acPRPSEnvC3 |
acPRPSEnvC4 |
acPRPSEnvC5 |
acPRPSEnvC6 |
acPRPSEnvC65 |
acPRPSEnvDL |
acPRPSEnvItaly |
acPRPSEnvMonarch |
acPRPSEnvPersonal |
acPRPSESheet |
acPRPSExecutive |
acPRPSFanfoldLglGerman |
acPRPSFanfoldStdGerman |
acPRPSFanfoldUS |
acPRPSFolio |
acPRPSLedger |
acPRPSLegal |
acPRPSLetter |
acPRPSLetterSmall |
acPRPSNote |
acPRPSQuarto |
acPRPSStatement |
acPRPSTabloid |
acPRPSUser |
uttryck.PaperSize
Uttryck Obligatoriskt. Ett uttryck som returnerar ett av objekten i listan Gäller för.
Exempel
I följande exempel anges olika utskriftsinställningar för formuläret som anges i argumentet strFormname för proceduren.
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