用宏实现Excel批量打印第一页工作表

最新推荐文章于 2025-04-07 16:47:59 发布

panxiong2006

最新推荐文章于 2025-04-07 16:47:59 发布

阅读量3.6k

点赞数 1

分类专栏：办公自动化文章标签： vba excel

本文链接：https://blog.csdn.net/panxiong2006/article/details/107972794

版权

本文介绍了一个VBA宏，可以在双击时批量打印Excel文件的第一页。宏分为按清单和按文件夹两种模式，适用于需要快速打印多份Excel文件的场景。通过调用PrintFiles子程序，宏能打开指定文件并只打印第一张工作表，然后关闭文件，不保存任何改动。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

版权声明：本文为博主原创文章，转载请在显著位置标明本文出处以及作者网名，未经作者允许不得用于商业目的。

批量打印Excel时，以下代码可以实现按清单和按文件夹（含子文件夹打印）：

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim iPath As String, i As Long
Dim t
Dim PathLen As Integer
Dim RunSignal As Variant, Reply As Variant
Dim Tr As Single, Tc As Single

Tr = Target.Row
Tc = Target.Column
If Tr = 1 Then
    If Tc = 1 Then
        RunSignal = "List"
        Reply = MsgBox("This operation will print out files listed in column A! Please make sure your print setting is excellent enough!", vbOKCancel, "Warning")
        If Reply = vbCancel Then
        Exit Sub
        End If
    ElseIf Tc = 3 Then
        RunSignal = "Folder"
        Reply = MsgBox("This operation