PaperSize (papierformaat), eigenschap

Van toepassing op
Access voor Microsoft 365 Access 2021 Access 2019 Access 2016

Van toepassing op

Printer-object

Hierdoor wordt een constante AcPrintPaperSize als resultaat gegeven of ingesteld waarmee het papierformaat wordt aangegeven voor het afdrukken. Lezen/schrijven.

AcPrintPaperSize is een van deze AcPrintPaperSize-constanten.
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

expressie.PaperSize

expressie Vereist. Een expressie die een van de objecten in de lijst Van toepassing op retourneert.

Voorbeeld

In het volgende voorbeeld wordt een aantal printerinstellingen ingesteld voor het formulier dat u hebt opgegeven in het argument strFormname van de 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