---

Hallo CAD.de Gemeinde,

ich habe mir ein kleines Druckertool in VBA geschrieben.
Problem ist, dass sich das Dokumentformat immer auf Übergröße: A2 einstellt
und ich dadurch das Papier immer nachträglich schneiden muss .
Weiß jemand Rat wie ich das Format auf A2 umstellen kann?

Hier mein Versuchscode:

Sub Drucktool()

Dim oDoc As DrawingDocument
Set oDoc = ThisApplication.ActiveDocument
Dim oDocbl As Sheet
Set oDocbl = oDoc.ActiveSheet
Dim oDocPrintMgr As DrawingPrintManager
Set oDocPrintMgr = oDoc.PrintManager

oDocPrintMgr.Printer = "HP Designjet T1300 PostScript"
oDocPrintMgr.PaperSize = kPaperSizeA2

oDocPrintMgr.ScaleMode = kPrintBestFitScale
SendKeys "^p" 'zum Anzeigen des Druckfensters

End Sub

Gruß Tim

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