Clever-Excel-Forum

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

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.

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

Hallöchen,

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

TheEinhorn

schauan

TheEinhorn

schauan