...a questo punto mi aspetterei che mi partissero in stampa tutte le lettere e invece mi parte solamente la lettere modello con i campi usati nella stampa unione...
Ho risolto il problema mettendo il seguente codice:

codice:
Dim objDoc As Word.Document
    Set objDoc = objWord.Documents.Open("c:\lettere.doc")
    objDoc.Activate
    
    With ActiveDocument.MailMerge 
        .Destination = wdSendToNewDocument
        .SuppressBlankLines = True
        With .DataSource
            .FirstRecord = wdDefaultFirstRecord
            .LastRecord = wdDefaultLastRecord
        End With
        .Execute Pause:=False
    End With

    ActiveDocument.PrintOut
Ora il mio problema è un altro.
La prima volta che mando in esecuzione la procedura tutto funziona bene e mi vengono stampate in sequenza le lettere.
Se, una volta termiata la stampa, chiudo word e ripeto la procedura di stampa lettere il programma si blocca alla riga di codice segnata in BLU e mi viene restituito il seguente errore:
"Il computer server remoto non esiste o non è disponibile"


Suggerimenti