Stampare fogli nascosti

  • Stampa fogli nascosti di Pino
    Ciaao a tutti, da un pò di tempo mi stò scervellando per riuscire a stampare tutti i fogli nascosti di una cartella di lavoro ho provato con diverse macro ma senza risultato....qualcuno conosce un trucco per ovviare a tale inconveniente??

    di Enzo
    Rendi visibile il foglio, lo stampi e lo rinascondi

    di Enzo
    Nella descrizione qui sotto
    rendi visibile il foglio1, lo stampi e lo rinascondi
    ciao
     
     Sheets("Foglio1").Visible = True
        ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
        ActiveWindow.SelectedSheets.Visible = False

    Stampa fogli nascosti di Pino
    Grazie enzo, ci ho provato ma appena rinascondo i fogli mi da debug.............la tua è una soluzione che provo da tempo forse sbaglio qualcosa nella macro che è questa:
    sub stampa_nascosti()
    '
    ' stampa_nascosti macro
    ' macro registrata il 28/09/2006 da casaburi
    '

    '
    activewindow.scrollworkbooktabs position:=xllast
    activewindow.scrollworkbooktabs position:=xllast
    sheets(array("riepilogo commessa", "ricavi e costi", "riepilogo valori", _
    "costi personale interno", "costi consulenze esterne.", "altri costi esterni", _
    "ricavi e costi 1° anno", "riepilogo valori 1° anno", "ricavi e costi 2° anno", _
    "riepilogo valori 2° anno", "ricavi e costi 3° anno", "riepilogo valori 3° anno") _
    ).select
    sheets("riepilogo commessa").activate
    application.activeprinter = "phaser 8400dp i piano su ne04:"
    activewindow.selectedsheets.printout copies:=1, activeprinter:= _
    "phaser 8400dp i piano su ne04:", collate:=true
    end sub

    Ciao pino di Apoben64
    Per rinascondere il foglio, devi eliminare l'ultima istruzione che ti ha indicato enzo e metterci la prima con la condizione false.
    ciao luca
    Sheets("Foglio1").Visible = True
        ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
       Sheets("Foglio1").Visible = False

    Stampa fogli nascosti di Pino
    Ringrazio tutti......con le vostre indicazioni ho fatto rifunzionare il cervello adesso funziona ed ho aggiunto all'inizio "application.screenupdating= fale" per non far vedere tutta la elaborazione.............funzionaaaaaaaaaaaaaa

    di Enzo
    Buon per te ma non capisco cosa centra l'istruzione screen.updating = false con il provblema che avevi tu
    questa istruzione e' posta all'inizio di una macro ma solo per far si che durante l'esecuzione di una macro non si vedano a video tutti i passaggi
    ma se c'e' un debug nell'istruzione o un errore questo te lo segnala sempre


    Stampa fogli nascosti di Pino
    Ciao enzo quell'istruzione all'inizio della macro serve proprio a questo........nascondere le operazioni a video e poi diventa più veloce la macro, cmq funziona tutto senza errori, la uso normalmente