---

Hallo,
hab mal wieder ein Problem...
Der Ausdruck von Zeichnung über Apprentice auf PDF funktioniert mittlerweile recht gut...
Jetzt müsste ich aber noch alle Formate als A4 Zeichnung ausdrucken...

Gibt es die Möglichkeit beim Drucken eine Skalierung mitzugeben bzw ein
einpassen auf die jeweilige Größe?

Inventor2008 Apprentice Server

Hier mal der Code zum Drucken in Original- Größe:

Code:

---

Private Sub print_pdf()

Dim oApprentice As New Inventor.ApprenticeServerComponent
Dim odoc As Inventor.ApprenticeServerDrawingDocument
If Not oApprentice.Document Is Nothing Then
oApprentice.Close
End If
Dim Items As Object
Dim Size As String
Dim File As String
Dim kA4DrawingSheetSize As String
Dim kA3DrawingSheetSize As String
Dim kA2DrawingSheetSize As String
Dim kA1DrawingSheetSize As String
Dim kA0DrawingSheetSize As String

Items = ListBox2.Items
File = Items.ToString

For Each File In Items
odoc = oApprentice.Open(File)
Size = odoc.Sheets(1).Size.toString
Select Size

Case "kA4DrawingSheetSize"
odoc.PrintManager.Printer = "FreePDF XP"
odoc.PrintManager.PaperSize = odoc.PrintManager.PaperSize.kPaperSizeA4
odoc.PrintManager.Orientation = odoc.PrintManager.Orientation.kPortraitOrientation
odoc.PrintManager.NumberOfCopies = 1
odoc.PrintManager.SubmitPrint()
Case "kA3DrawingSheetSize"
odoc.PrintManager.Printer = "FreePDF XP"
odoc.PrintManager.PaperSize = odoc.PrintManager.PaperSize.kPaperSizeA3
odoc.PrintManager.Orientation = odoc.PrintManager.Orientation.kLandscapeOrientation
odoc.PrintManager.NumberOfCopies = 1
odoc.PrintManager.SubmitPrint()

Case "kA2DrawingSheetSize"
odoc.PrintManager.Printer = "FreePDF XP"
odoc.PrintManager.PaperSize = odoc.PrintManager.PaperSize.kPaperSizeA2
odoc.PrintManager.Orientation = odoc.PrintManager.Orientation.kLandscapeOrientation
odoc.PrintManager.NumberOfCopies = 1
odoc.PrintManager.SubmitPrint()

Case "kA1DrawingSheetSize"
odoc.PrintManager.Printer = "FreePDF XP"
odoc.PrintManager.PaperSize = odoc.PrintManager.PaperSize.kPaperSizeA1
odoc.PrintManager.Orientation = odoc.PrintManager.Orientation.kLandscapeOrientation
odoc.PrintManager.NumberOfCopies = 1
odoc.PrintManager.SubmitPrint()

Case "kA0DrawingSheetSize"
odoc.PrintManager.Printer = "FreePDF XP"
odoc.PrintManager.PaperSize = odoc.PrintManager.PaperSize.kPaperSizeA1
odoc.PrintManager.Orientation = odoc.PrintManager.Orientation.kLandscapeOrientation
odoc.PrintManager.NumberOfCopies = 1
odoc.PrintManager.SubmitPrint()
End Select
odoc.Close()
Next

oApprentice.Close()
OApprentice = Nothing
odoc = Nothing
End Sub

---

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

---

HI noctis79,

verwende doch den ApprenticeDrawingPrintManager!!!

Code:

---

Inventor.ApprenticeDrawingPrintManager pm;
            pm.ScaleMode = Inventor.PrintScaleModeEnum.kPrintBestFitScale;

---

Dann klappt auch das mit dem Einpassen!! 

LG

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

---

Hallo Bernhard,

hab ich auch gerade entdeckt...

Trotzdem danke!

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