Hallo
Ik ben op zoek naar plannen afdrukken op een plotter met Inventor, maar ik begrijp niet hoe ik de macro moet instellen, ik kan afdrukken op een kopieerapparaat in A3 of A4, maar niet op een OCE-plotter (Plotware 500)
Hier is een fragment van de code die ik gebruik die werkt voor A3 en A4 (de "als" is omdat ik controleer of het plan staand of liggend is)
Dim oprintmgr Als DrawingPrintManager
Set oprintmgr = ThisApplication.ActiveDocument.PrintManager
Stel oDrawDoc = DezeToepassing.ActiveDocument in
Met oDrawDoc.ActiveSheet
Als (. Oriëntatie = kLandscapePageOrientation) dan
'A2H-printer instellen
printingprinter = "\\811v\OCPW500_01"
oprintmgr. Printer = printprinter
'Oprintmgr. ColorMode = kPrintDefaultColorMode ' Instellen op standaard
oprintmgr. AllColorsAsBlack = Onwaar
oprintmgr. NumberOfCopies = 1 ' Stel in om één exemplaar af te drukken.
oprintmgr. Oriëntatie = kLandscapeOrientation ' Stel in om af te drukken in liggende richting.
oprintmgr. PapierFormaat = kPapierFormaatA2
oprintmgr. Papierbron = 3
oprintmgr. Papierhoogte = 59.4
oprintmgr. PaperWidth = 42
oprintmgr. ScaleMode = kPrintBestFitScale
'Oprintmgr. ScaleMode = kPrintCustomScale
'Oprintmgr. [Schaal] = 1
oprintmgr. ColorMode = kPrintGrayScale
oprintmgr. SubmitPrint ' Verzend de print.
Ik denk dat het probleem komt van de OCE plotter config software, maar met autocad hebben we .pc3 bestanden die werken.
Ik wil graag mijn plannen in 1 klik kunnen afdrukken... Ja, ik ben lui:p
Bedankt voor je hulp!