Drucken bestimmte Seiten

  • VB.NET

Es gibt 9 Antworten in diesem Thema. Der letzte Beitrag () ist von ChristianL.

    Drucken bestimmte Seiten

    Hallo zusammen,

    ich komme leider wieder einmal mit einem Druckproblem, das ich aber noch nirgends gelöst gefunden habe.
    Vorweg: Das mehrseitige Drucken funktioniert.
    Zuerst erfolgt eine Anzeige in einem abgeleiteten PrintPreviewDialog (Class MyPrintPreviewDialog)
    Allerdings funktioniert die Auswahl bestimmter Seiten im PrintDialog nicht ( AllowSomePages = True, FromPage und ToPage sind gesetzt ?!)
    Und die Anzeige von CurrentPage (AllowCurrentPage = True) gibt es im PrintDialog gar nicht ?!
    Egal, welche Einstellung der User im PrintDialog trifft, es werden immer alle Seiten gedruckt.
    Bitte Hilfe, Danke im Voraus.

    VB.NET-Quellcode

    1. Public Class MyPrintPreviewDialog
    2. Inherits PrintPreviewDialog
    3. Private btn As ToolStripButton
    4. Private UpDown As NumericUpDown
    6. Public Sub New()
    7. 'Toolstrip finden
    8. Dim ts As ToolStrip = CType(Controls.Find("toolstrip1", True)(0), ToolStrip)
    9. 'Drucken Button finden
    10. btn = CType(ts.Items.Item(0), ToolStripButton)
    11. 'Neuen Drucken Button mit Handler erstellen
    12. Dim b As New ToolStripButton("", btn.Image, AddressOf PrintClick) With {.Name = "DruckButton"}
    13. 'Originalen Button entfernen
    14. ts.Items.RemoveAt(0)
    15. 'Neuen Button hinzufügen
    16. ts.Items.Insert(0, b)
    18. 'NumericUpDown suchen und auf UpDown setzen
    19. For Each c As Object In ts.Items
    20. If TypeOf c Is ToolStripControlHost Then
    21. 'Dim tsch As ToolStripControlHost = CType(c, ToolStripControlHost)
    22. ' Dim co As Control = tsch.Control
    23. UpDown = CType(CType(c, ToolStripControlHost).Control, NumericUpDown)
    25. End If
    26. Next
    28. End Sub
    30. Private Sub PrintClick(ByVal sender As Object, ByVal e As System.EventArgs)
    32. Dim pd As New PrintDialog With {
    33. .PrinterSettings = Document.PrinterSettings,
    34. .AllowCurrentPage = True,
    35. .AllowSelection = False,
    36. .AllowSomePages = True,
    37. .AllowPrintToFile = False,
    38. .Document = Document
    39. }
    41. If pd.ShowDialog = DialogResult.OK Then
    42. ' Dem printDocument die neuen Einstellungen zuweisen und Drucken
    43. ' starten
    44. ' Document.PrinterSettings = pd.PrinterSettings
    45. Document = pd.Document
    46. ' btn.PerformClick()
    47. Select Case Document.PrinterSettings.PrintRange
    48. Case PrintRange.AllPages
    49. Console.WriteLine("alles drucken")
    50. Case PrintRange.CurrentPage
    51. Console.WriteLine("aktuelle Seite drucken")
    52. Document.PrinterSettings.FromPage = CInt(UpDown.Value)
    53. Document.PrinterSettings.ToPage = CInt(UpDown.Value)
    54. 'TODO somePages funktioniert nicht
    55. Case PrintRange.SomePages
    56. Console.WriteLine("ein paar Seiten drucken")
    58. Document.PrinterSettings.FromPage = 2 'nur zu Testzwecken
    59. Document.PrinterSettings.ToPage = 3
    61. End Select
    62. 'Console.WriteLine("fromPage=" & Document.PrinterSettings.FromPage.ToString)
    64. Document.Print()
    66. Close() ' Den PrintPreviewDialog schließen
    68. End If
    69. End Sub
    71. Private Sub MyPrintPreviewDialog_Load(sender As Object, e As EventArgs) Handles Me.Load
    72. Location = My.Settings.DruckVorschauFormPosition
    73. If Document.DefaultPageSettings.Landscape Then
    74. Size = New Size(900, 600)
    75. Else
    76. Size = New Size(600, 900)
    77. End If
    78. End Sub
    80. Private Sub MyPrintPreviewDialog_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
    81. My.Settings.DruckVorschauFormPosition = Location
    82. My.Settings.Save()
    83. End Sub
    85. Private Sub MyPrintPreviewDialog_MouseWheel(sender As Object, e As MouseEventArgs) Handles Me.MouseWheel
    87. Dim v As Decimal = e.Delta / 120
    89. 'If UpDown.Value + v < 0 Then
    90. ' UpDown.Value = 0
    91. ' Exit Sub
    92. 'End If
    93. 'If UpDown.Value + v > 100 Then
    94. ' UpDown.Value = 100
    95. ' Exit Sub
    96. 'End If
    97. UpDown.Value -= v ' minus, weil "hinunterblättern"
    98. End Sub
    100. End Class

    Dieser Beitrag wurde bereits 3 mal editiert, zuletzt von „ChristianL“ ()

    Willkommen im Forum. :thumbup:

    ChristianL schrieb:

    es werden immer alle Seiten gedruckt.
    Klar.
    Woher soll Bill Gates wissen, was Du auf die 5. Seite drucken willst?
    Das, was gedruckt werden soll, musst Du im PrintPage-Eventhandler selbst organisieren.
    Wenn Du mit PreView druckst, musst Du Dir im "Trockendurchlauf" merken, womit Seite 5 bedruckt werden soll.
    Im zweiten Druck-Lauf druckst Du dann genau das, was da hin muss.
    Oder
    Du hast eine harte Seitenstruktur, die Du in einer For- oder Do-Schleife abarbeitest, da gehst Du einfach nur mit dem richtigen Index rein und feddich. ;)
    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!

    @ErfinderDesRades: ich habe leider beim ersten Versuch [ v b n e t] [ / v b n e t ] statt [ c o d e = v b n e t ] [ / c o d e ] verwendet ... Bug oder Feature? ;)

    @RodFromGermany: Hallo Rod, die Druckaufbereitung funktioniert, die Seiten werden im "Trockendurchlauf" gerendert, dann im PrintPreview (richtig) angezeigt, und dann auch richtig gedruckt.

    Ich möchte jetzt dem User die Möglichkeit geben, von einem printDokument, das zum Beispiel 5 Seiten hat, zum Beispiel nur die Seiten 2-3 auszudrucken. Oder auch nur die angezeigte Seite auszudrucken (CurrentPage ??)
    Artikel:docs.microsoft.com/de-de/dotne…a-printdialog-at-run-time

    Was ich sonst darüber im msdn gefunden habe, sollte das über die Eigenschaften printDocument.PrinterSettings.FromPage und .ToPage definiert werden. Diese Einstellungen werden vom User im PrintDialog (Achtung: Nicht PrintPreviewDialog!) eingestellt. Allerdings dürfte die Rückübergabe dieser Einstellungen bei mir nicht funktionieren. (Rückgabe mit: printDocument = Printdialog.Document ??) Habe ich da grundsätzlich etwas falsch verstanden?

    Der Vollständigkeit halber hier noch der Code, wie die Klassse MyPrintPreviewDialog verwendet wird:
    (Anm.: dies ist eine ausgekoppelte Testsolution, und nicht das eigentliche Projekt)
    (Anm.: Zum Ausführen benötigt: Form1 mit einem Button.Name="DruckButton", außerdem Verweis System.Drawing.Printing)

    VB.NET-Quellcode

    1. Imports System.ComponentModel
    3. Public Class Form1
    4. Friend WithEvents P_doc As PrintDocument
    5. Private Seitenzahlen As Integer = 5
    6. Private Seitenzahl As Integer = 1
    8. Private Sub DruckButton_Click(sender As Object, e As EventArgs) Handles DruckButton.Click
    10. Dim PreviewDL As New MyPrintPreviewDialog
    11. Seitenzahlen = 5
    12. Seitenzahl = 0
    13. P_doc = New PrintDocument With {
    14. .DocumentName = "der name des Dokuments"}
    15. P_doc.DefaultPageSettings.Landscape = False
    17. PreviewDL.Document = P_doc
    19. PreviewDL.ShowDialog()
    21. P_doc = Nothing
    23. End Sub
    24. Private Sub PerformPrint(sender As Object, e As PrintPageEventArgs) Handles P_doc.PrintPage
    25. Dim fo As New Font("Arial", 50, FontStyle.Regular)
    26. Seitenzahl += 1
    28. e.Graphics.DrawString(Seitenzahl.ToString, fo, Brushes.Black, 50, 50)
    30. If Seitenzahl < Seitenzahlen Then
    31. e.HasMorePages = True
    32. Else
    34. e.HasMorePages = False
    35. Seitenzahl = 0
    36. End If
    38. End Sub
    40. Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    41. Location = My.Settings.FormPosition
    42. End Sub
    43. Private Sub Form1_Closing(sender As Object, e As CancelEventArgs) Handles Me.Closing
    44. My.Settings.FormPosition = Location
    45. My.Settings.Save()
    46. End Sub
    47. End Class

    Dieser Beitrag wurde bereits 12 mal editiert, zuletzt von „ChristianL“ ()

    ChristianL schrieb:

    P_doc = Nothing
    Was soll das?
    Try this:

    VB.NET-Quellcode

    1. Private Sub PrintDocument1_BeginPrint(sender As Object, e As Printing.PrintEventArgs) Handles P_doc.BeginPrint
    2. Seitenzahl = 2
    3. Seitenzahlen = 4
    4. End Sub
    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!

    VB.NET-Quellcode

    1. P_Doc = Nothing

    gibt einfach bei Beendigung den Speicher frei

    Dies betrifft aber nicht mein Problem...
    Ich möchte das fertige Printdocument (in dem im PrintPreview ALLE Seiten angezeigt werden) einschränken, bitte meine vorherigen Posts lesen!, siehe FromPage, ToPage , AllowSomePages

    Das Problem müsste in der Class MyPrintPreviewDialog -> Sub PrintClick liegen...

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „ChristianL“ ()

    @ChristianL Das PrintDSocument wird noch gebraucht.
    Try this:

    VB.NET-Quellcode

    1. Private Sub PrintDocument1_BeginPrint(sender As Object, e As Printing.PrintEventArgs) Handles P_doc.BeginPrint
    2. Seitenzahl = 2
    3. Seitenzahlen = 4
    4. End Sub
    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!

    ChristianL schrieb:

    Aber nicht die Einschränkung mit FromPage und ToPage

    RodFromGermany schrieb:

    Try this:

    VB.NET-Quellcode

    1. Private Sub PrintDocument1_BeginPrint(sender As Object, e As Printing.PrintEventArgs) Handles P_doc.BeginPrint
    2. Seitenzahl = 2
    3. Seitenzahlen = 4
    4. End Sub
    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!

    Nach einigem Herumprobieren und Lesen habe ich jetzt folgendes gefunden:
    social.msdn.microsoft.com/Foru…tdocument?forum=vbgeneral

    "You can not draw until you reach the start page or clear the drawing when you reach the start page."

    Bedeutet also, dass mein Ansatz falsch war.
    Wenn man nur einige Seiten drucken möchte, muss (und kann nur) die PrintPage -Sub
    geändert werden.
    Für mein Beispiel habe ich es geschafft, für mein eigentliches Projekt wird es aber noch einige Arbeit, die (verschiedenen) PrintPage Ereignisse entsprechend zu bearbeiten.
    Bin von der Microsoft-Dokumentation enttäuscht, die mir und anderen gewisse falsche Hoffnungen erweckt hat.
    Danke Rod fürs Helfen!
    Thema erledigt, wen's interessiert, hier die Lösung (etwas unbefriedigend):

    VB.NET-Quellcode

    1. Private Sub PerformPrint(sender As Object, e As PrintPageEventArgs) Handles P_doc.PrintPage
    2. Dim fo As New Font("Arial", 50, FontStyle.Regular)
    3. Seitenzahl += 1
    5. If e.PageSettings.PrinterSettings.PrintRange = PrintRange.SomePages Then
    6. Do While Seitenzahl < e.PageSettings.PrinterSettings.FromPage
    7. Seitenzahl += 1 'hier fehlt das Überspringen der nicht zu druckenden Daten
    8. Loop
    10. End If
    12. e.Graphics.DrawString(Seitenzahl.ToString, fo, Brushes.Black, 50, 50)
    14. If e.PageSettings.PrinterSettings.PrintRange = PrintRange.SomePages AndAlso Seitenzahl >= e.PageSettings.PrinterSettings.ToPage Then
    15. e.HasMorePages = False
    16. Seitenzahl = 0
    17. Exit Sub
    18. End If
    20. If Seitenzahl < Seitenzahlen Then
    21. e.HasMorePages = True
    22. Else
    23. e.HasMorePages = False
    24. Seitenzahl = 0
    25. End If
    27. End Sub


    Dieser Beitrag wurde bereits 3 mal editiert, zuletzt von „ChristianL“ ()

Facebook
Telefonspende