excel vba 打印指定路径下的文件

Sub 打印()

    Workbooks.Open ("d:\xls\22.xls")
    Application.DisplayAlerts = False '关闭屏幕提示'
    
    '打印 "22.xls" 工作簿中的"Sheet1"工作表,从第1页到第1页,打印份数为1份'
    Workbooks("22.xls").Sheets("Sheet1").PrintOut From:=1, To:=1, Copies:=1, Collate:=True
    Workbooks("22.xls").Close
    Application.DisplayAlerts = True '打开屏幕提示'


End Sub

'由于没有安装打印机,未进行测试!

温馨提示：答案为网友推荐，仅供参考

当前网址：https://verywind.cn/ee/v7yevxy7eey373ev3xx.html