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

按Alt+F11，在左栏点击ThisWorkBook，找到：
Private Sub Workbook_BeforePrint(Cancel As Boolean)
'输入需要在打印前完成的工作代码
End Sub

代码的写法如下

Sub 打印()
    Worksheets("Sheet1").PrintOut
End sub

请参考

VBA打印表格的语句是：
Sheet1.PrintOut