Stampare più fogli in un solo file PDF

Question

Buongiorno,

Avrei la necessità di stampare 12 fogli in un solo file PDF.

Avevo già fatto una cosa simile con l'aiuto di MAuro ma era per un solo foglio. Non so come modificarla per selezionare i 12 fogli e stamparli in un unico file PDF.

Anticipatamente ringrazio

Saluti

Giuseppe

---

Public Sub m()

    Dim sPath As String

    Dim sNome As String

    Application.DisplayAlerts = False

    On Error Resume Next

    With ThisWorkbook

        sPath = .Path

        With .Worksheets("Foglio1")

            sNome = .Range("M13").Value & _

                " - " & .Range("M3").Value

            .ExportAsFixedFormat _

                Type:=xlTypePDF, _

                Filename:=sPath & "" & sNome & ".pdf", _

                Quality:=xlQualityStandard, _

                IncludeDocProperties:=True, _

                IgnorePrintAreas:=False, _

                OpenAfterPublish:=True

        End With

    End With

    Application.DisplayAlerts = True

End Sub

Answer 1

Ho registrato questa macro:

Public Sub m()

    Sheets(Array("Foglio1", "Foglio3", "Foglio5", "Foglio8")).Select

    ChDir "C:\Users\Mauro\Desktop"

    ActiveSheet.ExportAsFixedFormat _

        Type:=xlTypePDF, Filename:= _

        "C:\Users\Mauro\Desktop\Cartel1.pdf", _

        Quality:=xlQualityStandard, _

        IncludeDocProperties:=True, _

        IgnorePrintAreas:=False, _

        OpenAfterPublish:=True

End Sub

Stampa le aree di stampa dei file dell'Array in un unico file .pdf

Answer 2

Mah, a me dava fogli bianchi...

L'importanza è che funzioni! ;-)

Grazie per il cortese riscontro.

Ciao e alla prossima.

Answer 3

Perfetto Mauro,

funziona benissimo anche se non ho capito perchè con l'altra mi stampa solo la selezione attiva del cursore.

Guardandole sembrano le stesse.

Grazie di tutto ed a presto

Ciao

Giuseppe

Answer 4

Buongiorno Mauro,

è perfetta. Ho solo un piccolo problema, ho impostato l'area di stampa che mi interessa ed ovviamente nell'anteprima mi fa vedere solo ciò che voglio stampare.

Quando esporto il file in PDF mi esporta solo dove si trova il cursore.

Come posso far esportare l'aera di stampa precedentemente selezionata?

Grazie

Giuseppe

Answer 5

Selezioni i fogli di tuo interesse, quindi lanci la stampa.

Per selezionare i fogli:

Sheets(Array("Foglio1", "Foglio3", "Foglio5", "Foglio8")).Select

With Selection  '<<=== al posto di With sh

     'ecc.

Modifica i nomi dei fogli con i tuoi