vba excel area di stampa variabile

[macio66]

Buongiorno

In un foglio, ho la necessità di avere due aree di stampa.
Una è sempre fissa (M1:O18), mentre la seconda (A1:H) varia a seconda della lunghezza della colonna "G".
Ho provato trovando l'ultima riga scritta in "G":

UltimaRiga = Worksheets("Foglio1").Cells(Rows.Count, "G").End(xlUp).Row

e inserendola in questo modo:

ActiveSheet.PageSetup.PrintArea = "A1:H & UltimaRiga , M1:O18"

ma mi da errore di run-time '1004'.
Sono io che non riesco a trovare una soluzione, o non e possibile farlo?
Grazie

[Anthony47]

Hai concatenato male le stringhe:

Codice: Seleziona tutto

ActiveSheet.PageSetup.PrintArea = "A1:H" & UltimaRiga & " , M1:O18"


Ciao

[macio66]

Ciao Anthony
Grazie per la dritta.
Buona giornata