|
Hallo,
mit dem VBA-Code könnte es tatsächlich funktionieren, wenn zuvor ein PDF-Drucker als Standard-Drucker eingestellt wurde:
With ActiveDocument.MailMerge
.Destination = wdSendToPrinter
.SuppressBlankLines = True
With .DataSource
.FirstRecord = wdDefaultFirstRecord
.LastRecord = wdDefaultLastRecord
End With
.Execute Pause:=False
End With
Wichtig ist hierbei nur die Zeile
.Destination = wdSendToPrinter
Falls jedoch nach dem Absenden des Druckbefehls noch weitere Dialogboxen angezeigt werden, kann diese LÖsung nicht angewandt werden.
Manche PDF-Drucker können spezielle Profile erstellen, in denen bereits alle weitergehende Angaben (z.B. Speicherpfad, Qualität, ...) eingestellt werden können. Für jedes Profil wird in der Regel ein eigener Drucker im System angelegt.
In diesem Fall kann der obige VBA-Code angewandt werden.
VG, BigBen
|