[Excel] stampa di fogli diversi da quello di origine

[belsav]

Ho cercato nel forum di trovare qualcosa che mi risolvesse il problema, ma non ho trovato nulla.
Il problema è questo: Dovrei stampare dei fogli nascosti (ognuno corrisponde ad una scheda per un totale di 5), quindi mi servirebbe un "comando" per stamparli, decidendo quale dei 5, dall'unico foglio visibile.
Spero si essere stato chiaro nell'esposizione. Colgo l'occasione per inviare un grazie sincero per Antony47 da parte dei miei colleghi di lavoro per l'aiuto datomi qualche tempo fa.
Ho imparato parecchio grazie ai quesiti posti nel forum. Sicuro che qualcuno mi darà una buona dritta, a presto
belsav

[Anthony47]

Ciao e bentornato.
Ovviamente dovrai "scoprire" i fogli nascosti prima di poterli stampare.
Puoi procedere in questo modo:
-ti fai sul foglio aperto un elenco degli altri fogli disponibili, ad eccezione del foglio che tieni aperto.
-poi copi la seguente macro sul tuo file

Codice: Seleziona tutto

Sub PrintSheets()
For Each sh In Selection
Sheets(sh.Value).Visible = True
    Sheets(sh.Value).PrintOut
    Sheets(sh.Value).Visible = False
Next sh
End Sub

Procedura: apri il vba editor con Alt-F11; fai Inserisci /Modulo; ti inserisce un foglio con a dx un frame bianco; copi il codice e lo incolli nel frame bianco.
Torni sul foglio excel, crei un pulsante (lo trovi nella barra degli strumenti "Moduli"), a cui associ la macro (durante la fase di crazione del pulsante ti sara' chiesto esplicitamente se vuoi associarlo a una macro: seleziona PrintSheets dall' elenco e conferma con Ok).

Uso: seleziona la cella che contiene il nome del foglio che vuoi stampare e premi il Pulsante; il foglio verra' scoperto, inviato in stampa, nascosto nuovamente. Volendo puoi selezionare anche piu' fogli da inviare in stampa.

E' sufficiente? Ciao.

[belsav]

Come sempre gentilissimo.
Si, più che sufficiente, è proprio quello di cui avevo bisogno.
Grazie!
Saverio