VBA使用PrintForm函数打印时出现对象错误91的问题求助

问题根因分析 #

VBA错误91的本质是「对象变量或With块变量未设置」，你这段代码触发错误的高频原因有4个，按出现概率排序：

• 打印窗体的调用时机错误：PrintForm写在UserForm_Initialize事件中，该事件触发时窗体还未完成初始化、没有完成界面渲染，窗体对象本身还未完全实例化，调用PrintForm找不到对应的窗体对象直接报错。
• 工作表引用无效：代码中Worksheets("Surface Finish")要求工作簿中存在名称完全匹配的工作表，要是工作表名有前后空格、拼写错误、被用户修改过，就会返回空对象，调用其PageSetup或ExportAsFixedFormat方法时报错。
• 窗体控件名称不匹配：popData过程中引用的BatchBox、DrawBox等控件名称，要是和UserForm1上实际的控件名拼写不一致（包括大小写、多字少字），找不到对应控件对象就会报错。
• 单元格引用未指定工作表：所有Cells调用默认指向活动工作表，要是触发代码时活动工作表不是你存储数据的工作表，极端情况下也会引发对象引用错误。

解决方案 #

第一步：定位具体报错点 #

打开VBA编辑器，按F8逐行执行代码，哪一行代码触发黄色高亮，就是对应位置的对象引用出错。

第二步：针对性修复 #

1. 修正打印窗体的调用时机

不要在Initialize事件中调用打印逻辑，移到UserForm_Activate事件中，该事件触发时窗体已经完成加载、界面完全渲染，对象实例正常可用，同时加标志位避免重复触发。

2. 用工作表CodeName替代名称引用

在VBA编辑器的工程资源管理器中选中对应工作表，查看属性窗口的(名称)属性（即CodeName），直接用CodeName引用工作表，不会因为用户修改工作表显示名称失效。

3. 核对控件名称

逐一核对UserForm1上的控件名称，和popData中引用的名称完全一致，不要把控件的Caption属性和Name属性搞混。

4. 所有单元格引用绑定对应工作表

避免用默认的活动工作表引用，明确指定单元格所属的工作表，消除歧义。

修复后参考代码 #

UserForm1完整代码 #

' 模块级变量声明
Dim Batch As String
Dim Draw As String
Dim Rev As String
Dim ScrapQR As String
Dim goodQty As String
Dim desc As String
Dim scrapQty As String
Dim stage As String
Dim material As String
Dim po As String
Dim mpi As String
Dim lpi As String
' 新增打印标志位，避免Activate事件重复触发打印逻辑
Private hasPrinted As Boolean

Private Sub UserForm_Initialize()
    Call gatherData
    Call popData
    hasPrinted = False
End Sub

Private Sub UserForm_Activate()
    ' 仅第一次激活时执行打印
    If Not hasPrinted Then
        Call printStuff
        hasPrinted = True
        Unload Me
    End If
End Sub

Sub gatherData()
    ' 请将Sheet1替换为你存储数据的工作表的CodeName
    With Sheet1
        Batch = .Cells(1, 2).Value
        Draw = .Cells(3, 2).Value
        Rev = .Cells(4, 2).Value
        ScrapQR = .Cells(8, 2).Value
        goodQty = .Cells(6, 2).Value
        scrapQty = .Cells(7, 2).Value
        desc = .Cells(2, 2).Value
        stage = .Cells(10, 2).Value
        material = .Cells(11, 2).Value
        po = .Cells(12, 2).Value
        mpi = .Cells(13, 2).Value
        lpi = .Cells(14, 2).Value
    End With
End Sub

Sub popData()
    BatchBox.Text = Batch
    DrawBox.Text = Draw
    DescBox.Text = desc
    RevBox.Text = Rev
    GoodBox.Text = goodQty
    ScrapBox.Text = scrapQty
    DateBox = Date
    QRBox.Text = ScrapQR
    sBox.Text = stage
    matBox.Text = material
    PBox.Text = po
    MBox.Text = mpi
    LBox.Text = lpi
End Sub

Sub printStuff()
    Dim fileName As String
    fileName = "Surface_Finish_" & Batch
    
    ' 请将Sheet2替换为"Surface Finish"工作表的CodeName
    With Sheet2
        .PageSetup.Zoom = False
        .PageSetup.FitToPagesTall = 1
        .PageSetup.FitToPagesWide = 1
        .ExportAsFixedFormat _
            Type:=xlTypePDF, _
            fileName:="N:\Buckets\Sdata\Dyllon_Dunton\" & fileName, _
            Quality:=xlQualityStandard, _
            IncludeDocProperties:=False, _
            IgnorePrintAreas:=False, _
            From:=1, _
            To:=1, _
            OpenAfterPublish:=False
    End With
    
    ' 显式指定当前窗体调用PrintForm，更稳定
    Me.PrintForm
End Sub

优化建议 #

如果你不需要用户看到UserForm1的界面，完全可以把数据处理、导出PDF的逻辑直接写到CommandButton1的点击事件中，不需要加载再卸载窗体，能彻底规避窗体对象加载的相关问题，执行效率也更高。

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