Generare da stampa unione più documenti pdf

Anonimo

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!

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

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

ExitProc:

Application.ScreenUpdating = True

Set mm = Nothing

Exit Sub

ErrH:

MsgBox Err.Description

Resume ExitProc

End Sub

0 commenti

40 risposte aggiuntive

Anonimo

2013-06-03T06:40:45+00:00

Buongiorno a tutti,

riapro questa discussione perché ho in parte risolto il mio obiettivo, ma trovato problemi con il suggerimento per il salvataggio di *.pdf con nome personalizzato.

Scopo: generare una stampa unione e salvare singoli file *.pdf, rinominati secondo i campi di un archivio Excel. Non ho problemi con la stampa suggerita con la prima macro (Modulo 3 del mio file), ma non riesco ad ottenere nulla quando voglio salvare il risultato della stampa unione con una stringa personalizzata (Modulo 1). La stringa potrebbe essere: 001-VA00... ("Rec"-"Codice") o altra che includa anche la data della stampa, 001-VA00....-20130603.

Allego link per i file per dare un'occhiata: https://skydrive.live.com/#cid=CFAA7D4A2B39535D&id=CFAA7D4A2B39535D%21127

Ciao e grazie / paolo
La risposta è stata utile?

0 commenti Nessun commento
Anonimo

2013-03-25T13:54:18+00:00

Come non detto!

Non so perchè, ma tutto ad un tratto la macro ha funzionato.

<cut>

Grazie comunque per la disponibilità

Daniele

Bene!

Grazie per il cortese riscontro.

Ciao e alla prossima.
La risposta è stata utile?

0 commenti Nessun commento
Anonimo

2013-03-25T13:04:38+00:00

Come non detto!

Non so perchè, ma tutto ad un tratto la macro ha funzionato.

Preparando una versione senza dati sensibili e riprovando, la macro funzionava; ho riaperto i vecchi file per confrontare le differenze ma a questo punto funzionano anche loro... mistero!

Meglio così.

Grazie comunque per la disponibilità

Daniele
La risposta è stata utile?

0 commenti Nessun commento
Anonimo

2013-03-25T12:15:22+00:00

Ecco quanto succede: all'esecuzione della macro si vede Word che lavora, ma ad un certo punto appare un generico messaggio "Comando fallito", nella cartella appaiono solo 2 PDF relativi alle prime due righe dell'elenco e rimane aperto un nuovo documento Word dal titolo "Lettere tipoXX".

Non è questione di disturbare. E' che postando il tuo file, vediamo il codice e (forse) capiamo dove è l'errore.

Grazie.
La risposta è stata utile?

0 commenti Nessun commento