如何设置VBA使指定单元格区域打印至单张A4纸？

核心问题分析 #

• PrintPreview (EnableChanges = True) 参数写法错误：VBA中命名参数必须用 := 赋值，原写法会被当成表达式求值传递，导致参数不生效。
• 未关闭比例缩放：FitToPagesWide 和 FitToPagesTall 生效的前提是设置 .Zoom = False，默认的比例缩放模式会覆盖“缩放到页数”的设置。
• 原代码中 PrintOut (Preview = True) 的参数写法同样错误，正确格式应为 PrintOut Preview:=True。

修正后的代码 #

Private Sub CommandButton3_Click()
    With Sheets("Home").PageSetup
        .PrintArea = "$A$1:$W$44"
        .Orientation = xlLandscape
        .Zoom = False ' 必须先关闭比例缩放，才能启用缩放到页数功能
        .FitToPagesWide = 1
        .FitToPagesTall = 1
    End With
    
    ' 调出可修改设置的打印预览窗口（仅Excel 2019及以上版本支持EnableChanges参数）
    Sheets("Home").PrintPreview EnableChanges:=True
    
    ' 若要调出和手动按Ctrl+P一致的系统打印对话框，替换上面的PrintPreview为以下代码：
    ' Application.Dialogs(xlDialogPrint).Show
End Sub

额外说明 #

• 若使用Excel 2016及更早版本，去掉 EnableChanges:=True，直接写 Sheets("Home").PrintPreview 即可正常调出预览窗口。
• Application.Dialogs(xlDialogPrint).Show 会唤起原生打印对话框，完全匹配你“类似保存时的打印窗口”的需求。

内容的提问来源于stack exchange，提问作者user20572153