Bonjour à tous,
Est-il possible via une petite macro d'imprimer la page 1 d'un onglet en
format Portrait et ensuite la page 2 en format Paysage ?
Merci pour le coup de main.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
FFO
Salut à toi
Ce bout de code devrait faire :
With ActiveSheet.PageSetup .Orientation = xlPortrait End With ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate _ :=True With ActiveSheet.PageSetup .Orientation = xlLandscape End With ActiveWindow.SelectedSheets.PrintOut From:=2, To:=2, Copies:=1, Collate _ :=True
Dis moi !!!!
Salut à toi
Ce bout de code devrait faire :
With ActiveSheet.PageSetup
.Orientation = xlPortrait
End With
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate _
:=True
With ActiveSheet.PageSetup
.Orientation = xlLandscape
End With
ActiveWindow.SelectedSheets.PrintOut From:=2, To:=2, Copies:=1, Collate _
:=True
With ActiveSheet.PageSetup .Orientation = xlPortrait End With ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate _ :=True With ActiveSheet.PageSetup .Orientation = xlLandscape End With ActiveWindow.SelectedSheets.PrintOut From:=2, To:=2, Copies:=1, Collate _ :=True
Dis moi !!!!
Domi
Merci, Ca marche bien. Domi
"FFO" a écrit dans le message de news:
Salut à toi
Ce bout de code devrait faire :
With ActiveSheet.PageSetup .Orientation = xlPortrait End With ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate _ :=True With ActiveSheet.PageSetup .Orientation = xlLandscape End With ActiveWindow.SelectedSheets.PrintOut From:=2, To:=2, Copies:=1, Collate _ :=True
Dis moi !!!!
Merci,
Ca marche bien.
Domi
"FFO" <FFO@discussions.microsoft.com> a écrit dans le message de news:
34D0C817-6733-466B-847B-EE5D3C4CFB74@microsoft.com...
Salut à toi
Ce bout de code devrait faire :
With ActiveSheet.PageSetup
.Orientation = xlPortrait
End With
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate
_
:=True
With ActiveSheet.PageSetup
.Orientation = xlLandscape
End With
ActiveWindow.SelectedSheets.PrintOut From:=2, To:=2, Copies:=1, Collate
_
:=True
With ActiveSheet.PageSetup .Orientation = xlPortrait End With ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate _ :=True With ActiveSheet.PageSetup .Orientation = xlLandscape End With ActiveWindow.SelectedSheets.PrintOut From:=2, To:=2, Copies:=1, Collate _ :=True