Serienbrief drucken ohne "Drucken"-Fenster

Hallo wertes Forum,

ich arbeite gerade (fast alleine in unserer Hauptverwaltung :-/ ) an einem Excel-Programm, welches Daten in eine separate Excel-Datei schreibt und dann Word aufruft. Word soll dann einen Serienbrief drucken, welcher als Basis die ausgelagerte Excel-Datei benutzt.
All dies soll mit einem Button passieren. Funktioniert ja auch alles, aber man muß immer noch das "Drucken"-Fenster von Hand bestätigen (ähnlich wie bei Strg-P). Zur Zeit sieht die entscheidende Stelle im Makro so aus:

With ActiveDocument.MailMerge
.Destination = wdSendToPrinter
.Execute
End With

Geht das auch ohne daß der Benutzer noch mal klicken muß? Danke im voraus für Eure Hilfe für einen einsamen Arbeitnehmer.

Gruß

Marc

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo,

anbei der Code des Makros, welches beim Start der Word-Datei aktiviert wird.
Vielen Dank nochmals für die Hilfe. Schlimm genug, wenn man hier fast alleine
arbeitet (immerhin ist es mal recht ruhig jetzt).

Gruß

Marc


Private Sub Document_open()
ActiveDocument.MailMerge.OpenDataSource Name:= _
"C:\Bema\Schnittstelle9.xls" _
, ConfirmConversions:=False, ReadOnly:=False, LinkToSource:=True, _
AddToRecentFiles:=False, PasswordDocument:="", PasswordTemplate:="", _
WritePasswordDocument:="", WritePasswordTemplate:="", Revert:=False, _
Format:=wdOpenFormatAuto, Connection:="Gesamtes Tabellenblatt", _
SQLStatement:="", SQLStatement1:=""
ActiveDocument.MailMerge.ViewMailMergeFieldCodes = wdToggle
ActiveDocument.MailMerge.DataSource.ActiveRecord = wdNextRecord
ActiveDocument.MailMerge.DataSource.ActiveRecord = wdNextRecord
ActiveDocument.MailMerge.DataSource.ActiveRecord = wdNextRecord
ActiveDocument.MailMerge.DataSource.ActiveRecord = wdNextRecord
ActiveDocument.MailMerge.DataSource.ActiveRecord = wdNextRecord
ActiveDocument.MailMerge.DataSource.ActiveRecord = wdNextRecord
ActiveDocument.MailMerge.DataSource.ActiveRecord = wdNextRecord
ActiveDocument.MailMerge.DataSource.ActiveRecord = wdPreviousRecord
ActiveDocument.MailMerge.DataSource.ActiveRecord = wdPreviousRecord
ActiveDocument.MailMerge.DataSource.ActiveRecord = wdPreviousRecord
ActiveDocument.MailMerge.DataSource.ActiveRecord = wdPreviousRecord
ActiveDocument.MailMerge.DataSource.ActiveRecord = wdPreviousRecord
ActiveDocument.MailMerge.DataSource.ActiveRecord = wdPreviousRecord
ActiveDocument.MailMerge.ViewMailMergeFieldCodes = wdToggle
ActiveDocument.MailMerge.ViewMailMergeFieldCodes = wdToggle
ActiveDocument.MailMerge.DataSource.ActiveRecord = wdNextRecord
ActiveDocument.MailMerge.ViewMailMergeFieldCodes = wdToggle
With ActiveDocument.MailMerge
Application.DisplayAlerts = False
.Destination = wdSendToPrinter
.Execute
End With
ActiveDocument.Save
End Sub

Beliebteste Forumthreads (12 Monate)

Serienbrief drucken ohne "Drucken"-Fenster

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Serienbrief drucken ohne "Drucken"-Fenster

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread