Propriedade TamanhoDoPapel

Aplica-se A
Access para Microsoft 365 Access 2021 Access 2019 Access 2016

Aplica-se a

Objeto Printer

Devolve ou define uma constante AcPrintPaperSize a indicar o tamanho do papel a utilizar quando imprimir o documento. De leitura/escrita.

O AcPrintPaperSize pode ser uma das constantes do AcPrintPaperSize.
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

expressão.PaperSize

expressão Obrigatório. Uma expressão que devolve um dos objetos na lista Aplica-se A.

Exemplo

O exemplo seguinte define uma variedade de definições da impressora para o formulário especificado no argumento strFormname do procedimento.

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