VBA设置Excel打印预览属性无效，寻求技术帮助

你的代码里有几个关键问题导致打印属性未生效，下面逐一说明并给出修正后的代码：

问题点分析 #

• Zoom与适配单页冲突：Excel中Zoom和FitToPagesWide/Tall是互斥设置，你同时启用了.Zoom = 100，直接覆盖了适配单页的配置，导致必须手动调整才能生效。
• PrintCommunication使用混乱：配置PageSetup时，应先关闭打印通信以减少干扰，原代码中间的PrintArea设置打断了这个流程，可能导致部分属性未正确写入。
• 打印区域未指定：PrintArea = ""会默认打印整个工作表，数据区外的空白可能让预览显示异常。
• 重复打印操作：同时调用打印对话框和PrintOut，不仅会触发两次打印，对话框还可能重置之前的设置。
• 冗余的Select操作：用Select选中单元格既影响性能，又容易干扰用户当前操作，完全没必要。

修正后的代码 #

Sub PrintFrm()
    Dim lr As Long
    Dim lc As Long
    Dim printRange As Range
    
    ' 获取数据最后一行、最后一列，定义打印区域
    lr = Cells(Rows.Count, 1).End(xlUp).Row
    lc = Cells(1, Columns.Count).End(xlToLeft).Column
    Set printRange = Range(Cells(1, 1), Cells(lr, lc))
    
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    Application.PrintCommunication = False ' 关闭打印通信，加快设置速度
    
    With ActiveSheet.PageSetup
        .PrintArea = printRange.Address ' 设置为数据区域
        .FitToPagesWide = 1 ' 强制适配1页宽
        .FitToPagesTall = False ' 不限制页高
        .Orientation = xlLandscape ' 横向打印
        .LeftHeader = "Page &P of &N"
        .CenterHeader = ""
        .RightHeader = ""
        .LeftFooter = "Cycle Count"
        .CenterFooter = Format(Now, "mm/dd/yyyy at hh:mm:ss")
        .RightFooter = "Printed by: " & Application.UserName
        .LeftMargin = Application.InchesToPoints(0.7)
        .RightMargin = Application.InchesToPoints(0.7)
        .TopMargin = Application.InchesToPoints(0.75)
        .BottomMargin = Application.InchesToPoints(0.75)
        .HeaderMargin = Application.InchesToPoints(0.3)
        .FooterMargin = Application.InchesToPoints(0.3)
        .PaperSize = xlPaperLetter
        .FirstPageNumber = xlAutomatic
        .Order = xlDownThenOver
        .BlackAndWhite = False
        .Zoom = False ' 禁用Zoom，确保适配单页生效
        .PrintErrors = xlPrintErrorsDisplayed
    End With
    
    Application.PrintCommunication = True ' 恢复打印通信
    
    ' 直接设置字体和对齐，无需Select
    printRange.Font.Name = "Times New Roman"
    With Range("C3:C" & lr)
        .HorizontalAlignment = xlLeft
        .VerticalAlignment = xlCenter
    End With
    
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True
    
    ' 选择一种打印方式：要么弹对话框让用户确认，要么直接打印
    Application.Dialogs(xlDialogPrint).Show
    ' 不需要对话框的话，替换成下面这句：
    ' ActiveSheet.PrintOut
End Sub

核心修改说明 #

1. 解决Zoom冲突：将.Zoom = 100改为.Zoom = False，让FitToPagesWide的设置真正生效，实现自动适配单页宽。
2. 规范PrintCommunication流程：在配置PageSetup前统一关闭打印通信，完成所有设置后再开启，避免打印机通信干扰属性写入。
3. 指定打印区域：仅打印有数据的区域，避免空白内容影响预览和打印效果。
4. 简化打印流程：只保留一种打印触发方式，防止重复操作和设置被重置。
5. 移除Select操作：直接通过Range对象修改字体和对齐属性，代码更高效，也不会干扰用户当前的选中状态。

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