Makro til at udskrive et område/pivottabel

Sub Macro2()

    ActiveSheet.PageSetup.PrintArea = Range("Pivot").Address(True, True)
    With ActiveSheet.PageSetup
       
        .Zoom = False
        .FitToPagesWide = 1
        .FitToPagesTall = 1
       
    End With
End Sub

mangler lige en linie for også at print
ActiveSheet.PrintOut

Jeg synes ikke rigtig det virker.

Jeg udvider lige mit spørgsmål hvis det er OK.

Hvordan får jeg lavet makroen så den udskriver den på gældende pivottabel ?

Min formel for områdenavnet (pivot):
=FORSKYDNING(Skema!$D$4;0;0;TÆLV(Data!$D:$D);TÆLV(Data!$4:$4))

Synes ikke at få market hele pivottabellen.

Når jeg bruger din makro udksriver den 6 sider. Side 1 indeholder noget af pivottabellen i str. mini, mini, mini, mini (man kan næsten ikke se det)

Og så bliver der oprettet et områdenavn=Udskriftområde

Kan du hjælpe yderligere ?

jeg åbner lige øjnene og retter i min formel for forskydning.

Det skal selvfølgelig være fra samme ark alle steder (altså skema og ikke data)

du får point, det virker fint

Tak for hjælpen

oki :-)