---

Hallo!

Ich möchte gerne ein Makro erstellen das je nach Blattformat auf einem anderen Drucker druckt.
zb.: A4 auf Drucker "PrinterA4"
    A2 auf Drucker "PrinterA2"

Kann mir jemand helfen wie müsste dazu das Makro aussehen?

Danke im Voraus!

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

FxPlot

------------------
Der vernünftige Mensch paßt sich der Welt an;
der unvernünftige besteht auf dem Versuch, die Welt sich anzupassen.

Deshalb hängt aller Fortschritt vom unvernünftigen Menschen ab.
(George Bernard Shaw)

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

oder ein bischen an diesem Makro rumschrauben - dann sollte es auch gehen  .

------------------
Gruß Lothar

---------------------------------------------------

Während man es aufschiebt, verrinnt das Leben.
Lucius Annaeus Seneca (ca. 4 v. Chr - 65 n. Chr.)

-----------------------------------------------------
Wir unterstützen die Arbeit der:
- Rettungshundestaffel des DRK Viersen
- Rettungshundestaffel Isar Ost

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Lothar

Habe Ihre makro probiert auf meine Templates A0, A1, A2, A3, A4L und A4P.
A0 und A1 wird 90 grad rotiert im Bezug der Pdf-Papier und dafür abgeschnitten. Andrer Formaten ist OK.
Was passiert? Hast du eine Idee.
Ich habe Adobe Acrobat 6.0 Professionel und Inventor 11 Professionel.

MfG. Claus

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Claus,

wenn es falsche herum gedreht ist, dann kannst Du für diese Fälle die Orientierung ja ändern.
Ich denke, wenn Du den Code mit Verstand liest, dann findest Du die Lösung.

Mit A1 hat das VBA aber sowieso ein Problem. Da wird auch bei mir des Blatt abgeschnitten. So wie ich gehört habe soll dies am Druckertreiber liegen. Ich habe mich allerdings nicht weiter darum gekümmert, da mich dieses Problem nicht betrifft. Für die wenigen Fälle, in denen ich diese grossen Formate benutze, habe ich mir noch eine Meldung eingebaut, die mich daran erinnert, das es auch von Hand geht  .

------------------
Gruß Lothar

---------------------------------------------------

Während man es aufschiebt, verrinnt das Leben.
Lucius Annaeus Seneca (ca. 4 v. Chr - 65 n. Chr.)

-----------------------------------------------------
Wir unterstützen die Arbeit der:
- Rettungshundestaffel des DRK Viersen
- Rettungshundestaffel Isar Ost

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Lothar

Danke für Antwort.
Angegebene Lösung habe Ich bereits Probiert und zwar kLandscapeOrientation und kPortraitOrientation umtauschen (Abschnitt 'Set the paper orientation), aber ohne Erfolg.

Ich will die Druckertreiber nähere anschauen.

Vielleicht sollte Ich PrintManager brauchen weil Ich nur drawing documents pdf schreiben wünschen.

Kann Ich
Dim oDrgPrintMgr As DrawingPrintManager
bis
Dim oDrgPrintMgr As PrintManager
ändern. Hast du mit diese Erfahrung?

MfG. Claus

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP