hihihihi...come al solito le prime idee che mi vengono in mente sono sempre le piu' complicate!!
Poi ci penso su...e vengono fuori le cose semplici!!
Allora:
apri il tuo file
Strumenti-->MACRO-->REGISTRA MACRO
dai un nome alla macro, scegli una combinazione di tasti per lanciarla rapidamente e salvala in "questo workbook" (questo non e' un passaggio importante...potresti anche salvarla nel file personale...ma se usi la macro solo per questo file non ha senso!!)
FILE-->STAMPA e metti le impostazioni che usi di solito
lanci la stampa e spegni il registratore di macro (devi cliccare su un quadratino blu tipo lo stop che trovi sui lettori cd!)
ALT+F11
dovresti avere una nuova cartella che si chiama moduli
apri la cartella e clicca sul nuovo modulo
dovresti trovare qualcosa di simile a questo (con i dovuti cambiamenti di nome e stampante
)
- Codice: Seleziona tutto
Sub pippo()
'
' pippo Makro
'
'
Application.ActivePrinter = "pluto"
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, _
ActivePrinter:="pluto", Collate:=True
End Sub
prima di
- Codice: Seleziona tutto
Application.ActivePrinter = "pluto"
inserisci questo:
- Codice: Seleziona tutto
indicedipippo = InputBox("numero copie", "macro di stampa")
For i = 1 To indicedipippo
e prima di
- Codice: Seleziona tutto
endsub
metti il codice per chiudere il ciclo for-next
- Codice: Seleziona tutto
next i
e il gioco e' bello che fatto!!!!
Ora quando vuoi stampare e tenere conto delle stampe devi usare la combinazione di tasti che hai specificato per la macro!!!
Se vuoi rendere la cosa ancora + semplice, clicca destro sulla barra in altro (dove ci sono le icone per salvare i file, stampare, fare i grafici...) scegli customizza (e' l'ultima voce del menu!) vai sul secondo tab (quello in centro) e fai scorrere le categorie fino a MACRO. Trascina la faccina sorridente sulla barra dove preferisci. Clicca destro sull'iconcina e scegli assegna macro! Una volta assegnata la macro potrai semplicemente cliccare la faccina (puoi anche cambiarla se vuoi!!).
Testato e funzionante!
HTH