Logo per VBA in Kopfzeile einfügen

Hallo Tobsen,

du könntest auf die Einstellung in den Word-Optionen verzichten und stattdessen ein Makro integrieren, das (per Tastenkombination oder Schaltfläche) zwischen Drucken und Nichtdrucken oder Ein- und Ausblenden des Logos wechselt. (Mir ist nicht klar,
weshalb Logo und Adresszeile zur "Orientierung" überhaupt eingeblendet werden. Eine sauber aufgebaute Vorlage braucht dergleichen nicht.)

Beispiele:

http://www.gmayor.com/Optionally_print_letterhead.htm

https://docs.microsoft.com/en-us/office/vba/api/word.options.printdrawingobjects

https://www.datanumen.com/blogs/auto-hide-images-shapes-via-vba-printing-word-document/

Alternativ lässt sich der "Briefkopf" eventuell als Schnellbaustein im Katalog "Kopfzeilen" speichern und über "Einfügen | Kopfzeile" ebenso schnell einfügen wie löschen ("Einfügen | Kopfzeile | Kopfzeile entfernen").

Viele Grüße

Lisa

das "G" muss man benützen, wenn man etwas per VBA-Code initieren will.

das "I" wird benützt wenn etwas manuell also ohne VBA-Code ausgedruckt werden will.

Wie auch immer Du das herausgefunden hast, mein Testmakro hast Du anscheinend nicht probiert.

Ich hab das nicht umsonst gepostet, das funktioniert genau so und nur so. Wenn man "&G" und "&I" im Code austauscht, dann erscheinen keine Grafiken mehr im Kopf.

Das liegt daran das in den Seitenoptionen dann der manuelle deutsche Befehl
&[Grafik] nicht mehr erscheint, weder für die erste, noch für die Folgeseiten.

Ersatzweise kann man bei der manuellen Einagben für &[Grafik] auch &I schreiben, die GUI wandelt es dann in
&[Grafik] um sobald man eine Grafikdatei ausgewählt hat.



Andreas.

Hallo Susanne,

es klappt nicht, das Logo kommt einfach nicht in das FirstPage-Objekt hinein.

Es könnte ein Excel-Bug sein, vielleicht findet ein Anderer eine Lösung.

Viele Erfolg, Dirk

PS: Testcode

' ACHTUNG: PrintCommunication darf nicht mit False ausgeschaltet werden, sonst geht gar nichts!

ActiveSheet.PageSetup.DifferentFirstPageHeaderFooter = True

ActiveSheet.PageSetup.RightHeaderPicture.Filename = "C:\Temp\Bild.jpg"

ActiveSheet.PageSetup.RightHeader = "&G"

ActiveSheet.PageSetup.FirstPage.RightHeader.Picture.Filename = "C:\Temp\Bild.jpg"

ActiveSheet.PageSetup.FirstPage.RightHeader.Text = "&G"

Ja klar, warum denn nicht?

BeforePrint ist nur eine Ereignisroutine die vom Event-Manager aufgerufen wird, wenn Sie im Codemodul DieseArbeitsmappe vorhanden ist. Das einzigste Argument das an diese Routine übergeben wird ist "Cancel", welches man auf True setzen kann um den Druck abzubrechen.

Nimmst Du nun den Code da raus, dann geht das Abbrechen natürlich nicht mehr, aber ansonsten ist es wurscht. Du greifst ja auf die Objekte direkt zu und von wo aus das geschieht ist in diesem Fall piep egal, könnte man sogar aus einem Powerpoint-File heraus
machen...

Verschiebe einfach mal die ganze BeforePrint Routine in das Codemodul mit Deinem Makro, und dann fügst Du diese Zeilen direkt vor ActiveSheet.ExportsAsFixedFormat ein:

Workbook_BeforePrint False

DoEvents

Das DoEvents ist evtl. gar nicht nötig, stört aber auch nicht. Damit gibst Du dem Druckertreiber eine Chance seine Arbeit fertig zu machen... falls er noch was zu tun hat... Windows ist halt Multitasking.

Und? Geht's?

Andreas.

Tut mir leid, da wirst Du wohl Adobe, bzw. in deren Foren fragen müssen, ich tippe jedoch das es nicht geht.

Das &I und &G wird übrigens nicht verändert, kannst Du einfach prüfen wenn Du einfach mal

Debug.Print .RightHeader

ausführst. Das was Du denkst das es auf deutsch geändert wird, ist nur die Anzeige in der GUI, innendrin ist Excel immer englisch.

Eine gute Alternative sind Freeware Tools wie PDFCreator, der installiert sich als Windows Drucker und damit geht 99% was der normale User braucht, aus jeder Application.

Aber wenn Du Dein Adobe PlugIn per VBA ausführst, warum rufst Du dann nicht einfach den Code selber auf?

Andreas.