Excel Vba 批量打印

Sub test()

Dim rrr As Object

Dim r As Object

Dim myPath As String

myPath = "G:\长康"

Set rrr = CreateObject("Scripting.FileSystemObject")

Set r = rrr.GetFolder("g:\长康")

Workbooks.Open Filename:=("G:\长康\aa.xlsx")

Worksheets("Sheet1").Activate

ActiveSheet.PageSetup.PrintArea = ""

ActiveWindow.SelectedSheets.PrintOut copies:=1, collate:=True

ActiveWindow.Close savechanges:=False

End Sub