Word-Dokument über Excel drucken

[TheEinhorn]

Hallo,

ich habe für die Arbeit etwas vor und benötige eure Hilfe zu VBA.

Ich habe in Excel eine Tabelle, in der in Spalte A, Zeile 1 bis Zeile ? was steht. Das kann man per Suchfeld suchen. Hinter diesen Werten, die aus Zahlen und Buchstaben bestehen, soll ein "Hakenfeld". Ist dieses angewählt, soll ein bestimmtes Dokument über ein Button ausgedruckt werden. Schön wäre es, wenn vor dem Druck das Druckerfenster erscheint, da ich aus verschiedenen Magazinen drucke. Jedes Dokument hat seinen eigenen Dateinamen.
Kann man über den "Drucken"-Button alle angewählten dann drucken oder muss einzeln gedruckt werden? 

Danke im Voraus

[schauan]

Hallo,

das Thema ist zwar auf erledigt gesetzt, aber ich geb trotzdem mal noch eine kurze Antwort. Ja, das geht, Du kannst die unterschiedlichen Dateien in einer Schleife nacheinander drucken.

[TheEinhorn]

Ich habe jetzt folgenden Code. Ich würde mir gerne bei einigen Dokumenten vorher die Druckereinstellung anzeigen lassen. Mit objWord.Dialogs(97).Show wird nur der Standarddrucker abgefragt. Mit dem Dialog 88 funktioniert es auch nicht. Welchen müsste ich dann nehmen?

Code:

Private Sub CommandButton1_Click()
 Dim objWord As Object, objDoc As Object, aktDrucker As String
 Set objWord = CreateObject("Word.Application")
 objWord.Visible = True
  'aktuellen Drucker merken
 aktDrucker = objWord.ActivePrinter
   'Drucker auswählen
 'objWord.Dialogs(97).Show
   Set objDoc = objWord.Documents.Open("\\xxxx\home\xxxx\Desktop\xxxx\Dokument.docx")
 objDoc.PrintOut
 'Drucker zurücksetzen
 objWord.ActivePrinter = aktDrucker
 objDoc.Close
 objWord.Quit
End Sub

[schauan]

Hallöchen,

eine Variante wäre z.B.
ActiveDocument.PrintPreview