VBA macro to open/update/print many worksheets

[mbst36]

In my current macro I have ~50 worksheets that I need to open/update links and print in a specific order on a shared drive. It takes me 5min to do all of this. Is there a different combination of variable/commands to print these quicker?

Here is a sample of my Macro:

Sub Sample_Morning()
Application.ScreenUpdating = False
Application.DisplayAlerts = False

Workbooks.Open "O:\Sample\Test\2011.xls", UpdateLinks:=False, ReadOnly:=True
Workbooks.Open "O:\Sample\Distribution\2013.xls", UpdateLinks:=True, ReadOnly:=True
Workbooks.Open "O:\Sample\Inventory\futures.xls.", UpdateLinks:=True, ReadOnly:=True

Workbooks("2011.xls").Activate
Worksheets(1).Select
ActiveSheet.PrintOut
Workbooks("2013xls").Activate
Worksheets(1).Select
ActiveSheet.PrintOut
Workbooks("futures.xls").Activate
Worksheets(1).Select
ActiveSheet.PrintOut , from:=1, to:=1

Application.ScreenUpdating = True
Application.DisplayAlerts = True

End Sub

Thanks for reading!