Print Dialog Seitenauswahl

  • VB.NET

Es gibt 1 Antwort in diesem Thema. Der letzte Beitrag () ist von AbsolutCF.

    Print Dialog Seitenauswahl

    Hi Leute!

    Ich habe ein PrintDialog und ein Printdocument indem eine Liste generiert wird die über mehrere Seiten geht.

    Das drucken über mehrer Seien ist kein Problem. Jetzt will ich erreichen das man im PrintDialog einstellt das nur Seite 1-2 oder nur Seite 2 gedruckt werden sollen. Hab da auch was bei Galileo Open book gefunden aber irgendwie fuktioniert das nicht ganz richtig.

    VB.NET-Quellcode

    1. 'pd3 = Printdocument
    2. 'Dim von as Integer
    3. 'Dim bis as Integer
    5. Private Sub Button2_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    6. pd3.DefaultPageSettings.Landscape = True
    8. Dim d As New PrintDialog() : d.Document = pd3 : d.AllowSomePages = True
    9. If d.ShowDialog() = DialogResult.OK Then
    10. pd3.DocumentName = "Musterbuch" & Date.Today.Year
    11. Select Case d.PrinterSettings.PrintRange
    12. Case Printing.PrintRange.AllPages
    13. von = 1 : bis = d.PrinterSettings.MaximumPage
    14. Case Printing.PrintRange.SomePages
    15. von = d.PrinterSettings.FromPage : bis = d.PrinterSettings.ToPage
    17. End Select
    18. pd3.Print()
    20. End If
    21. End Sub
    24. Private Sub pd3_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles pd3.PrintPage
    26. Dim font1 As New Font("Arial", 10, FontStyle.Regular, GraphicsUnit.Point)
    27. Dim font2 As New Font("Arial", 10, FontStyle.Bold, GraphicsUnit.Point)
    28. Dim font3 As New Font("Arial", 25, FontStyle.Bold, GraphicsUnit.Point)
    29. Dim penAus As New Pen(Brushes.Black, 2)
    30. Dim penIn As New Pen(Brushes.Black, 1)
    31. Dim oben As Integer = 120
    36. Dim zeilen_pro_seite As Integer = 34
    38. Static zeilenzähler As Integer
    40. Static counter As Integer = 1
    42. Static seite = 1
    44. Dim pagecount As Integer = (mainLoader.Items.Count - 1) / 34
    46. Dim diff As Integer = mainLoader.Items.Count - 1
    48. If diff - pagecount > 0 Then
    49. pagecount += 1
    51. End If
    59. 'Seiten Titel aufbauen
    60. e.Graphics.DrawString("Datum", font2, Brushes.Black, 20, 100)
    61. e.Graphics.DrawString("Lieferant", font2, Brushes.Black, 100, 100)
    62. e.Graphics.DrawString("Betreuer", font2, Brushes.Black, 180, 100)
    63. e.Graphics.DrawString("Muster", font2, Brushes.Black, 300, 100)
    64. e.Graphics.DrawString("Menge", font2, Brushes.Black, 620, 100)
    65. e.Graphics.DrawString("Order", font2, Brushes.Black, 680, 100)
    66. e.Graphics.DrawString("Tracking", font2, Brushes.Black, 820, 100)
    67. e.Graphics.DrawString("Forw.", font2, Brushes.Black, 945, 100)
    68. e.Graphics.DrawString("Eingang", font2, Brushes.Black, 1000, 100)
    73. For counter = counter To mainLoader.Items.Count - 1
    76. If seite >= von AndAlso seite <= bis Then
    78. zeilenzähler += 1
    80. If zeilenzähler >= zeilen_pro_seite Then
    83. zeilenzähler = 0
    84. seite += 1
    86. e.HasMorePages = True
    87. Exit Sub
    89. Else
    90. e.HasMorePages = False
    94. 'Druck Routine
    96. End If
    98. End If
    100. Next
    101. e.HasMorePages = False
    103. zeilenzähler = 0
    104. counter = 1


    Es sind immoment Date vorhanden für zwei Seiten, Wenn ich im Dialog alle Seiten drucken auswähle kommen auch alle Seiten wie gewünscht raus aber bei Seite 1 bis 1 oder Seite 2 bis 2 kommen nur Blätter mit den Spalten Überschriften.

    Kann mir einer helfen wo der Fehler ist?

Facebook
Telefonspende