print setup in tabella pivot

[libraio]

So Winodws 7 64bit + Office 2003

Ciao a tutti,
ho creato una macro col registratore che mi genera una tabella pivot, il cui numero di righe della tabella è variabile.
Avrei necessità di modificare la stringa
ActiveSheet.PageSetup.PrintArea = "$A$4:$F$5000"
in modo che il setup stampa sia adeguato all'ultima riga.
Mi potete aiutare?
Grazie

[Anthony47]

Nell'ipotesi che basti esaminare la colonna F per determinare quale e' l'ultima riga usata:

Codice: Seleziona tutto

lastF = Cells(Rows.Count, "F").End(xlUp).Row
ActiveSheet.PageSetup.PrintArea = "$A$4:$F$" & lastF

Ciao

[libraio]

Grazie anthony,
ancora una volta...
libraio