VBA-EXCEL批量打印

最新推荐文章于 2025-08-02 13:14:05 发布

FRANKPAN123

最新推荐文章于 2025-08-02 13:14:05 发布

阅读量6.9k

点赞数 1

CC 4.0 BY-SA版权

分类专栏： EXCEL 文章标签： VBA EXCEL

本文链接：https://blog.youkuaiyun.com/weixin_44102434/article/details/85006951

EXCEL 专栏收录该内容

3 篇文章

订阅专栏

本文介绍了一段使用VBA编程实现批量打印存放在指定目录下所有Excel文件的方法。通过循环读取目录中的文件，自动打开每个文件并设置打印参数，如纸张大小、缩放比例等，最后进行打印操作并保存关闭文件。

Sub dlkfjdl()
    Dim MyFile As String
    Dim count As Integer
    
    MyFile = Dir("C:\Users\Administrator\Desktop\sqqk\*.*")
    Debug.Print MyFile
   
    Do While MyFile <> ""
        Workbooks.Open "C:\Users\Administrator\Desktop\sqqk\" + MyFile
        ActiveWorkbook.Sheets(1).Activate
        With ActiveSheet.PageSetup '设置当前工作表的页面设置
                    .PaperSize = xlPaperA4 '设置纸张大小为A4纸
                    .Zoom = False
                    .FitToPagesWide = 1 '设置为1页宽
                    .FitToPagesTall = 1 '设置为1页高
        End With
        ActiveWorkbook.PrintOut 1, 1
        Application.EnableEvents = False
        ActiveWorkbook.CheckCompatibility = False '禁止自动运行兼容性检查器
        ActiveWorkbook.Save '保存当前工作簙
        ActiveWorkbook.Close '关闭当前工作簙
        MyFile = Dir
        If MyFile = "" Then Exit Do
        
        Debug.Print MyFile
    Loop
End Sub