Forums Neueste Beiträge
 

Reportviewer und Netzwerkdrucker

19/09/2007 - 09:00 von C. Knickenberg | Report spam
Hallo zusammen,

ich verwende den Reportviewer in eins meiner Programme. Es làuft auf meiner
Testumgebung wunderbar. Auch auf meinem Localen PC funktioniert es. Nur gibt
es einige Rechner, bei denen ich auf einem Netzwerkdrucker nicht drucken
kann. Der Druckauftrag landet in der Wartschlange wird angefangen aber ein
Ausdruck kommt nie raus.
Passiert im gleichen Netzwerk und beim gleichen Drucker beim einen PC nie
und beim anderen ohne Probleme.
Hat jemand ein Tip für mich? Vielen Dank schon mal im Vorraus.

Grüße
Christian Knickenberg
 

Lesen sie die antworten

#1 Frank Hammerschmidt
23/09/2007 - 16:55 | Warnen spam
C. Knickenberg schrieb:

ich verwende den Reportviewer in eins meiner Programme. Es làuft auf meiner
Testumgebung wunderbar. Auch auf meinem Localen PC funktioniert es. Nur gibt
es einige Rechner, bei denen ich auf einem Netzwerkdrucker nicht drucken
kann. Der Druckauftrag landet in der Wartschlange wird angefangen aber ein
Ausdruck kommt nie raus.
Passiert im gleichen Netzwerk und beim gleichen Drucker beim einen PC nie
und beim anderen ohne Probleme.
Hat jemand ein Tip für mich? Vielen Dank schon mal im Vorraus.



Nein, keinen wirklichen Tipp; nur die Bestàtigung, daß es hier auch so
ist. Ich behelfe mir damit, den ReportViewer nicht anzuzeigen, sondern
das Dokument zum PDF zu machen, welches ich mit einem (sicher!)
installiertem Viewer anzeigen lasse.

Gruß,
Frank

Private Sub ShowPDFExtern(ByVal content As LocalReport)

Dim mimeType As String = Nothing
Dim encoding As String = Nothing
Dim extension As String = Nothing
Dim streamids As String() = Nothing
Dim warnings As Warning() = Nothing
Try
Dim tempfile As String = Me.CreateTempFile()
Dim bytes As Byte() = content.Render("PDF", Nothing, _
mimeType, encoding, extension, streamids, warnings)
Dim fs As New IO.FileStream(tempfile, IO.FileMode.Create)
fs.Write(bytes, 0, bytes.Length)
fs.Close()

Me.ShowPDFExtern(tempfile)
Catch ex As Exception
Dim x As myError = New myError(New Exception _
("Konnte kein PDF zum Drucken erstellen.", ex))
End Try
End Sub

Private Sub ShowPDFExtern(ByVal path As String)
Try
If Not IO.File.Exists(path) Then
Throw New Exception _
(System.String.Format("Dokument {0} nicht gefunden.", path))
Else
Diagnostics.Process.Start(path)
End If

Catch ex As Exception
Dim x As myError = New myError(New Exception _
("Konnte PDF-Dokument nicht anzeigen.", ex))
End Try
End Sub

Ähnliche fragen