Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

Stampa seconda pagina

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

Stampa seconda pagina

Postdi geri21 » 21/11/12 12:24

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.
geri21
Utente Junior
 
Post: 54
Iscritto il: 24/07/08 07:32

Sponsor
 

Re: Stampa seconda pagina

Postdi Anthony47 » 21/11/12 14:38

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
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 13899
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Stampa seconda pagina

Postdi geri21 » 21/11/12 19:14

Appena possibile proverò la modifica.
Grazie
geri21
Utente Junior
 
Post: 54
Iscritto il: 24/07/08 07:32

Re: Stampa seconda pagina

Postdi geri21 » 22/11/12 09:32

La modifica suggerita funziona perfettemente !!
Grazie Anthony.
geri21
Utente Junior
 
Post: 54
Iscritto il: 24/07/08 07:32


Torna a Applicazioni Office Windows


Topic correlati a "Stampa seconda pagina":


Chi c’è in linea

Visitano il forum: Nessuno e 13 ospiti