VBA打印当前文件夹下所有xls文件

最新推荐文章于 2024-05-28 22:28:41 发布

gxchai

最新推荐文章于 2024-05-28 22:28:41 发布

阅读量1.2k

点赞数

CC 4.0 BY-SA版权

分类专栏：随手小代码 VBA 文章标签： vba

本文链接：https://blog.csdn.net/gxchai/article/details/121601834

本文介绍了一个VBA脚本，用于打印当前目录下所有的xls文件，但未解决自动双面打印的问题。提供了三种可能的解决方案，包括在默认打印机设置中开启自动双面，使用对话框每次手动设置，以及尝试通过Printer API进行设置，但第三个方法未验证成功。

下面脚本是进行对本目录（不含子目录）的xls文件进行打印
最大的问题自动双面无法处理。
现在解决办法是：
1、默认打印机中直接设置为自动双面，但有的打印机（如东芝AC2000）即使设置了也没有带到EXCEL里来
2、取消Application.Dialogs(xlDialogPrint).Show前的注释，这时每次要打前会提示打印设置，这个有点头大
3、根据https://stackoverflow.com/questions/40848751/excel-vba-printer-api-set-colour-and-duplex 倒数第二，三个内容来进行设置，其中Private Declare Function 要改成Private Declare Ptrsafe Function ，但这个我因为时间原因，我没试成功

Sub 打印本目录下所有excel文件()
    '取当前文件夹
    strDir = Application.ActiveWorkbook.Path & "\"
    
    '遍历当前文件夹
    strFile = Dir(strDir & "*.xls"

最低0.47元/天解锁文章