Macro stampa di sheet nascosto



  • Macro stampa di sheet nascosto
    di Lysmark (utente non iscritto) data: 10/05/2016 15:07:19

    Buongiorno a tutti!

    Descrivo la costituzione attuale del file Excel sul quale dovrei implementare una stampa (possibilmente PDF) mediante macro.

    In un primo sheet ("Funzioni") ho dei selettori che compongono, a seconda cosa sia selezionato, una scheda che sta in un altro sheet ("Scheda").
    Mediante un pulsante nello sheet ("Funzioni") si procede alla stampa dello sheet "Scheda".
    Finora ho inserito il tutto e funziona a meraviglia, salvo queste due complicazioni:
    - Stampa solo se lo sheet "Scheda" è in stato visibile (scoperto)
    - Stampa con l'ultima stampante selezionata (carta, PDF, fax) e non univocamente su PDF.

    Cosa mi consigliate di fare?
    Vi ringrazio anticipatamente!!!!

    Buon lavoro,
    Marco
     
    Private Sub CommandButton1_Click()
        Sheets("Scheda").Select
        ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
            IgnorePrintAreas:=False
    End Sub



  • di alfrimpa data: 10/05/2016 15:14:52

    Ciao Marco

    Avere un file di esempio sarebbe meglio ma io farei così: occorre "scoprire" il foglio "Scheda", salvarlo in PDF e rinasconderlo.

    Alfredo
     
    Private Sub CommandButton1_Click()
        Sheets("Scheda").Visible = True
        Sheets("Scheda").Select
        ' Qui metti le istruzioni per il salvataggio in PDF; se lo fai una volta manualmente registrando la macro avrai il codice
       Sheets("Scheda").Visible = False
    End Sub