In 1 werkblad pagina's met verschillende afdrukstand

[Swacar185]

Ik zou een werkblad willen maken met pagina 1 staand en pagina 2 liggend.
Indien ik in de verschillende pagina's de paginainstelling aanpas, wordt blijkbaar toch steeds de afdrukstand toegepast voor het volledige werkblad ipv voor die ene pagina ?
Iemand een oplossing aub ?
Dank bij voorbaat

 

[Joske2000]

Hi,

De volgende code drukt je 1ste blad Portrait of en het 2de blad Landscape.

Joske

Sub Pr_Hor_Pr_Ver()
    ActiveSheet.PageSetup.PrintArea = ""
    With ActiveSheet.PageSetup
        .Orientation = xlPortrait
    End With
    ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate _
        :=True
    ActiveSheet.PageSetup.PrintArea = ""
    With ActiveSheet.PageSetup
        .Orientation = xlLandscape
    End With
    ActiveWindow.SelectedSheets.PrintOut From:=2, To:=2, Copies:=1, Collate _
        :=True
End Sub