Generare da stampa unione più documenti pdf

Ciao, 

ho provato ad usare tutte le soluzioni proposte in questo thread ma nessuna mi stampa i diversi file .pdf

che cosa c'è di sbagliato nel comando?

Perché a volte mi dice oggetto inesistente? Che oggetto è inesistente?

Uso un file word in versione macro, che usa come sorgente dati un file excel

Caso 1:

' Modulo1 - Modulo

'

Option Explicit

Public Sub Test2()

On Error GoTo ErrH

Dim objWdMailMerge  As Word.MailMerge

Dim lngRecNum       As Long

Dim strPath         As String

Dim strFilename     As String

    Application.ScreenUpdating = False

    strPath = "**C:\Ste\Work\Messa a Disposizione**"

    Set objWdMailMerge = ThisDocument.MailMerge

    With objWdMailMerge

      .Destination = wdSendToNewDocument

      With .DataSource

        .ActiveRecord = wdLastRecord

        lngRecNum = .ActiveRecord

        .ActiveRecord = wdFirstRecord

        Do

          .FirstRecord = .ActiveRecord

          .LastRecord = .ActiveRecord

          strFilename = .DataFields("Nome").Value

          If Len(strFilename) Then

            strFilename = strPath & strFilename

            objWdMailMerge.Execute

            With ActiveDocument

              .SaveAs strFilename, wdFormatPDF, AddToRecentFiles:=False

              .Saved = True

              .Close

            End With

          End If

          If .ActiveRecord = lngRecNum Then Exit Do

          .ActiveRecord = wdNextRecord

        Loop

      End With

    End With

ExitProc:

    Application.ScreenUpdating = True

    Set objWdMailMerge = Nothing

    Exit Sub

ErrH:

    MsgBox Err.Description

    Resume ExitProc

End Sub

Caso 2:

' Modulo1 - Modulo

'

Option Explicit

Public Sub Test()

On Error GoTo ErrH

Dim mm As Word.MailMerge

Dim i As Long

Dim s As String

    Application.ScreenUpdating = False

    Set mm = ThisDocument.MailMerge

    With mm

      .Destination = wdSendToNewDocument

      With .DataSource

        For i = 1 To .RecordCount

          .FirstRecord = i

          .LastRecord = i

          mm.Execute

            s = "**C:\Ste\Work\Messa a Disposizione**"

            s = s & "Ste.F"

            s = s & "_"

            s = s & "MAD"

            s = s & "_"             

            s = s & .DataFields(.FieldNames("Nome")).Value

            With Application.ActiveDocument

              .SaveAs s _

                    , wdFormatPDF _

                    , AddToRecentFiles:=False                  , wdFormatPDF _

                  , AddToRecentFiles:=False

            .Saved = True

            .Close

          End With

        Next

      End With

    End With

ExitProc:

    Application.ScreenUpdating = True

    Set mm = Nothing

    Exit Sub

ErrH:

    MsgBox Err.Description

    Resume ExitProc

End Sub

CASO 3

anche provando con quella di seguito, non so cosa e come modificare!!

1. Sub Unione_in_pdf()
3. Dim fd As FileDialog
5. 'Crea un oggetto FileDialog per scegliere la cartella in cui salvare i file
6. Set fd = Application.FileDialog(msoFileDialogFolderPicker)
7. With fd
9. 'Usa il metodo Show per mostrare la finestra di dialogo e restituire l'azione dell'utente
10. If .Show = -1 Then
11. For Each vrtSelectedItem In .SelectedItems
13. 'vrtSelectedItem è una stringa che contiene l'indirizzo di ogni elemento selezionato.
14. 'E' possibile usare qualsiasi funzione di I/O sui file utilizzando questo indirizzo.
15. SelectedPath = vrtSelectedItem
17. Next vrtSelectedItem
19. Else
20. MsgBox ("Nessuna cartella è stata selezionata.")
21. Exit Sub
22. End If
24. End With
26. 'Imposta la variabile oggetto a Nothing
27. Set fd = Nothing
29. Application.ScreenUpdating = False
31. MainDoc = ActiveDocument.Name
32. ChangeFileOpenDirectory SelectedPath
33. For i = 1 To ActiveDocument.MailMerge.DataSource.RecordCount
34. With ActiveDocument.MailMerge
35. .Destination = wdSendToNewDocument
36. .SuppressBlankLines = True
37. With .DataSource
38. .FirstRecord = i
39. .LastRecord = i
40. .ActiveRecord = i
42. 'Utilizza alcuni campi del file sorgente per impostare il nome del file pdf
43. 'IMPORTANTE: tali campi vanno personalizzati in base a quelli effettivamente
44. 'presenti nella sorgente dati
45. docName = "Lettera_" & .DataFields("Nominativo").Value & "_" & .DataFields("ID").Value & ".pdf"
46. End With
47. .Execute Pause:=False
49. Application.ScreenUpdating = False
51. End With
53. ActiveDocument.ExportAsFixedFormat OutputFileName:=docName, _
54. ExportFormat:=wdExportFormatPDF, OpenAfterExport:=False, OptimizeFor:= _
55. wdExportOptimizeForPrint, Range:=wdExportAllDocument, From:=1, To:=1, _
56. Item:=wdExportDocumentContent, IncludeDocProps:=True, KeepIRM:=True, _
57. CreateBookmarks:=wdExportCreateNoBookmarks, DocStructureTags:=True, _
58. BitmapMissingFonts:=True, UseISO19005_1:=False
59. ActiveWindow.Close SaveChanges:=False
61. Next i
63. Application.ScreenUpdating = True
65. End Sub

Che cosa sbaglio? Perché mi salva un solo file in Word e non in .pdf, relativo solo alla prima riga della stampa unione?

Ciao,

prima di tutto ti volevo ringraziare per quetsa piccola nozione.... è una mano santa.

Io però ho ancora un problemino:

i nomi del campo ad esempio "FattNum" mi rimane sempre lo stesso (quello del primo  stampa unione) e cosi mi crea sempre un solo pdf (quello del primo).

Io vedo che la macro lavora per tutta l'unione, ma poi alla fine ho solo il pdf con la prima unione

Come posso fare??? grazie

Spero di essere stato abbastanza chiaro...

GRAZIE MILLE E IMPORTANTISSIMO RIUSCIRE A STAMPARE QUESTI PDF PER ME

Grazie Maurizio,

Funziona alla perfezione!

Solo una cosa attualmente mi salva le fatture e le nomina tutte 0001.pdf, 0002.pdf etc..

Se invece volessi che il nome delle fatture coincida ad al campo F del file XLS appartenente al record della propria fattura cosa occorre fare?

Grazie!

Riccardo

Ciao Marizio,

Grazie per la risposta anche se la leggo solo adesso.

Scusa ma dove devo incollare il tuo codice all'interno di word per vedere e mi genera correttamente le 40 fatture?

Grazie ancora!

RichyVC