Generare da stampa unione più documenti pdf

Anonimo
2012-12-12T19:27:39+00:00

Ho fatto una stampa unione (xls+word) al fine di generare fatture.

adesso dovrei per ogni fattura generare un pdf e nominare il relativo pdf, al fine di inviarla al cliente.

Questa procedura per le 40 fatture è comunque onerosa in quanto dovrei per ogni singola fattura stamparla in pdf salvarla sul dekstop e naturalmente nominarla secondo determinati criteri.

E' possibile dal documento di stampa unione generare in automatico le 40 fatture in formato pdf e possibilmente nominare i file secondo determinati criteri?

es.

fatt-30-12-dicembre-2012-cliente-rossi.pdf

Grazie!

Microsoft 365 e Office | Excel | Per la casa | Windows

Domanda bloccata. Questa domanda è stata eseguita dalla community del supporto tecnico Microsoft. È possibile votare se è utile, ma non è possibile aggiungere commenti o risposte o seguire la domanda.

0 commenti
Risposta accettata dall'autore della domanda
Anonimo
2012-12-13T00:32:02+00:00

Ciao RichyVC

Intendi qualcosa del genere?

' Modulo1 - Modulo

'

Option Explicit

Public Sub Test()

On Error GoTo ErrH

Dim mm As Word.MailMerge

Dim i

    Application.ScreenUpdating = False

    Set mm = ThisDocument.MailMerge

    With mm

      .Destination = wdSendToNewDocument

      With .DataSource

        For i = 1 To .RecordCount

          .FirstRecord = i

          .LastRecord = i

          mm.Execute

          With Application.ActiveDocument

            .SaveAs "D:\Percorso" & Format(i, "0000") _

                  , 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

La risposta è stata utile?

30+ persone hanno trovato utile questa risposta.
0 commenti

40 risposte aggiuntive

Ordina per: Più utili
Più utili Più recente Meno recente
  1. Anonimo
    2013-07-13T13:57:50+00:00

    Buongiorno,

    questa macro mi è molto utile. Ho modificato una stringa perché volevo che nel nome del pdf comparisse il numero di fattura (è un campo del file excel) seguito da un trattino e seguito dal nome del cliente.

    Quindi ho sostituito soltanto

    strFilename = .DataFields("matricola").Value

    con

    strFilename = .DataFields("N").Value & "-" & .DataFields("Cognome").Value

    Tutto funziona tranne per un piccolo dettaglio. Alla fine viene generato anche un file pdf "-.pdf" che ovviamente non contiene alcun valore di campo al suo interno.

    Come faccio a eliminarlo?

    Grazie mille!

    Riccardo

    La risposta è stata utile?

    0 commenti
  2. Anonimo
    2013-06-22T06:26:16+00:00

    Ciao SergioD.,

    grazie del riscontro. :)

    La risposta è stata utile?

    0 commenti
  3. Anonimo
    2013-06-06T13:37:42+00:00

    Sei un genio, mi hai risparmiato ORE di lavoro.

    GRAZIE

    La risposta è stata utile?

    0 commenti
  4. Anonimo
    2013-06-03T15:23:05+00:00

    Con la terza versione proposta da Maurizio Borrelli riesco perfettamente a salvare singoli file *.pdf nominati con il testo presente in un campo, grazie.

    Potrei costruire la stringa personalizzata in una colonna del file dati, ed indicare quel campo nella macro per avere file nominati con più informazioni (es: "Rec"-"Codici"-yyyymmgg della stampa).

    Per non appesantire il file Excel con dati ridondanti, sarebbe comunque interessante capire se è possibile farlo anche dalla macro.

    Per oggi, sono comunque dettagli.

    Grazie ancora / paolo

    La risposta è stata utile?

    0 commenti