Применение
Объект Printer |
Возвращает или задает константу AcPrintPaperSize, определяющую размер используемой для печати бумаги. Значение данного свойства доступно для чтения и записи.
В качестве значения 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 |
выражение.PaperSize
Выражение Обязательный. Выражение, возвращающее один из объектов в списке Применяется к.
Пример
В следующем примере для формы, указанной в аргументе strFormname процедуры, задаются различные параметры печати.
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