Witam
Chcę wydrukować plany na ploterze z programem Inventor, ale nie rozumiem, jak skonfigurować makro, mogę drukować na kserokopiarce w formacie A3 lub A4, ale nie na ploterze OCE (Plotware 500)
Oto fragment kodu, którego używam, który działa dla A3 i A4 ("jeżeli" jest dlatego, że sprawdzam, czy plan jest pionowy czy poziomy)
Dim oprintmgr jako DrawingPrintManager
Ustaw oprintmgr = ThisApplication.ActiveDocument.PrintManager
Ustaw oDrawDoc = ThisApplication.ActiveDocument
Za pomocą oDrawDoc.ActiveSheet
Jeśli (. Orientation = kLandscapePageOrientation) Następnie
'Konfiguracja drukarki A2H
PrintingPrinter = "\\811V\OCPW500_01"
oprintmgr. Drukarka = drukarka drukująca
'oprintmgr. ColorMode = kPrintDefaultColorMode ' Ustaw na domyślne
oprintmgr. AllColorsAsBlack = Fałsz
oprintmgr. NumberOfCopies = 1 ' Ustaw drukowanie jednej kopii.
oprintmgr. Orientation = kLandscapeOrientation ' Ustaw drukowanie w orientacji poziomej.
oprintmgr. PaperSize = kPaperSizeA2
oprintmgr. Źródło papieru = 3
oprintmgr. Wysokość papieru = 59,4
oprintmgr. Szerokość papieru = 42
oprintmgr. ScaleMode = kPrintBestFitScale
'oprintmgr. ScaleMode = kPrintCustomScale
'oprintmgr. [Skala] = 1
oprintmgr. ColorMode = kPrintGrayScale
oprintmgr. SubmitPrint ' Prześlij wydruk.
Myślę, że problem wynika z oprogramowania konfiguracyjnego plotera OCE, ale w autocad mamy pliki .pc3, które działają.
Chciałbym mieć możliwość wydrukowania moich planów za pomocą 1 kliknięcia... Taa jestem leniwy :p
Dziękuję za pomoc!