Hallo
Drucken über Pro/e hab ich so gelöst
Problem ist die Erkennung des Blattformates
Sub wird über einen code aufgerufen das alles im Speicher befindliche ausdruckt
Drucker PostScript und Tiff sind die Namen der Drucker die in Pro/e Drucker definiert sind.
code
Public Sub Plotte_(ByVal Zeichnung As String, ByVal Drucker As String)
Dim Drawing As IpfcModel
Dim Plotten As IpfcPlotInstructions
Dim Format As IpfcDrawingFormat
Dim Formatname As String
Dim Ausgabeformat As String
Dim Dext As String
Dext = "."
If Drucker = "Postscript" Then Dext = ".ps"
If Drucker = "TIFF" Then Dext = ".tif"
Ausgabeformat = ""
Drawing = session.CurrentModel
Format = session.CurrentModel.GetSheetFormat(1)
Formatname = Format.FullName.ToLower
If Formatname.Contains("a0") Then Ausgabeformat = "a0"
If Formatname.Contains("a1") Then Ausgabeformat = "a1"
If Formatname.Contains("a2") Then Ausgabeformat = "a2"
If Formatname.Contains("a3") Then Ausgabeformat = "a3"
If Formatname.Contains("a4") Then Ausgabeformat = "a4"
' MsgBox("Format " + Ausgabeformat)
Plotten = (New CCpfcPlotInstructions).Create(Drucker)
Plotten.PlotterName = Drucker
Plotten.SeparatePlotFiles = True 'Jedes Blatt eine eigene Datei
Plotten.PageRangeChoice = (New CCpfcPlotPageRange).PLOT_RANGE_ALL 'Alle Blätter
If Ausgabeformat = "a4" Then
Plotten.PaperSizeX = 8.5 'achtung keine milimeter sondern zoll umrechnen
Plotten.PaperSizeY = 11
Plotten.PaperSize = (New CCpfcPlotPaperSize).VARIABLESIZEPLOT
' Plotten.PaperSize = (New CCpfcPlotPaperSize).A4SIZEPLOT 'plottet in Querformat
Zeichnung = Zeichnung + Dext
Label2.Text = Zeichnung
Drawing.Export(Zeichnung, CType(Plotten, IpfcExportInstructions))
ElseIf Ausgabeformat = "a3" Then
Plotten.PaperSize = (New CCpfcPlotPaperSize).A3SIZEPLOT
Zeichnung = Zeichnung + Dext
Label2.Text = Zeichnung
Drawing.Export(Zeichnung, CType(Plotten, IpfcExportInstructions))
ElseIf Ausgabeformat = "a2" Then
Plotten.PaperSize = (New CCpfcPlotPaperSize).A2SIZEPLOT
Zeichnung = Zeichnung + Dext
Label2.Text = Zeichnung
Drawing.Export(Zeichnung, CType(Plotten, IpfcExportInstructions))
ElseIf Ausgabeformat = "a1" Then
Plotten.PaperSize = (New CCpfcPlotPaperSize).A1SIZEPLOT
Zeichnung = Zeichnung + Dext
Label2.Text = Zeichnung
Drawing.Export(Zeichnung, CType(Plotten, IpfcExportInstructions))
ElseIf Ausgabeformat = "a0" Then
Plotten.PaperSize = (New CCpfcPlotPaperSize).A0SIZEPLOT
Zeichnung = Zeichnung + Dext
Label2.Text = Zeichnung
Drawing.Export(Zeichnung, CType(Plotten, IpfcExportInstructions))
End If
End Sub
codesnippsel zum testen
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP