Stampare piu cartelle in pdf e unirli in un unico file pdf

[marco_budinPartecipante marco_budin Karma: 2 pts]

ciao a tutti,

ho scritto questo codice. Come potere vedere dal codice vba sotto, stampa 5 cartelle dello stesso file Excel in pdf. Il problema sta che li crea e li salva in maniera separata. C'è un modo per unirli in un unico pdf nell'ordine come descritto sotto? il nome del file potrebbe essere descritto da fName = Range("ab4").Value.

Vi ringrazio anticipatamente per l'eventuale aiuto!

saluti

Marco

Dim fName As String
Worksheets("intervento spinale").Select
fName = Range("ab4").Value

Sheets("Lista s3").Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
            "O:\Neuroradiologia\Sala Angio Report Pazienti\Sala OP\Spinale\" & fName & "_1ReportSala" & ".pdf", Quality:=xlQualityStandard, _
            IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False

Sheets("Lista s1").Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
            "O:\Neuroradiologia\Sala Angio Report Pazienti\Sala OP\Spinale\" & fName & "_2ReportImpiantati" & ".pdf", Quality:=xlQualityStandard, _
            IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False

Sheets("Lista s2").Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
            "O:\Neuroradiologia\Sala Angio Report Pazienti\Sala OP\Spinale\" & fName & "_3ReportUtilizzati" & ".pdf", Quality:=xlQualityStandard, _
            IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False

Sheets("Lista s4").Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
            "O:\Neuroradiologia\Sala Angio Report Pazienti\Sala OP\Spinale\" & fName & "_4ReportGarze" & ".pdf", Quality:=xlQualityStandard, _
            IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False


Sheets("Fatturazione S").Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
            "O:\Neuroradiologia\Sala Angio Report Pazienti\Sala OP\Spinale\" & fName & "_5ImputazioniCosti" & ".pdf", Quality:=xlQualityStandard, _
            IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False

[patelModeratore patel Karma: 51 pts]

un esempio

Sub exportToPdfAllSheetsTo1pdf() ' tutti i fogli in un unico documento
Sheets(Array("Foglio1", "Foglio2")).Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:= _
"F:\Download\NewBook.pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
True
Sheets(1).Select
End Sub

[marco_budinPartecipante marco_budin Karma: 2 pts]

Ciao Patel! ti ringrazio per la tua pronta risposta. Quindi nel mio caso diventerebbe così?:

Dim fName As String

Worksheets(“intervento spinale”).Select

fName = Range(“ab4”).Value

 

Sheets(Array("Lista3", "Lista1", “Lista2”; “Lista s4”, “Fatturazione S”)).Select

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:= _

O:\Neuroradiologia\Sala Angio Report Pazienti\Sala OP\Spinale\” & fName & “_ReportFinale” & “.pdf”, Quality:=xlQualityStandard, _

IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _

True

Sheets(“Intervento spinale”).Select

Ringrazio

saluti

Marco

[patelModeratore patel Karma: 51 pts]

per incollare il codice devi cliccare sul tasto CODE, si apre una finestra, devi incollarlo dentro quella finestra, scorrere in basso e cliccare sul tasto Insert.

Comunque basta provarlo il codice che hai scritto, se funziona va bene.

[marco_budinPartecipante marco_budin Karma: 2 pts]

Perfetto come sempre! grazie mille Patel

alla prossima

saluti

Marco

[Autore]

Articoli