excel aiuto - Suite Microsoft Office

Benvenuto Ospite

Aiutamici Forum » Computer & Internet » Suite Microsoft Office » excel aiuto

excel aiuto

Opzioni

Topic Precedente · Topic Sucessivo

maurosen

Inviato: Friday, October 06, 2006 5:45:55 PM

Rank: Member

Iscritto dal : 12/5/2004
Posts: 0

ciao a tutti.
vi spiego il mio problema su una pagina excel ho un conteggio progressivo di numeri e vorrei che ogni qualvolta vado a stampare me lo aggiorna in automatico; esempio lancio tre stampe dello stesso foglio pero su uun acell apposta mi deve comparire il numero progressivo delle stampe . spero che mi si aspiegato bene
oki ciao e grazie

Torna in alto

Sponsor

Inviato: Friday, October 06, 2006 5:45:55 PM

Torna in alto

a10n11

Inviato: Friday, October 06, 2006 6:21:43 PM

Rank: AiutAmico

Iscritto dal : 5/29/2003
Posts: 1,694

salve
credo che senza ricorrere a VBa non sia possibile. Il codice qui sotto,

Sub Stampa_registra()
ActiveSheet.PageSetup.PrintArea = "$A$1:$I$32"
For x = 1 To 2
ActiveWindow.SelectedSheets.PrintOut Copies:=1
Range("J1") = Range("J1") + 1
Application.Wait Now + TimeValue("00:00:15")
Next
End Sub

nella prima riga definisce l'area di stampa, L'istruzione For x=1 to 2
dice quante copie devono essere stampate, in questo caso 2 copie
procede alla prima stampa e aggiorna il valore della cella J1 dove si è ipotizzato sia indicato il contatore. Per evitare che la macro venga elaborata in blocco, è stata messa una pausa di 15 secondi tra una stampa e l'altra che potrai modificare come vuoi. Qual'ora invece di inserire manualmente nella macro il numero di copie di stampa basta inserire una Input box che ti richiede a video il numero di copie da stampare.
saluti
Andrea

Torna in alto

maurosen

Inviato: Friday, October 06, 2006 7:18:46 PM

Rank: Member

Iscritto dal : 12/5/2004
Posts: 0

scusa ma tutto questo devo inserirlo nella cella , spiegami come fare che sono ignorante con excel grazie

<BLOCKQUOTE id=quote>quote:<hr height=1 noshade id=quote>
salve
credo che senza ricorrere a VBa non sia possibile. Il codice qui sotto,

Sub Stampa_registra()
ActiveSheet.PageSetup.PrintArea = "$A$1:$I$32"
For x = 1 To 2
ActiveWindow.SelectedSheets.PrintOut Copies:=1
Range("J1") = Range("J1") + 1
Application.Wait Now + TimeValue("00:00:15")
Next
End Sub

nella prima riga definisce l'area di stampa, L'istruzione For x=1 to 2
dice quante copie devono essere stampate, in questo caso 2 copie
procede alla prima stampa e aggiorna il valore della cella J1 dove si è ipotizzato sia indicato il contatore. Per evitare che la macro venga elaborata in blocco, è stata messa una pausa di 15 secondi tra una stampa e l'altra che potrai modificare come vuoi. Qual'ora invece di inserire manualmente nella macro il numero di copie di stampa basta inserire una Input box che ti richiede a video il numero di copie da stampare.
saluti
Andrea
<hr height=1 noshade id=quote></BLOCKQUOTE id=quote>

Torna in alto

a10n11

Inviato: Friday, October 06, 2006 7:40:15 PM

Rank: AiutAmico

Iscritto dal : 5/29/2003
Posts: 1,694

<BLOCKQUOTE id=quote>quote:<hr height=1 noshade id=quote>
scusa ma tutto questo devo inserirlo nella cella , spiegami come fare che sono ignorante con excel grazie

Sub Stampa_registra()
ActiveSheet.PageSetup.PrintArea = "$A$1:$I$32"
For x = 1 To 2
ActiveWindow.SelectedSheets.PrintOut Copies:=1
Range("J1") = Range("J1") + 1
Application.Wait Now + TimeValue("00:00:15")
Next
End Sub
<hr height=1 noshade id=quote></BLOCKQUOTE id=quote>
salve
il codice va inserito in un modulo dell'editor di Vba
dal foglio di excel Alt+F11 ti si apre l'editor Vba Menu>Inserisci>modulo
fai il copia/incolla del codice qui sopra. Alt+F11 per tornare al foglio
per lanciare la macro Menu Strumenti>Macro>Macro seleziona nella finestra la macro "Stampa_registra" e clicca su esegui

Nb. prova questa macro su un file di prova mettendo dei valori nell'intervallo di celle tra A1 e I32. La macro ti stamperà due copie del foglio e nella cella
J1 vedrai l'incremento delle copie stampate.
saluti
Andrea

Torna in alto

Utenti presenti in questo topic

Guest

Aiutamici Forum » Computer & Internet » Suite Microsoft Office » excel aiuto

Salta al Forum

Aggiunta nuovi Topic disabilitata in questo forum.
Risposte disabilitate in questo forum.
Eliminazione tuoi Post disabilitata in questo forum.
Modifica dei tuoi post disabilitata in questo forum.
Creazione Sondaggi disabilitata in questo forum.
Voto ai sondaggi disabilitato in questo forum.

Invia topic via Email

RSS Feed

Watch this topic

Stampa topic

Normale

Threaded