如何使用VBA 批量打印同一文件夹下所有工作簿中的“报表”工作表，并把每张表调整打印在一页上使用V

Sub 批量打印()
Dim myfiles
Dim i As Long, path
With Application.FileDialog(msoFileDialogFolderPicker)
.Title = "请选择要查找的文件夹"
If .Show Then
path = .SelectedItems(1)
End If
End With
myfiles = Dir(path & "\*.xlsx")
On Error Resume Next
Application.ScreenUpdating = True
Application.DisplayAlerts = False
Do While Right(myfiles, 5) = ".xlsx"
i = i + 1
Workbooks.Open Filename:=path & "\" & myfiles
Sheets("报表").Select

ActiveWindow.View = xlPageBreakPreview
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
ActiveWindow.Close

myfiles = Dir

Loop
End Sub

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

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