Hot News:

Unser Angebot:

  Foren auf CAD.de (alle Foren)
  Inventor .NET
  Alle Formate auf A4 drucken

Antwort erstellen  Neues Thema erstellen
CAD.de Login | Logout | Profil | Profil bearbeiten | Registrieren | Voreinstellungen | Hilfe | Suchen

Anzeige:

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen nächster neuer Beitrag | nächster älterer Beitrag
  
Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte
Autor Thema:  Alle Formate auf A4 drucken (853 mal gelesen)
noctis79
Mitglied
Konstrukteur/ CAD-Administrator


Sehen Sie sich das Profil von noctis79 an!   Senden Sie eine Private Message an noctis79  Schreiben Sie einen Gästebucheintrag für noctis79

Beiträge: 164
Registriert: 07.10.2009

erstellt am: 17. Okt. 2009 17:04    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

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

BernhardU
Mitglied
Techniker / Konstrukteur / Student


Sehen Sie sich das Profil von BernhardU an!   Senden Sie eine Private Message an BernhardU  Schreiben Sie einen Gästebucheintrag für BernhardU

Beiträge: 328
Registriert: 17.08.2005

Windows XP SP3
AIP 2011
VS 2005

erstellt am: 18. Okt. 2009 13:42    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für noctis79 10 Unities + Antwort hilfreich

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

noctis79
Mitglied
Konstrukteur/ CAD-Administrator


Sehen Sie sich das Profil von noctis79 an!   Senden Sie eine Private Message an noctis79  Schreiben Sie einen Gästebucheintrag für noctis79

Beiträge: 164
Registriert: 07.10.2009

erstellt am: 18. Okt. 2009 13:53    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Hallo Bernhard,

hab ich auch gerade entdeckt...

Trotzdem danke!

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

Anzeige.:

Anzeige: (Infos zum Werbeplatz >>)

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen

nächster neuerer Beitrag | nächster älterer Beitrag
Antwort erstellen


Diesen Beitrag mit Lesezeichen versehen ... | Nach anderen Beiträgen suchen | CAD.de-Newsletter

Administrative Optionen: Beitrag schliessen | Archivieren/Bewegen | Beitrag melden!

Fragen und Anregungen: Kritik-Forum | Neues aus der Community: Community-Forum

(c)2023 CAD.de | Impressum | Datenschutz