XL 2013 impression vba et mise en page

Bon matin

Bon mon problème se situe sur le fait que je ne peux intégrer tout les colonnes sur une page, malgré le fait que je cache, je sélection le % de la page , il y a toujours une colonne qui s'affiche sur un autre page-comment m’assurer que le tout s'imprime
Private Sub CommandButton2_Click()

[E:E,F:F,I:I,J:J,K:K,L:L,M:M,O:O,P,AA:AA].EntireColumn.Hidden = True
ActiveWindow.SelectedSheets.PrintPreview
[E:E,F:F,I:I,J:J,K:K,L:L,M:M,O:O,P,AA:AA].EntireColumn.Hidden = False
End Sub

merci de m'orienter
cm