HEELPBOOK - Come creare un pulsante per la stampa su un foglio (VBA) ####################

Molti utenti hanno bisogno di un pulsante che consenta di stampare i dati in un modo specifico, per esempio, solo alcune pagine, l'intera cartella o solamente la selezione.

Per ottenere questo risultato occorre faticare un po'. Innanzitutto bisogna creare questo pulsante, ma l'operazione e' estremamente semplice. Dal menu Inserisci (scheda Inserisci con Excel 2007) selezioniamo Forme e scegliamo la forma che piu' ci aggrada (possiamo eventualmente inserire anche un Word Art).


Ora dobbiamo creare una macro che faccia quello che vogliamo: premiamo ALT+F11 ed entriamo nell'editor VBA.

La sintassi di base per la stampa e' assolutamente semplice:


Sub Stampa()
ActiveWindow.SelectedSheets.PrintOut Copies:=1
End Sub


Questa semplice macro stampera' una copia (Copies:=1) del foglio corrente, ma se vogliamo qualcosa di piu' specifico, possiamo usare queste opzioni:


* per stampare l'intera cartella di lavoro useremo ActiveWorkbook.PrintOut

* per stampare le pagine da 2 a 4 dello stesso foglio useremo: 


ActiveWindow.SelectedSheets.PrintOut From:=1, To:=2, Copies:=1


* per stampare solo la selezione corrente useremo Selection.PrintOut


Una volta che la macro e' stata creata dovremo legarla al pulsante creato. Per fare questo bastera' fare un clic destro e scegliere Assegna Macro ed entrare nella finestra di dialogo Assegna Macro. Da qui bastera' selezionare la macro che ci interessa e confermare con OK.



############ ARTICLE INFO #############

Article Month: November
Article Date: 12/11/2012
Permalink: http://heelpbook.altervista.org/2012/come-creare-un-pulsante-per-la-stampa-su-un-foglio-vba/
Source: http://www.excelling.it/index.php?option=com_content&view=article&id=165%3Acreare-un-pulsante-per-la-stampa&catid=57%3Avba-mini-progetti&Itemid=1
Language: Italian

View more articles on: http://www.heelpbook.net/
Follow us on Facebook: http://it-it.facebook.com/pages/HeelpBook/100790870008832
Follow us on Twitter: https://twitter.com/#!/HeelpBook
Follow us on RSS Feed: http://feeds.feedburner.com/Heelpbook
Follow us on Delicious: http://delicious.com/heelpbook
Linkedin: http://it.linkedin.com/pub/stefano-maggi/27/73a/b20
Google+ : https://plus.google.com/116990277568167008289/posts