Hallo !
Habe folgendes Problem:
Würde gerne einen A0 bzw. A1 - Plot über ein Makro auslösen.
1. Es soll der entsprechende Drucker ausgewählt werden
2. Farbe oder schwarz/ weiss festgelegt werden
3. Maßstab 1:1
4. Querformat bzw. Hochformat
5. Blattformat A4 bis A0
Alle Einstellungen bekomme ich angesteuert nur bei den Blattformat habe ich ein Problem
kpapersize geht nur bis A2
und wenn ich über
oPrintMgr.PaperSize = kPaperSizeCustom
'zb. Für A1
oPrintMgr.PaperHeight = 35 ' Masse in cm
oPrintMgr.PaperWidth = 48
werden diese Werte von Höhe und Breite nicht übernommen und es wird das Format A4 eingestellt.
Frage wie kann ich mittels eines Makros dieses Format einstellen ????
Mein lauffähiges Makro sieht wiefolgt aus:
Private Sub HP_designjet_750_Click()
On Error Resume Next
Dim oPrintMgr As DrawingPrintManager
Set oPrintMgr = ThisApplication.ActiveDocument.PrintManager
oPrintMgr.Printer = "HP DesignJet 750C (E/A0) Color" +++++Hier eigenen Druckernamen eintragen
oPrintMgr.ColorMode = kPrintGrayScale
oPrintMgr.ScaleMode = kPrintCustomScale
oPrintMgr.Orientation = kPortraitOrientation
++++++++++++++++++++++++++++++++++++++++++++++
Problemzone????????????????????
oPrintMgr.PaperSize = kPaperSizeA4
oPrintMgr.PaperSize = kPaperSizeCustom
'zb. Für A1 = 594x841 mm
oPrintMgr.PaperHeight = 85 ' Masse in cm
oPrintMgr.PaperWidth = 60
+++++++++++++++++++++++++++++++++++++++++++++
oPrintMgr.SubmitPrint
Exit sub
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP