Moderatori: Dylan666, hydra, gahan
Sub SPrArea()
Dim maxR As Long, maxC As Long
'
maxR = Evaluate("max(row(1:1000)*(A1:AA1000<>""""))")
maxC = Evaluate("max(transpose(row(1:27))*(A1:AA1000<>""""))")
ActiveSheet.PageSetup.PrintArea = "$A$1:" & Cells(maxR, maxC).Address
End Sub
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Call SPrArea
End Sub
Ma " " (uno "spazio") non e' il vuoto... La cosa piu' vicina al vuoto e'Le celle del foglio STAMPA hanno varie formule che se trovano i valori, copiano i dati, in mancanza lasciano la cella vuota (" ").
""
Problemi di stampa su carta adesiva lucida con Epson Et 2850 Autore: lukarello7 |
Forum: Discussioni Risposte: 5 |
Problemi di stampa file .PDF da macro. Autore: zanatta77 |
Forum: Applicazioni Office Windows Risposte: 1 |
Impostazione stampante per stampa foto personalizzate n Autore: mastino46 |
Forum: Software Windows Risposte: 4 |
Visitano il forum: Nessuno e 55 ospiti