Na, dann versuchen wir es doch einmal in mehreren Schritten. Gaaanz langsam ...
Du hast ein beliebiges Dokument. Das willst du mit den bewussten Einstellungen drucken.
- Extras > Makro > Aufzeichnen...
- Gebe dem Teil einen sinnvollen Namen, beispielsweise Drucken_2
- Achte darauf, dass bei "Makro speichern" Alle Dokumente (Normal.dot) ausgewählt ist (entspricht dem Standard).
- Ein Kommentar unten im Fenster eibzugeben hilft später, den Sinn des Makros rasch zu kapieren (auch für Außenstehende).
- Nach dem OK-Klick erscheint ein kleines Fenster, welches dir die Aufzeichnung signalisiert. Ab jetzt bitte nicht vertippen, alles wird exakt aufgezeichnet!
- Jetzt gehst du den langen Weg über das Menü (Datei > Drucken) und wählst den korrekten Drucker aus, stellst das Papierfach ein, und so weiter.
- Danach klickst du auf die Schaltfläche für das Drucken.
- Nun nur noch in dem Mini-Fenster den linken Button für das Beenden der Aufzeichnung klicken.
Das war's auch schon. Schließe Word ruhig einmal und speichere alles, wo Word nachfragt. Diese (eventuelle) Dummy-Datei kannst du später ruhig löschen.
- Öffnen nun gerne einmal eine alte Datei, die noch nicht die erforderlichen Einstellungen hat.
- Extras > Makro > Makros... und hier wählst du das Makro "Drucken_2" aus.
- Doppelklick oder die Schaltfläche [Ausführen], das bleibt sich gleich.
Jetzt wird die Datei nach den neuen Maßgaben ausgedruckt, wenn du alles so gemacht hast, wie ich es meinte
Wenn das so komplett hinhaut, kommt der nächste Schritt, indem du das Makro an ein Symbol/Icon bindest. Da helfen wir dir dann gerne weiter.
Hier noch ein kleiner Einblick, was da als Makro aufgezeichnet wurde. Ich habe ein wenig bei mir herumgespielt und dabei sind diese Zeilen herausgekommen:
PHP:
Sub Drucken_2()
'
' Drucken_2 Makro
' Druck-Optionen für Firmenbogen
'
ActivePrinter = "HP Color LaserJet 2605dn_2605dtn PCL 6"
With Options
.UpdateFieldsAtPrint = False
.UpdateLinksAtPrint = False
.DefaultTray = " Fach 2"
.PrintBackground = True
.PrintProperties = False
.PrintFieldCodes = False
.PrintComments = False
.PrintHiddenText = False
.PrintXMLTag = False
.PrintDrawingObjects = True
.PrintDraft = False
.PrintReverse = False
.MapPaperSize = True
.PrintOddPagesInAscendingOrder = False
.PrintEvenPagesInAscendingOrder = False
.PrintBackgrounds = False
End With
With ActiveDocument
.PrintPostScriptOverText = False
.PrintFormsData = False
End With
Application.PrintOut FileName:="", Range:=wdPrintAllDocument, Item:= _
wdPrintDocumentContent, Copies:=1, Pages:="", PageType:=wdPrintAllPages, _
ManualDuplexPrint:=False, Collate:=True, Background:=True, PrintToFile:= _
False, PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0, _
PrintZoomPaperHeight:=0
End Sub
Das wird bei dir gewiss etwas anders aussehen, kontrollieren kannst du das, wenn du in einem beliebigen Dokument [Alt][F11] drückst und dann im linken Fenster auf das "+" bei
Normal klickst und dann auch so bei
Module vergehst. Evtl. steht da noch
NewMacros, dann auch da noch draufklicken, wenn nichts im Hauptfenster zu sehen ist.
Wenn du irgendwann einmal vorhast, dich mit Coding zu beschäftigen, dann versuche, das eine oder andere zu verstehen. Erkenne aber, dass dieses ein Wust von Code ist, wo manch eine Zeile flüssiger als flüssig ist, also überflüssig
.
