Access VBA我可以用“打印”将A4报告打印到A3吗；“合身”吗；？

我对一些报告有意见。 我的老板希望能同时用A4和A3打印报告。 我可以很容易地用A4打印我的报告，因为所有的报告都是用A4纸制作的。 但是当我尝试将纸张大小改为acPRPSA3时，报告肯定是用A3纸打印的，但在纸上，它只是用A3打印的A4报告。很难解释。但是这份报告只是打印在A3上，没有放大以适应整篇文章

这是我的密码

Public Sub PrintReport()
'This code prints my report to A4
Dim rpt As Report

DoCmd.OpenReport "VrptGrafResultaterSumpLer", View:=acViewPreview, WindowMode:=acHidden

Set rpt = Reports("VrptGrafResultaterSumpLer")
Set rpt.Printer = Application.Printers("SHARP MX-2614N PCL6")

With rpt.Printer
    .PaperBin = 258
    .PaperSize = acPRPSA4
    .Copies = 1
    .Orientation = acPRORLandscape
    .Duplex = acPRDPVertical
    .PrintQuality = acPRPQDraft
End With
Timeout (1)
DoCmd.OpenReport "VrptGrafResultaterSumpLer"
DoCmd.Close acReport, "VrptGrafResultaterSumpLer"
End Sub

如果我手动打印报告，我有一个如图所示的设置。 我可以在VBA中访问它吗？这样我就不必为他想要打印的每个报告都制作新的报告了 A3

---

我认为打印机的这些“特殊”属性不会转移到打印机对象。但是，在打印之前，您不能以编程方式更改报表的维度及其内容吗？嘿，布拉克斯。谢谢你的意见。我想我必须那样做。我知道要执行此操作，我必须打开隐藏在designview中的报告，进行更改，然后打印并关闭。更改报表的宽度和高度很容易，但是如何更改报表上图表的大小以在打印时填充整个报表？如果它是一个带有文本框之类的“正常”报告，我该怎么做？再次感谢您的帮助不确定是否需要设计视图。首先，尝试在OnOpen事件中调整图表的宽度和高度。我认为打印机的这些“特殊”属性不会转移到打印机对象。但是，在打印之前，您不能以编程方式更改报表的维度及其内容吗？嘿，布拉克斯。谢谢你的意见。我想我必须那样做。我知道要执行此操作，我必须打开隐藏在designview中的报告，进行更改，然后打印并关闭。更改报表的宽度和高度很容易，但是如何更改报表上图表的大小以在打印时填充整个报表？如果它是一个带有文本框之类的“正常”报告，我该怎么做？再次感谢您的帮助不确定是否需要设计视图。首先，尝试在OnOpen事件中调整图表的宽度和高度。