Opening and printing 50+ excel workbooks
Currently I have a VBA macro that opens, update links and prints ~50 workbooks. The code has all 50 workbooks opened and update individually. This process takes 5mins. 5 mins for 50 workbooks is a lousy ratio.
How can I condense the code to where all the workbooks are opened, updated and printed quicker?
Here is a sample:
Sub Test_Morning()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Workbooks.Open "O:\Sample\2011.xls", UpdateLinks:=False, ReadOnly:=True
Workbooks.Open "O:\Sample\South 2013.xls", UpdateLinks:=True, ReadOnly:=True
Workbooks.Open "O:\Sample\Distribution.xls.", UpdateLinks:=True, ReadOnly:=True
Workbooks("2011.xls").Activate
Worksheets(1).Select
ActiveSheet.PrintOut
Workbooks("South 2013.xls").Activate
Worksheets(1).Select
ActiveSheet.PrintOut
Workbooks("Distribution.xls").Activate
Worksheets(1).Select
ActiveSheet.PrintOut , from:=1, to:=1
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub
Recent comments
5 years 36 weeks ago
6 years 22 weeks ago
6 years 34 weeks ago
6 years 37 weeks ago
6 years 38 weeks ago
6 years 43 weeks ago
6 years 52 weeks ago
7 years 2 days ago
7 years 3 days ago
7 years 3 days ago