Creare 2 fogli in pdf in unico file

Question

Ciao a tutti,

Ho una cartella con diversi fogli. La mia domanda è semplice: Esiste la possibilità di unire in un unico file ad esempio il foglio1 e il foglio5 convertendoli in pdf? Grazie perchè mostrate sempre considerazione e nello stesso tempo ci arricchite con la vostra conoscenza.

Answer 1

Ciao giudor,

il codice che ti ho indicato nella sua semplicità è quasi banale.

Si limita a fare una scansione di tutti i riferimenti impostati sulla cartella di lavoro e ti segnala l'eventuale presenza di riferimenti errati o mancanti (proprietà IsBroken).

Conseguentemente, se dopo aver installato PdfCreator tu continui ad avere il problema mi sembra evidente che tu abbia qualche altro riferimento mancante. Hai provato ad aprire l'editor VBA e andare nel menù Strumenti --> Riferimenti? Dovresti poter trovare qualche altro riferimento con l'indicazione "Manca" davanti.

Se volessi essere più specifico, e quindi indagare sul solo riferimento PDFCreator, sarebbe sufficiente questo:

---

Private Sub Workbook_Open()

    On Error Resume Next

    If Me.VBProject.References("PDFCreator").IsBroken Then

        MsgBox "Riferimento PDFCreator errato o mancante"

    End If

End Sub

---

Tuttavia, mi chiedo, che senso avrebbe? Se hai altri riferimenti mancanti è meglio saperlo in partenza. Noo?!!

David

Answer 2

Ciao

potresti, ad esempio, fare un test in fase di apertura della cartella di lavoro per verificare la presenza di riferimenti mancanti in questo modo:

---

Private Sub Workbook_Open()

    Dim rf As Variant

    On Error Resume Next

    For Each rf In Me.VBProject.References

        If rf.IsBroken Then

            MsgBox "Riferimento errato o mancante"

        End If

    Next

End Sub

---

da copiare nel modulo di codice di Thisworkbook/Questa_cartella_di_lavoro

David

Answer 3

Hai ragione David e aggiungo che funziona in modo meraviglioso.

Si potrebbe fare in modo che il file in pdf venga creato nella stessa cartella dove utilizzo la cartella di excel?

Sostituisci:

    Const cPath As String = "C:"

con:

    Dim cPath As String

    cPath = ThisWorkbook.Path

Un consiglio non richiesto. La chiamata alle API la modificherei così:

#If Win64 Then

    Private Declare PtrSafe Sub Sleep Lib "kernel32.dll" (ByVal dwMilliseconds As LongLong)

#Else

    Private Declare Sub Sleep Lib "kernel32.dll" (ByVal dwMilliseconds As Long)

#End If

Answer 4

Grazie David per la risposta,

ho installato PDFCreator, ho provato con il file che hai reso disponibile, non ricevo nessun errore anzi mi esce la finestra che mi dice file'C:\Report finale.pdf' was saved ma non trovo nulla creato. Dove sbaglio?

Answer 5

Ciao giudor

prova a dare un'occhiata questo esempio, è un adattamento di una demo fatta per Access ma mi pare che funzioni.

Stampa PDFCreator 2.xlsm

David