---

PlotNormal.txt

Hallo Programmierer,

ich habe uns anhängendes Makro "zusammengestrickt". Nun hat ein findiger Benutzer einmal beim Drucken "90° drehen" eingestellt.
Und schon plottet das Makro, weil es davon nichts weiss, auf das gedrehte Blatt! Wie kann ich diese Einstellung im Programmcode abfangen und zurücksetzen?

------------------
Gruß Wilfried

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

---

Hi Wilfried...

Ich denke das Du in deinem Code die Druckausrichtung fest vorgeben solltest.. ;-)
Hatten mal das Prob das A0 Format Hochformat der Rest Querformat gedruckt werden sollte... Sind etwa so vorgegangen:

Code:

---

If sFormat = "A0" Then
  oPrintMgr.Orientation = kLandscapeOrientation   
' ACHTUNG: Landscape ist hier hochkant !!
  oPrintMgr.Orientation = oDrgDoc.Sheets.Item(i).Orientation
Else
  oPrintMgr.Orientation = kPortraitOrientation
  oPrintMgr.Orientation = oDrgDoc.Sheets.Item(i).Orientation
End If

---

Das in einer

Code:

---

For Next

---

Schleife wobei i die Anzahl der zu Druckenden Blätter ist !!!

Hoffe das es Dir etwas weiter hilft..

LG

Andreas

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

---

Hallo Andreas,

danke für deine Antwort.
Die Orientierung hatte ich schon mal zwischendurch eingebaut. Aber warum, um Gottes willen, ist denn Landscape hochkant???!! Naja, die Diva vielleicht? Ich werde es morgen mal mit Portrait versuchen.

------------------
Gruß Wilfried

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

---

Hi Wilfried..... *grins*....

Landscape hochkant war in der Diva 7 (oder 8??).... *lach*...
Hatte damals auch bei MIR lange gedauert bis ich diesen kleinen BUG
verstanden hatte (ca 10 km Papier später!)

Mit Glück hat Autodesk das auch bemerkt..... ;-)

Melde Dich mal wenns geklappt hat...

Gruß
Andreas

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

---

Hallo Andreas,

mach ich.

Edit:
Funktioniert leider nicht. Der Haken "um 90° drehen" ist immer noch drin und der Plot liegt falsch.
Ach ja, hatte ich was wichtiges vergessen, wir haben V10!

[Diese Nachricht wurde von Fan-ME10 am 02. Feb. 2006 editiert.]

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

---

Hallo,

würde die 3 Grund-Einstellungen empfehlen

Dim oPrintMgr As DrawingPrintManager
Set oPrintMgr = ThisApplication.ActiveDocument.PrintManager
sPrinterName = "???????"  '

oPrintMgr.Printer = sPrinterName
oPrintMgr.NumberOfCopies = 1     
' damit nicht plötzlich 10 AO Plots rausgehen

oPrintMgr.AllColorsAsBlack = True ' Falls nur auf Schwarzweißplotter

*****************************************************************
oPrintMgr.Rotate90Degrees = False ' setzt keinen Haken bei 90Grad

Das rotieren um 90Grad hat nichts  mit
kPortraitOrientation
kLandscapeOrientation
zu tun!!

MFG VOSTA

[Diese Nachricht wurde von VOSTA1 am 02. Feb. 2006 editiert.]

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

---

Hallo Vosta1,

******************************************************************
oPrintMgr.Rotate90Degrees = False ' setzt keinen Haken bei 90Grad
******************************************************************
das ist genau das, was ich suchte !! Danke. U's sind schon bei dir.

P.S. Vielleicht kannst du mir nochmal weiterhelfen mit dem 90° gedrehtem Bitmap?

------------------
Gruß Wilfried

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