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