Macro impression

Bonjour,
J'ai une macro dans un "thisworkbooks" pour imprimer automatiquement les feuilles d'un fichier. J'ai programmé la macro pour que l'impression se fasse en double mais cela ne me sorte qu'une seule feuille. Pouvez-vous m'aider. Ci-dessous la macro :

Private Sub Workbook_Open()
Dim Fichier As String
Dim App As Object
Dim Book As Workbook
Dim Sheet As Worksheet
Set App = CreateObject("Excel.Application")
App.DisplayAlerts = False
Set Book = App.Workbooks.Open("J:\aa\bb\cc\dd.xlsm")
Set Sheet = Book.Sheets("Principal")
ActiveWindow.SelectedSheets.PrintOut Copies:=2, Collate:=True, _
IgnorePrintAreas:=False
App.Quit
End Sub

Merci pour vos réponses et votre aide