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
    2016-11-26T10:27:57+00:00

    Grazie Norman, hai ragione su tutto. Siccome questo thread risale a qualche anno fa, nel frattempo ho risolto.

    Saluti

    Riccardo

    La risposta è stata utile?

    0 commenti
  2. Anonimo
    2016-11-25T22:08:10+00:00

    Ciao Danilo,

    Sto provando ad utilizzare la Macro per poter stampare, dopo la stampa e unione, dei file PDF con il nome della fattura e il numero.

    Purtroppo non riesco perché ricevo sempre l'errore: L'oggetto richiesto non è disponibile.

    Potete dirmi come fare? o vi inoltro il file e implementate/adattare direttamente voi la Macro?

    Grazie anticipate

    Questo è quello che ho trovato online:

    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:\Users\danil\desktop"

        

        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 

    Dato che questo thread è vecchio ormai quattro anni, ti inviterei gentilmente a aprirne uno nuovo per aumentare la possibilità di ottenere risposte utili e anche per aiutare coloro che potessero cercare soluzioni ai problemi simili negli archivi della Community.

    Nel frattempo, mi pare che la macro manchi un pezzo e penso inoltre che si tratti di una macro di Word.

    ===

    Regards,

    Norman

    La risposta è stata utile?

    0 commenti
  3. Anonimo
    2016-11-25T21:08:48+00:00

    Buongiorno a tutti,

    Sto provando ad utilizzare la Macro per poter stampare, dopo la stampa e unione, dei file PDF con il nome della fattura e il numero.

    Purtroppo non riesco perché ricevo sempre l'errore: L'oggetto richiesto non è disponibile.

    Potete dirmi come fare? o vi inoltro il file e implementate/adattare direttamente voi la Macro?

    Grazie anticipate

    Questo è quello che ho trovato online:

    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:\Users\danil\desktop"

        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

    La risposta è stata utile?

    0 commenti
  4. Anonimo
    2016-11-18T20:20:38+00:00

    In Word 2010 ho seguito esattamente le istruzioni, repetendo il tutto 3 volte.

    • quando salvo il file con tutti i campi unione appare un messaggio che dice che non si può salvare in un documento che non prevede le macro
    • dopo aver salvato il documento in formato "con macro" non succee niente lo stesso

    Leo

    La risposta è stata utile?

    0 commenti