[Vb.Net] Stampa Unione

[Melly]

Nell'evento click di un pulsante ho messo il seguente codice

Dim Selection As Word.Selection
Dim wrdMailMerge As Word.MailMerge
Dim wrdMergeFields As Word.MailMergeFields
Dim WordApp As New Word.Application()
Dim WordDoc As Word.Document

WordApp = GetObject(, "Word.Application")
'WordApp.Visible = True
WordDoc = WordApp.Documents.Open("C:\Nuova Cartella\cedolino.doc")
Selection = WordApp.Selection
wrdMailMerge = WordDoc.MailMerge
With wrdMailMerge
    .MainDocumentType = Word.WdMailMergeMainDocType.wdFormLetters
    .OpenDataSource("C:\Nuova Cartella\Origine.doc") 
    .SuppressBlankLines = True 'bypassa i record vuoti
    .Destination = Word.WdMailMergeDestination.wdSendToNewDocument
    .Execute()

End With
WordApp.WindowState = Word.WdWindowState.wdWindowStateMaximize
WordApp.Windows.Application.ActiveDocument.PrintPreview()
WordApp.ActiveWindow.Caption = "Comunicazione"
WordApp.ActiveWindow.Visible = True 
'WordDoc.ActiveWindow.Visible = True
Selection = Nothing
WordApp = Nothing

facendo il debug sembra che proceda tutto bene tranne che per l'istruzione scritta in rosso che non viene affatto considerata.
Qualcuno sa aiutarmi? dov'è l'errore?

[Melly]

up