Druckproblem (keine PDF-Erstellung über PrintDialog!)

  • VB.NET

Es gibt 16 Antworten in diesem Thema. Der letzte Beitrag () ist von RodFromGermany.

    Druckproblem (keine PDF-Erstellung über PrintDialog!)

    Hallo,
    ich habe in .net 2010 eine Druckroutine mit Druckvorschau und Druckeinstellungen erstellt, also nicht schwieriges.
    Als ich nun die Druckroutine testen wollte, mußte ich feststellen, daß meine Ausdrucke nur in Papierform aus dem Drucker kommen, nicht jedoch eine PDF-Erstellung (bei ausgewähltem PDF-Printer im PrinterDialog) möglich ist.
    Hat jemand hier schon einmal ähnliche Erfahrung gemacht oder habe ich nur etwas grundlegendes übersehen?
    Danke für jedwelche Hilfe.
    Grüsse
    Coding-Nerd

    Hallo,
    ich habe meinen Druckercode vor einigen Monaten im Internet gefunden und habe ihn hier jetzt mal komprimiert eingefügt, damit man nur das notwendigste vor sich hat. (Der Übersichtlichkeit halber...)
    Das, was hier nachfolgend steht, habe ich auch mit einem Papierdrucker und dem PDF-Drucker getestet und wieder bekam ich nur einen Papierausdruck und der PDF-Drucker machte nichts!

    VB.NET-Quellcode

    1. Imports System.Drawing
    2. Imports System.Drawing.Printing
    3. Imports System.Windows.Forms
    5. Public Class Form1
    6. Private pd As DruckDokument
    8. Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles Me.Load
    9. Dim zuDruckenderText(200) As String
    10. For i As Integer = 0 To 200
    11. zuDruckenderText(i) = i.ToString()
    12. zuDruckenderText(i) &= " Das ist eine Textzeile..."
    13. Next
    14. pd = New DruckDokument(zuDruckenderText)
    15. AddHandler pd.PrintPage, AddressOf printme
    16. End Sub
    18. Private Sub printme(ByVal sender As Object, ByVal e As PrintPageEventArgs)
    19. pd = CType(sender, DruckDokument)
    21. Dim f As New Font("Arial", 11)
    22. Dim Zeilenhoehe As Single = f.GetHeight(e.Graphics)
    23. Dim x As Single = e.MarginBounds.Left
    24. Dim y As Single = e.MarginBounds.Top
    25. pd.Seitennummer += 1
    26. Do
    27. e.Graphics.DrawString(pd.Text(pd.Zeilennummer), f, Brushes.Black, x, y)
    28. pd.Zeilennummer += 1
    29. y += Zeilenhoehe
    30. Loop Until (y + Zeilenhoehe) > e.MarginBounds.Bottom Or pd.Zeilennummer > pd.Text.GetUpperBound(0)
    32. If pd.Zeilennummer < pd.Text.GetUpperBound(0) Then
    33. e.HasMorePages = True
    34. Else
    35. pd.Zeilennummer = 0
    36. End If
    37. End Sub
    39. Private Sub SeitenansichtToolStripMenu_Click(sender As System.Object, e As System.EventArgs) Handles SeitenansichtToolStripMenu.Click
    40. Dim PrintPreviewDialog1 As New PrintPreviewDialog
    41. PrintPreviewDialog1.Document = pd
    42. PrintPreviewDialog1.ShowDialog()
    43. End Sub
    45. Private Sub SeiteneinstellungenToolStripMenu_Click(sender As System.Object, e As System.EventArgs) Handles SeiteneinstellungenToolStripMenu.Click
    46. Dim PageSetupDialog1 As New PageSetupDialog()
    47. PageSetupDialog1.Document = pd
    48. PageSetupDialog1.AllowMargins = True
    49. If PageSetupDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
    50. pd = PageSetupDialog1.Document
    51. End If
    52. End Sub
    54. Private Sub DruckenToolStripMenu_Click(sender As System.Object, e As System.EventArgs) Handles DruckenToolStripMenu.Click
    55. Dim prd As New PrintDialog()
    56. prd.Document = pd
    57. prd.AllowPrintToFile = True
    58. prd.AllowSelection = True
    59. prd.AllowSomePages = True
    60. prd.ShowHelp = True
    61. If (prd.ShowDialog() = Windows.Forms.DialogResult.OK) Then
    62. pd = prd.Document
    63. End If
    64. End Sub
    65. End Class


    Und das hier ist eine Klasse, in der sich der zu druckende Text befindet:

    VB.NET-Quellcode

    1. Public Class DruckDokument
    2. Inherits Printing.PrintDocument
    4. Private mText() As String
    5. Private mSeitennummer As Integer
    6. Private mZeilennummer As Integer
    8. Public Property Text() As String()
    9. Get
    10. Return mText
    11. End Get
    12. Set(ByVal value As String())
    13. mText = value
    14. End Set
    15. End Property
    17. Public Property Seitennummer() As Integer
    18. Get
    19. Return mSeitennummer
    20. End Get
    21. Set(ByVal value As Integer)
    22. mSeitennummer = value
    23. End Set
    24. End Property
    26. Public Property Zeilennummer() As Integer
    27. Get
    28. Return mZeilennummer
    29. End Get
    30. Set(ByVal value As Integer)
    31. mZeilennummer = value
    32. End Set
    33. End Property
    35. Public Sub New(ByVal text() As String)
    36. Me.Text = text
    37. End Sub
    38. End Class


    Danke schonmal für jede Hilfe...
    Grüsse

    Lass mal diese beiden Zeilen einfach weg:

    coding_nerd schrieb:

    VB.NET-Quellcode

    1. pd = PageSetupDialog1.Document

    coding_nerd schrieb:

    VB.NET-Quellcode

    1. pd = prd.Document
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    coding_nerd schrieb:

    Hast du das selbst getestet?
    Ich habe hier keinen Drucker, sondern nur PDF-Print, aber Du weist doch die selbe Instanz hin und her, das ist überflüssig.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    So, ich habe es selbst herausgefunden:

    VB.NET-Quellcode

    1. Private Sub DruckenToolStripMenu_Click(sender As System.Object, e As System.EventArgs) Handles DruckenToolStripMenu.Click
    2. Dim prd As New PrintDialog()
    3. prd.Document = pd
    4. prd.AllowPrintToFile = True
    5. prd.AllowSelection = True
    6. prd.AllowSomePages = True
    7. prd.ShowHelp = True
    8. If (prd.ShowDialog() = Windows.Forms.DialogResult.OK) Then
    9. pd = prd.Document
    10. pd.Print
    11. End If
    12. End Sub


    in der if-Abfrafe hat

    Quellcode

    1. pd.Print
    gefehlt.
    Jetzt klappt der PDF-Druck aus dem PrintDialog() mit allen installierten PDF-Druckern...
    Danke an alle für Ihre Bemühungen

    coding_nerd schrieb:

    pd.Print
    löst Du im PrintPreviewDialog aus.
    Vollzieh mal dieses Beispiel nach.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    coding_nerd schrieb:

    ohne diese Codezeile funktionieren dann die PDF-Printer im PrinterDialog()
    bei mir so, wie es sein soll.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    coding_nerd schrieb:

    also kann dieser Thread geschlossen werden.
    Dann musst Du ihn auf Erledigt setzen.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

Facebook
Telefonspende