[VBA] Wie Dokument aus Fach 2 drucken?

Computer: Software & Programmierung Visual Basic
1

Hallo,
wie krieg ich es hin, ein Word-Dokument per VBA-Code mit einem bestimmten Drucker und Papierfach zu drucken?

In einem anderen Forum hab ich vorhin gelesen, dass einer dieses Problem mit Excel hat, in Word soll es aber recht einfach sein.

Gruß, Andi

2

wie krieg ich es hin, ein Word-Dokument per VBA-Code mit einem
bestimmten Drucker und Papierfach zu drucken?
In einem anderen Forum hab ich vorhin gelesen, dass einer
dieses Problem mit Excel hat, in Word soll es aber recht
einfach sein.

Hi Andi,
wird Code aufgezeichnet während die Makroaufzeichnung (Extras–Makro–Aufzeichnen) läuft und du manuell Drucker und Fach wählst? Wenn ja, hast du ja den Vba-Code. Wenn nein, schau mal in der Vba-Hilfe ob das bei Word auch „Printout“ heißt wie in Excel und ob man da Drucker und Fach angeben kann.
Habe hier kein Word geschweige denn so einen Drucker, kann es also nicht testen.

Ansonsten, in der Brettbeschreibung zu Textverarbeitung steht ein Link zu ner Bluewinseite dort gibts auch guten Vba-Code für Word.
Gruß
Reinhard

3

Hi Andi,
wird Code aufgezeichnet während die Makroaufzeichnung
(Extras–Makro–Aufzeichnen) läuft und du manuell Drucker und
Fach wählst?

Leider nein. Den Code erstell ich händisch.
Aber ich hab mich nochmal in die Hilfe vertieft und dabei nun folgendes zusammengeschrieben:

If Application.Documents.Count \> 0 Then
 Dim Drucker As String
 Drucker = Application.ActivePrinter
 Application.ActivePrinter = "D1234 an Server"
 With ActiveDocument
 .ActivePrinter = "D1234 an Server"
 .PageSetup.FirstPageTray = 1
 .PageSetup.OtherPagesTray = 1
 .PrintOut
 End With
 Application.ActivePrinter = Drucker
End If

Bin allerdings noch nicht dazu gekommen, es zu testen.
Lassen sich die 4 With-Anweisungen alle mit ActiveDocument verwenden?
[Edit: nö! *g*]

Dann schau ich mir noch die Bluewin-Seite an.
Die kenn ich schon länger :smile:
[Edit: war nix dabei…]

Gruß, Andi