Drucker Nervmeldung Drucke Seite ... funktionierend abschalten

  • VB.NET
  • .NET (FX) 4.0

    Drucker Nervmeldung Drucke Seite ... funktionierend abschalten

    Hallo Leute
    Heute mal einen Tip der funktioniert.
    Ich hatte das Problem das beim Drucken per Programm für jede Seite die
    Meldung "Drucke Seite 1 von Document1" kam.
    Der Tip mit Einstellen in den Drucker Eigenschaften hat bei nicht funktioniert
    ebenso der Eintrag in der Registry.
    Die Befehlszeile 31 sorgt tatsächlich dafür das diese Status Meldung nicht
    mehr aufpopt.

    Quellcode

    1. Imports System.Drawing.Printing
    3. Public Class Form1
    5. Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    7. End Sub
    9. Private Sub PrintDocument1_PrintPage(sender As Object, e As PrintPageEventArgs) Handles PrintDocument1.PrintPage
    10. e.Graphics.DrawString(TextBox1.Text, New Font("Arial", 14, FontStyle.Regular), Brushes.Red, 10, 20)
    11. e.Graphics.DrawString(TextBox2.Text, New Font("Arial", 14, FontStyle.Regular), Brushes.Red, 10, 40)
    12. e.Graphics.DrawString(TextBox3.Text, New Font("Arial", 14, FontStyle.Regular), Brushes.Red, 10, 60)
    13. e.Graphics.DrawString(RichTextBox1.Text, New Font("Arial", 14, FontStyle.Regular), Brushes.Red, 10, 100)
    14. End Sub
    16. Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
    17. Drucken_Vorschau()
    18. End Sub
    20. Function Drucken_Vorschau()
    21. PrintDocument1.PrinterSettings.PrinterName = "Microsoft XPS Document Writer"
    22. PrintPreviewDialog1.Document = PrintDocument1
    23. PrintPreviewControl1.Document = PrintPreviewDialog1.Document
    24. PrintPreviewControl1.AutoZoom = True
    25. End Function
    27. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    28. Drucken_Vorschau()
    29. Dim standard_Drucker As New PrintDocument
    30. PrintDocument1.PrinterSettings.PrinterName = standard_Drucker.PrinterSettings.PrinterName
    31. PrintDocument1.PrintController = New System.Drawing.Printing.StandardPrintController()
    32. 'PrintDocument1.PrinterSettings.PrinterName = "Versand" ' GK420t Karton | GK420t Rollen | Versand
    33. For z = 1 To 2
    34. PrintDocument1.Print()
    35. Next
    37. End Sub
    39. Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
    40. Me.Close()
    41. End Sub
    42. End Class


    Das Beispiel oben zeigt eigentlich alles wichtige zum drucken.

    Vieleicht hilft es jemanden
    Hilfe den Nichtwissenden :thumbsup:

Facebook
Telefonspende