Excel 如何用VBA实现表格打印

下面是批量打印某文件夹中表格的VBA程序：

Sub test()  
Set rrr = CreateObject("Scripting.FileSystemObject")  
Set r = rrr.GetFolder("C:\Documents and Settings\Administrator\桌面\材料")  
For Each i In r.Files  
    Workbooks.Open Filename:=("C:\Documents and Settings\Administrator\桌面\材料\" + i.Name + "")    '打开文件
    Worksheets("Sheet2").Activate    '选择表格2
    ActiveSheet.PageSetup.PrintArea = ""   '取消打印区域
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True     '打印
    ActiveWindow.Close saveChanges:=False     '关闭文件
Next 
End Sub

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

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