Mailmerge og print

Hej alle,

Jeg er ved at lave et par makroer til udskrivning af brevfletning. Men der er et udskrift jeg ikke kan få til at virke, og det er brevfletning, hvor man selv kan vælge hvilken printer der skal bruges.

Jeg har ikke noget problem med at lave en makro der vælger printeren for brugerne, men jeg kan ikke få det andet til at virke. Jeg tænkte at man kunne bruge:

Application.Dialogs(xlDialogPrinterSetup).Show

Men denne kan jeg ikke få implementeret i min makro:

  ActivePrinter = "PDF"
    With ActiveDocument.MailMerge
        .Destination = wdSendToPrinter
        .SuppressBlankLines = True
        With .DataSource
            .FirstRecord = wdDefaultFirstRecord
            .LastRecord = wdDefaultLastRecord
        End With
        .Execute Pause:=False
    End With
End Sub


På forhånd tak.
Peter