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