Hallo
muss hier nochmal angreifen, hab gerade mal ein A4 pdf machen wollen das ergebniss war bescheiden.
Kann mir jemand sagen wo ich den Fehler habe??
Siehe Screenshots
hier der untere teil des codes bei mir
Module plotten
Dim s As Session = Session.GetSession
Dim uf As UFSession = UFSession.GetUFSession
Dim Workpart As Part = s.Parts.Work
Sub Main()
Dim plotterName As String
plotterName = "PDF A4" ' hier Plotternamen eintragen '
If Workpart is nothing Then
MsgBox("NO Active Part, please activate a Part to Plott")
Return
End If
Dim currentDrawing As DrawingSheet
currentDrawing = Workpart.DrawingSheets.CurrentDrawingSheet
If currentDrawing is nothing Then
MsgBox("No active drawing. You must be in the drawing Mode and the drawing must be activated")
Return
End If
Dim jobOptions As JobOptions
uf.Plot.AskDefaultJobOptions(jobOptions)
Dim bannerOptions As BannerOptions
uf.Plot.AskDefaultBannerOptions(bannerOptions)
Dim jobName As String
uf.Plot.AskDefaultJobName(currentDrawing.Tag, jobName)
uf.Plot.Print(currentDrawing.Tag, jobOptions, jobName, bannerOptions, plotterName, "<System Profile>", 1)
End Sub
Public Function GetUnloadOption() As Integer
Return Session.LibraryUnloadOption.Immediately
End Function
End Module
------------------
Lehrer öffnen Türen, doch hindurchgehen musst du selbst.
Es gibt einen ewigen Wettkampf zwischen der Natur und den Ingenieuren:
Die Ingenieure versuchen, immer idioten-sicherere Systeme zu bauen,
die Natur versucht, immer bessere Idioten zu bauen
Bis jetzt gewinnt die Natur.
ICH BIN DER CADMINIESCHRDÄDÖR