Bonjour,
Je cherche à imprimer des plans sur un traceur avec Inventor mais je ne comprends pas comment paramétrer la macro j'arrive à imprimer sur un photocopieur en A3 ou A4 mais pas sur un traceur OCE (Plotware 500)
Voici un extrait du code que j'utilise et qui fonctionne pour le A3 et A4 (le "if" c'est parce que je verifie si le plan est en portrait ou en paysage)
Dim oprintmgr As DrawingPrintManager
Set oprintmgr = ThisApplication.ActiveDocument.PrintManager
Set oDrawDoc = ThisApplication.ActiveDocument
With oDrawDoc.ActiveSheet
If (.Orientation = kLandscapePageOrientation) Then
'A2H printer setup
printingprinter = "\\811v\OCPW500_01"
oprintmgr.Printer = printingprinter
'oprintmgr.ColorMode = kPrintDefaultColorMode ' Set to default
oprintmgr.AllColorsAsBlack = False
oprintmgr.NumberOfCopies = 1 ' Set to print one copies.
oprintmgr.Orientation = kLandscapeOrientation ' Set to print using landscape orientation.
oprintmgr.PaperSize = kPaperSizeA2
oprintmgr.PaperSource = 3
oprintmgr.PaperHeight = 59.4
oprintmgr.PaperWidth = 42
oprintmgr.ScaleMode = kPrintBestFitScale
'oprintmgr.ScaleMode = kPrintCustomScale
'oprintmgr.[Scale] = 1
oprintmgr.ColorMode = kPrintGrayScale
oprintmgr.SubmitPrint ' Submit the print.
Je pense que le soucis vient du logiciel de config du traceur OCE mais avec autocad nous avons des fichiers .pc3 qui fonctionne.
Je voudrais bien pouvoir imprimer mes plans en 1 seul clic... oui je suis feignant :p
Merci de votre aide!