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-03-25T12:11:26+00:00

Salve Maurizio,

mi scuso anticipatamente per l'intrusione, ma ho una esigenza molto simile e questa discussione mi ha dato lo spunto per elaborare una mia soluzione.

Incontro però un problema e, per non disturbare troppo postando i miei file come suggerito ad altri, vorrei sapere come poter avere informazioni più dettagliate sull'errore che ottengo.

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 essendo un esperto di VBA non ho idea di come effettuare un debug o qualcosa del genere.

Hai qualche consiglio in merito?

Grazie mille in anticipo

Daniele
La risposta è stata utile?

0 commenti Nessun commento
Anonimo

2013-03-22T16:30:53+00:00
Ciao vence82,

la risposta già te l'ha fornita Mauro Gamberini, che saluto, ma una curiosità ce la devi togliere... Come facevi, prima, a ottenere il file pdf? Perché ti ricordo che hai scritto che, come al volatilizzato DanieleVanzini, ti capitava:
- che la macro lavora per tutta l'unione, ma poi alla fine ho solo il pdf con la prima unione
La risposta è stata utile?

0 commenti Nessun commento
Anonimo

2013-03-22T16:09:25+00:00

Ciao,

ti ringrazio.

Sei stato preziosissimo.

Alla prossima

Vincenzo

;-)

Ciao e alla prossima.
La risposta è stata utile?

0 commenti Nessun commento
Anonimo

2013-03-22T16:07:21+00:00

Ciao,

ti ringrazio.

Sei stato preziosissimo.

Alla prossima

Vincenzo
La risposta è stata utile?

0 commenti Nessun commento