VBA 一键打印功能(当前文件中的工作表)

最新推荐文章于 2025-04-27 13:16:37 发布

springdk2009

最新推荐文章于 2025-04-27 13:16:37 发布

阅读量1.1k

点赞数 2

CC 4.0 BY-SA版权

分类专栏： VBA 文章标签：数据库 vab

本文链接：https://blog.youkuaiyun.com/springdk2009/article/details/136809587

时间：2017-03-06 17:31:47

Sub 一键打印()
    If MsgBox("确认要打印所有不含NO的工作表吗？", vbOKCancel, "温馨提示") = vbCancel Then
        End
    End If
    On Error Resume Next '这里最好加上，有时总报错。
    Dim Sht As Worksheet
    For Each Sht In ThisWorkbook.Worksheets
         Debug.Print Sht.Name
            Sht.PrintOut Copies:=1
'            Sleep 400
'            DoEvents
    Next
 
End Sub

添加打印机选择

Sub 一键打印()
    If MsgBox("确认要打印所有不含NO的工作表吗？", vbOKCancel, "温馨提示") = vbCancel Then
        End
    End If
     
     
    Application.Dialogs(9).Show                     '调用打印设置窗体
    Current = Application.ActivePrinter             '把打印设置窗体赋给变量,则取到的打印名中含有端口名,如（在 Ne01:)
     
    Debug.Print Current '默认
     
     
    Current = Mid(Current, 1, Len(Current) - 8)     '截去（在 Ne01:）
    SetDefaultPrint