Stampa seconda pagina

[geri21]

Per la stampa di una pagina di un foglio excel ho associato ad un pulsante la riprodotta macro.
Sheets("CLF.ca").Select
Range("K1:T36").Select
ActiveSheet.PageSetup.PrintArea = "$K$1:$T$36"
ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,,,TRUE,,FALSE)"
Sheets("TORNEO").Select
End Sub
Per intervenute esigenze, anziché creare un nuovo pulsante per la stampa di una seconda pagina, vorrei aggiungere del codice alla macro già funzionante di modo che includa anche la stampa dalla cella K37 a T75 della seconda pagina purché la cella D42 sia diversa da “” (null).
Grazie per i suggerimenti.

[Anthony47]

Dovrebbe bastare sostituire la riga ActiveSheet.PageSetup.PrintArea = "$K$1:$T$36" con

Codice: Seleziona tutto

If Range("D42")<>"" then
ActiveSheet.PageSetup.PrintArea = "$K$1:$T$75"
else
ActiveSheet.PageSetup.PrintArea = "$K$1:$T$36"
End if


Ciao

[geri21]

Appena possibile proverò la modifica.
Grazie

[geri21]

La modifica suggerita funziona perfettemente !!
Grazie Anthony.