VBA实现Excel保存后再打印

首先插入一个模块：

模块内添加代码：

方法描述：
仅在填表和修改数据状态执行保存动作，保存成功返回True
在查询状态直接返回True，否则会弹出提示“查询状态不需要保存数据”

Function saveReport() As Boolean
    On Error Resume Next
    Dim obj As Object
    Dim temp As Boolean
    Set obj = Application.COMAddIns.Item("prjAddin.Office_Addin").Object

    res = obj.saveReport
    If obj.GetOperationName = "[填表]" Or obj.GetOperationName = "[修改数据]" Then
        temp = res
    Else
        temp = True
    End If
    saveReport = temp
End Function

上面代码直接复制，不需要修改

然后添加一个函数

Sub 打印到货单()
On Error Resume Next
    Dim obj As Object
    Set obj = Application.COMAddIns.Item("prjAddin.Office_Addin").Object
    If saveReport Then
        obj.execFormula "到货单明细" '修改为要执行的取数公式,也可以注释掉'
        Sheets(3).PrintOut '这里打印第三个工作表，根据实际调整'
    End If
    Set obj = Nothing
End Sub

复制上方代码，并按注释修改。
选择Excel工具栏-开发工具-插入按钮

选中插入的按钮右键，指定宏，选择 打印到货单，完成。