Stampa excel

Hai un problema con Excel?

Nuova discussione

Stampa excel
di Jumbo64 (utente non iscritto) data: 26/01/2011
Ho bisogno di stampare un foglio di lavoro che contiene un numero di righe che può cambiare a seconda della compilazione (esempio una volta 10 righe di nomi e relativi dati un'altra volta 150) quindi su più pagine. ho creato un pulsante che mi estrae la lista di nomi da un database, ma siccome non so quanto é lunga non riesco ad aggiungere dopo i totali finali un gruppo firma, evitando che casualmente questo rientri per metà in una pagina e metà in un'altra. non sono molto pratico e chiedo aiuto. grazie.
Re
di Peppemassa data: 07/02/2011
Beh, le soluzioni sono tante

una delle quali, se non ti interessa di quante righe vuoi stampare in un foglio e quante in un'altro foglio, sarebbe quella di rendere attivo il foglio e di dargli l'imput di stampa
ovviamente, prima di inserire i dati nel foglio, puliscilo ( per excel 2003 sarebbe: sheets("foglio1").range("a1:iv65536")=""
oppure sheets("foglio1").range("a1:iv65536")= clearcontents , per excel2007 cambiano i range in ("a1:xfd1048576") )
poi attivi il foglio 1
sheets("foglio1").activate
ed infine dai l'imput di stampa con activesheets.printout

altra soluzione sarebbe quella di stampare le 55 righe standard in ogni pagina e a questo punto dovresti fare un progamma del genere

prima conti le righe
poi le dividi per il numero delle righe che vuoi stampare per ogni pagina
e poi fai un for next per ogni trance di righe da stampare

ti faccio un esempio:
ammesso che tu voglia stampare 30 righe per foglio ( e diciamo che tu voglia stampare dalla colonna a alla colonna i ) fai in questo modo:

dim riga
riga = application.worksheetfunction.counta(sheets("foglio1").range("a1:a65536"))
for i = 1 to riga step 30
sheets("foglio1").range("a"&riga,"i"&riga+29").activate
activesheet.pagesetup.printarea = "$a$&riga:$i$&riga+29"
activesheets.printout
next i

vedi e fammi sapere
altrimenti se hai delle esigenze piu' specifiche, descrivile della risposta che ti aiuto
saluti
peppe

Vuoi Approfondire?