Die Access.acprintPaperSize“ target=“_blank“ rel=“noreferrer noopener“>AcPrintPaperSize Enumeration zur Auswahl der PapiergröĂe bzw. des Papierformats beim Drucken einen Berichtes (Reports) in Access VBA enthĂ€lt bereits ca. 40 GröĂen.
Viele fehlen, zum Beispiel A6. Mit der folgenden Funktion können undokumentierte Papierformate aus einem Bericht nach deren Einstellung mit „Seite einrichten“ abgefragt werden.
A6 ergibt hier die PaperSize = 70.
Function getPrinterPaperSize(strReport$) As Long
Dim objRpt As Report
DoCmd.OpenReport strReport, acViewPreview ' , , , acHidden
Set objRpt = Reports(strReport)
getPrinterPaperSize = objRpt.Printer.PaperSize
DoCmd.Close acReport, strReport, acSaveNo
End Function
Mit dieser Funktion lassen sich individuelle PapiergröĂen in einem Bericht speichern
Function setPrinterPaperSize(strReport$, intPaperSize As Integer) As Long
Dim objRpt As Report
DoCmd.OpenReport strReport, acViewPreview ' , , , acHidden
Set objRpt = Reports(strReport)
With objRpt.Printer
.PaperSize = intPaperSize ' AcPrintPaperSize
' .Orientation = acPRORLandscape
End With
DoCmd.Close acReport, strReport, acSaveYes
End Function
Keine Antworten