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