VB Drucken läuft auf Fehler

  • VB.NET

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

    VB Drucken läuft auf Fehler

    Hallo zusammen,

    ich habe folgendes Problem. Ich studiere Wirtschaftsingenieurswissenschaften im 2.Semester und muss für Informatik eine Applikation zur Behälterberechnung programmieren. Soweit so gut. Nun habe ich jedoch das Problem das der Druckvorgang permanent auf Fehler läuft und mein Form1 nicht gedruckt wird.

    Das erste ist die PrintForm und darunter befinden sich die beiden Vorgänge die den Druck starten sollen die sich im Main befinden.

    Gedacht war das ganze eigentlich so, das der Nutzer durch die ausgelöste Aktion den Druck mit dem PrintDialog startet. Der scheint hier jedoch gar nicht zu greifen.

    Beim Test hängt sich das Programm an der Stelle NotImplementedExeption auf und beendet.
    Der Ausdruck des Form1 ist dabei nicht erfolgt.

    Die Programmierung erfolgt mit Visual Studio 2013.
    Alles was ich bisher hier und im Forum gefunden habe verwirrt mich mehr als es mir hilft.

    Vielen Dank schon mal an jeden der mir einen Ratschlag geben kann.
    Gruß, Andi

    Visual Basic-Quellcode

    1. Class PrintForm
    3. Private _form1 As Form1
    5. Sub New(form1 As Form1)
    6. ' TODO: Complete member initialization
    7. _form1 = form1
    8. End Sub
    9. Property PrintAction As Object
    10. Sub Print()
    11. Throw New NotImplementedException()
    12. End Sub
    14. End Class
    16. Private Sub DruckenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DruckenToolStripMenuItem.Click
    17. 'Form Drucken über Programmleiste
    18. Dim pf As New PrintForm(Me)
    19. pf.PrintAction = PrintToPrinter
    20. pf.Print()
    22. End Sub
    24. Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
    25. 'Form Drucken über Programm Button
    26. Dim pf As New PrintForm(Me)
    27. pf.PrintAction = PrintToPrinter
    28. pf.Print()
    30. End Sub

    Willkommen im Forum. :thumbup:

    CrashWorm schrieb:

    NotImplementedExeption
    Ich nehme mal an, Du kannst diese Fehlermeldung zumindest in den richtigen Kontext setzen, um zu verstehen, warum sie kommt (sie kommt nämlich, weil Du sdas so implementiert hast). ;)
    Gugst Du hier.
    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!

    Danke für deine schnelle Antwort.
    ​Ja, mir ist bewusst das ich diese Ausnahme angelegt habe.
    Danke für den Link. Der Aufruf des PrintDialog funktioniert.^^
    Ich versuche mir jetzt zu erarbeiten das mein Form1 im Querformat erscheint.
    Aktuell sehe ich ein weißes Blatt im Hochformat.
    Gruß, Andi

    CrashWorm schrieb:

    Querformat
    geht entweder über den PageSetupDialog oder direkt so:

    VB.NET-Quellcode

    1. PrintDocument1.DefaultPageSettings.Landscape = True
    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!

    CrashWorm schrieb:

    "Member Initialisatio
    Was meinst Du damit?
    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!

    CrashWorm schrieb:

    habe ich ein weißes Blatt.
    Ich wiederhole mich ungern.
    Gugst Du hier.
    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!

    Das ist ein Konstruktor:

    VB.NET-Quellcode

    1. Sub New(form1 As Form1)
    2. ' TODO: Complete member initialization
    3. _form1 = form1
    4. End Sub


    Und - wenn alles mit rechten Dingen zugeht - fehlt da der InitializeComponents-Aufruf, also probierma

    VB.NET-Quellcode

    1. Sub New(form1 As Form1)
    2. ' TODO: Complete member initialization
    3. InitializeComponents()
    4. _form1 = form1
    5. End Sub

    InitializeComponents() im Konstruktor aufzurufen ist eine etwas eigenartige Notwendigkeit von Windows.Forms.Forms, die man im FormDesigner erstellt hat.
    Nicht verstehen - einfach ausprobieren, obs dann besser ist.

    Erstmal vielen Dank für eure Hilfe. Ich habe jetzt allerdings auf eine für mich besser ansprechende Methode gewechselt indem ich über die Screenshots arbeite.
    ​Ich verstehe lediglich nicht warum mein Grafik nicht auf dem Blatt passend eingesetzt wird.
    Hat dazu jemand eine Idee? Die Margins sind ja auf 0?
    Auf den PrintDialog wird komplett verzichtet.

    Visual Basic-Quellcode

    1. ​Imports System.Drawing.Printing
    4. Public Class Form1
    5. Inherits System.Windows.Forms.Form
    7. #Region " Vom Windows Form Designer generierter Code "
    8. #End Region
    9. 'Variablen zum Drucken
    10. Private Const SRCCOPY As Integer = &HCC0020
    12. Private Declare Function BitBlt _
    13. Lib "gdi32.dll" ( _
    14. ByVal hdcDest As IntPtr, _
    15. ByVal x As Int32, _
    16. ByVal y As Int32, _
    17. ByVal Width As Int32, _
    18. ByVal Height As Int32, _
    19. ByVal hdcSrc As IntPtr, _
    20. ByVal xSrc As Int32, _
    21. ByVal ySrc As Int32, _
    22. ByVal dwRop As Int32 _
    23. ) As Boolean
    25. Private formImage As Bitmap
    27. Public Sub PrintForm()
    29. ' Graphics-Objekt für die Form erzeugen
    30. Dim formGraphics As Graphics = Me.CreateGraphics
    32. ' Kompatible Bitmap erzeugen und Graphics-Objekt abholen
    33. formImage = New Bitmap(Me.Width, Me.Height, formGraphics)
    34. Dim memGraphics As Graphics = Graphics.FromImage(formImage)
    36. ' Quell- und Ziel-DCs abholen
    37. Dim sourceDC As IntPtr = formGraphics.GetHdc
    38. Dim targetDC As IntPtr = memGraphics.GetHdc
    40. ' Kopieren ("Screenshot")
    41. BitBlt(targetDC, _
    42. 0, 0, Me.ClientRectangle.Width, Me.ClientRectangle.Height, _
    43. sourceDC, _
    44. Me.ClientRectangle.X, Me.ClientRectangle.Y, _
    45. SRCCOPY)
    47. ' DCs freigeben
    48. formGraphics.ReleaseHdc(sourceDC)
    49. formGraphics.Dispose()
    50. memGraphics.ReleaseHdc(targetDC)
    51. memGraphics.Dispose()
    53. ' Die Abbildung aus formImage ausdrucken:
    54. PrintDocument1.DefaultPageSettings.Landscape = True
    55. PrintDocument1.Print()
    56. formGraphics.Dispose()
    58. End Sub
    59. Private Sub PrintDocument1_PrintPage( _
    60. ByVal sender As System.Object, _
    61. ByVal e As System.Drawing.Printing.PrintPageEventArgs _
    62. ) Handles PrintDocument1.PrintPage
    64. ' Screenshot ausdrucken
    65. e.Graphics.DrawImage(formImage, 0, 0)
    66. End Sub

    Jou.

    CrashWorm schrieb:

    nicht auf dem Blatt passend eingesetzt wird
    Verwende Graphics-Methoden statt API.BitBlt. Teste das mit einer Bitmap in einer PictureBox.
    Nutze den PrintPreviewDialog.
    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!