Condividi:        

Macro per stampa unione su più fogli excel

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

Macro per stampa unione su più fogli excel

Postdi stobyland » 17/03/17 17:49

Ciao a tutti,
stampo spessissimo documenti con stampa unione (quasi sempre direttamente in pdf).
In genere ho un modello word che collego ad un file excel che contiene parecchi fogli. (ogni foglio contiene una serie di dati che generano n files) collegato il modello word con il primo dei fogli del mio file Excel, avvio la stampa unione.
Finita la stampa unione con i dati del primo foglio, devo ricollegare word con il medesimo file e stavolta scegliere il secondo foglio e poi avviare nuovamente la stampa unione. Questa operazione la eseguo n volte ogni giorno e mi chiedevo se era possibile automatizzarla.
spero di essermi spiegato a sufficienza.
Vi ringrazio in anticipo per l'attenzione che vorrete dedicarmi.

stoby
stobyland
Newbie
 
Post: 2
Iscritto il: 17/03/17 17:39

Sponsor
 

Re: Macro per stampa unione su più fogli excel

Postdi ricky53 » 18/03/17 01:47

Ciao,
in word attiva il registratore di macro ed esegui i passi di stampa unione ed associazione del file/foglio.
Ferma il registratore ed invia il codice ... sono un conoscitore medio del VBA di word ma ci posso provare e poi ... altri utenti sicuramente ti aiuteranno
Dice il vecchio saggio provare e riprovare è l'unica strada per imparare

Più chiara è la vostra spiegazione
Più immediata sarà la nostra soluzione


. . . . . . . . . .
S.O. W10; Office 2003-10-13-16-19
Avatar utente
ricky53
Utente Senior
 
Post: 4565
Iscritto il: 11/04/09 19:29
Località: Italia

Re: Macro per stampa unione su più fogli excel

Postdi stobyland » 20/03/17 11:34

ciao
grazie mille per la risposta.
di seguito la macro che ho registrato:

Codice: Seleziona tutto
Sub Macro1()
'
' Macro1 Macro
'
'
    ActiveDocument.MailMerge.OpenDataSource Name:= _
        "D:\DATI\INFORMATICA\ATTESTATI\DB_2016.xlsx", _
        ConfirmConversions:=False, ReadOnly:=False, LinkToSource:=True, _
        AddToRecentFiles:=False, PasswordDocument:="", PasswordTemplate:="", _
        WritePasswordDocument:="", WritePasswordTemplate:="", Revert:=False, _
        Format:=wdOpenFormatAuto, Connection:= _
        "Provider=Microsoft.ACE.OLEDB.12.0;User ID=Admin;Data Source=D:\DATI\INFORMATICA\ATTESTATI\DB_2016.xlsx;Mode=Read;Extended Properties=""HDR=YES;IMEX=1;"";Jet OLEDB:System database="""";Jet OLEDB:Registry Path="""";Jet OLEDB:Engine Type=37" _
        , SQLStatement:="SELECT * FROM `PIAMA089$`", SQLStatement1:="", SubType:= _
        wdMergeSubTypeAccess
    ActivePrinter = "PDFCreator"
    With ActiveDocument.MailMerge
        .Destination = wdSendToPrinter
        .SuppressBlankLines = True
        With .DataSource
            .FirstRecord = wdDefaultFirstRecord
            .LastRecord = wdDefaultLastRecord
        End With
        .Execute Pause:=False
    End With
End Sub


bisognerebbe trovare anche il modo di rinominare ongi file pdf generato con il nome del foglio corrispondente
grazie ancora
stobyland
Newbie
 
Post: 2
Iscritto il: 17/03/17 17:39

Re: Macro per stampa unione su più fogli excel

Postdi Anthony47 » 23/03/17 14:17

Non vorrei destabilizzare il lavoro fatto, d'altra parte non ho una reale esperienza di Stampa Unione per aiutare in modo concreto; comunque in questi casi io suggerisco sempre di valutare l'uso di un addin sviluppato da Graham Mayor e descritto qui: http://www.gmayor.com/individual_merge_letters.htm
(e' gratuito, ma una piccola donazione "per la causa" la consiglio sempre)
G.Mayor e' stato insignito da Microsoft del riconoscimento "MVP - Most Valuable Professional" per i suoi lavori su Word ed e' ben conosciuto alla comunita' di esperti Word.

Ciao
Avatar utente
Anthony47
Moderatore
 
Post: 19181
Iscritto il: 21/03/06 16:03
Località: Ivrea


Torna a Applicazioni Office Windows


Topic correlati a "Macro per stampa unione su più fogli excel":


Chi c’è in linea

Visitano il forum: Nessuno e 51 ospiti

cron