Pagina precedente | 1 | Pagina successiva
Vota | Stampa | Notifica email    
Autore

stampa dove ci sono i dati ma...

Ultimo Aggiornamento: 15/04/2009 14:30
Post: 45
Registrato il: 28/08/2007
Città: VERONA
Età: 63
Utente Junior
2016
OFFLINE
14/04/2009 20:17

ciao a tutti, sono alle prese con una stampa ma solo dove esistono dati...
Ho trovato nel forum una macro che funziona si, ma non nel mio caso...
la macro è:
Sub Stampa()
Application.ScreenUpdating = False
Sheets("Foglio1").Select
inizio = Range("a1").Address
fine = Range("n10000").End(xlDown).Address
ActiveSheet.PageSetup.PrintArea = inizio & ":" & fine
ActiveSheet.PrintOut
Application.ScreenUpdating = True
End Sub


purtroppo io ho in colonna "M" una formula mascherata dalla formattazione condizionale... purtroppo la stampa va fino alla fine della formula in riga 3000...incurante della formattazione che impedisce la vista ai dati...
non riesco a trovare la soluzione per ovviare alla inutile stampa, dal momento che i dati possono fermarsi anche in poche righe...

lascio il file...così è più chiaro

vi ringrazio sempre per l'aiuto che potete darmi... ciao

Post: 383
Registrato il: 14/11/2005
Città: FIRENZE
Età: 80
Utente Senior
2007
OFFLINE
14/04/2009 22:36

Re:
giampag, 14/04/2009 20.17:

ciao a tutti, sono alle prese con una stampa ma solo dove esistono dati...
Ho trovato nel forum una macro che funziona si, ma non nel mio caso...
la macro è:
Sub Stampa()
Application.ScreenUpdating = False
Sheets("Foglio1").Select
inizio = Range("a1").Address
fine = Range("n10000").End(xlDown).Address
ActiveSheet.PageSetup.PrintArea = inizio & ":" & fine
ActiveSheet.PrintOut
Application.ScreenUpdating = True
End Sub


purtroppo io ho in colonna "M" una formula mascherata dalla formattazione condizionale... purtroppo la stampa va fino alla fine della formula in riga 3000...incurante della formattazione che impedisce la vista ai dati...
non riesco a trovare la soluzione per ovviare alla inutile stampa, dal momento che i dati possono fermarsi anche in poche righe...

lascio il file...così è più chiaro

vi ringrazio sempre per l'aiuto che potete darmi... ciao




Ciao Giampaolo
se ho capito bene tu vorresti stampare il range da A1 a M fino alla riga contenente un valore, per cui puoi provare questa:

Sub Stampa()
Application.ScreenUpdating = False
Sheets("Foglio1").Select
inizio = Cells(65000, 1).End(xlUp).Row
fine = Cells(65000, 6).End(xlUp).Row
Range(Cells(1, 1), Cells(fine, 13)).Select
Selection.PrintOut
Application.ScreenUpdating = True
End Sub
Se la stampa parte sempre da A1 puoi omettere la stringa
"inizio = .........."
Fai sapere se ti funziona



franco
Excel 2007
Post: 45
Registrato il: 28/08/2007
Città: VERONA
Età: 63
Utente Junior
2016
OFFLINE
15/04/2009 14:30

ciao Bigballo, funziona benissimo...grazie mille...
avendo pochissima conoscenza di excel...non sarei mai riuscito a risolvere...ancora grazie...a presto
Vota:
Amministra Discussione: | Chiudi | Sposta | Cancella | Modifica | Notifica email Pagina precedente | 1 | Pagina successiva
Nuova Discussione
 | 
Rispondi
Feed | Forum | Bacheca | Album | Utenti | Cerca | Login | Registrati | Amministra
Tutti gli orari sono GMT+01:00. Adesso sono le 05:51. Versione: Stampabile | Mobile | Regolamento | Privacy
FreeForumZone [v.6.1] - Copyright © 2000-2024 FFZ srl - www.freeforumzone.com