Stampare foglio nascosto

Question

Ciao a tutti,

Ho il foglio3 nascosto con dei collegamenti al foglio 1 e foglio2, quando finisco di compilare i vari campi del foglio 1 e del foglio2 dovrei stampare il foglio3 tramite macro senza visualizzarlo. Le celle da stampare vanno dalla cella B2:L60, potreste aiutarmi? Grazie per l’attenzione che presterete.

Answer 1

Ciao a tutti,

Ho il foglio3 nascosto con dei collegamenti al foglio 1 e foglio2, quando finisco di compilare i vari campi del foglio 1 e del foglio2 dovrei stampare il foglio3 tramite macro senza visualizzarlo. Le celle da stampare vanno dalla cella B2:L60, potreste aiutarmi? Grazie per l’attenzione che presterete.

Prova:

Public Sub m()

    Dim sh As Worksheet

    Set sh = ThisWorkbook.Worksheets("Foglio2")

    Application.ScreenUpdating = False

    With sh

        .Visible = xlSheetVisible

        .PrintOut

        .Visible = xlSheetVeryHidden

    End With

    Application.ScreenUpdating = True

    Set sh = Nothing

End Sub

Sostituendo a Foglio2 il nome del tuo foglio.

Se(se) hai un'area di stampa predefinita:

Public Sub m()

    Dim sh As Worksheet

    Set sh = ThisWorkbook.Worksheets("Foglio2")

    Application.ScreenUpdating = False

    With sh

        .Visible = xlSheetVisible

        .PageSetup.PrintArea = "$B$2:$L$60"

        .PrintOut

        .Visible = xlSheetVeryHidden

    End With

    Application.ScreenUpdating = True

    Set sh = Nothing

End Sub

Answer 2

Mauro funziona benissimo, grazie ancora per quello che fai a favore del forum.

Ma grazie a voi. Senza domande, nessun forum!

Buon lavoro e alla prossima.

Answer 3

Mauro funziona benissimo, grazie ancora per quello che fai a favore del forum.