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

下面脚本是进行对本目录（不含子目录）的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(<