Brauche hilfe beim Drucken

  • VB.NET

Es gibt 77 Antworten in diesem Thema. Der letzte Beitrag () ist von Enrico.

    Brauche hilfe beim Drucken

    Hallo
    Ich bin neu im forum und beschäftige mich seit 2 wochen mit visual basic 2010 express und habe mein erstes mini programm geschrieben einen mwst rechner.

    Jetzt bin ich dabei ein programm zu erstellen womit man rechnungen schreiben kann.
    Kurz zum layout: es ist bloß ein fenster mit mehreren textboxen und label.
    Wenn ich später zuhause bin werde ich ein screenshot machen damit man es leichter versteht. Jetzt zu meinem problem: ich möchte es so drucken können das nur der text aus den textboxen und den labels zusehen ist ohne irgentwelchen rändern.

    Falls fragen bestehen einfach fragen.

    Danke schonmal im vorraus

    Mfg enrico

    Hier ein ganz einfaches Beispiel, wie man einen einfachen Text drucken kann:
    csharp-tricks.blogspot.de/2012/01/drucken-mit-c.html

    Auf MSDN findest du auch einige Infos:
    msdn.microsoft.com/de-de/library/vstudio/xdt36c58.aspx

    Da gibt's ein Control: PrintDocument. Da kann man mit GDI+ reinzeichnen. Das Drucken übernimmt das Control. Hier z.B. ein MSDN Quickie: msdn.microsoft.com/de-de/library/bb979343.aspx
    Mit freundlichen Grüßen,
    Thunderbolt

    Hallo

    da bin ich wieder. ich hab jetzt einiges ausprobiert und wollte jetzt mal fragen ob eventuell mal einer so nett sein könnte und den Code überprüfen könnte. ich habe leider keinen Drucker hier um es zu testen. wenn was falsch ist nicht so hart sein ich bin Neuling :)

    Danke schon mal im voraus

    Quellcode

    1. Imports System.Drawing.Printing
    2. Imports System.IO
    4. Public Class txtAdresse
    6. Public Property docToPrint As PrintDocument
    9. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    10. 'Dropdown menü auswahl
    11. cmbÜberBar.Items.Add("Überweisung")
    12. cmbÜberBar.Items.Add("Barzahlung")
    13. 'Aktuelles Datum
    14. lblDatum.Text = Date.Today
    15. 'Tastenerkennung
    16. Me.KeyPreview = True
    17. End Sub
    19. Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
    20. Const mehrwertsteuer As Integer = 19
    21. Const hundert As Integer = 100
    22. Dim ergebniss As Double
    23. Dim zahl_anfang As Double
    24. Dim zahl_ende As Double
    26. If e.KeyCode = Keys.PageUp Then
    27. zahl_anfang = txtNetto.Text
    28. ergebniss = zahl_anfang / hundert * mehrwertsteuer + zahl_anfang
    29. txtBrutto.Text = ergebniss
    31. zahl_anfang = txtNetto.Text
    32. zahl_ende = txtBrutto.Text
    33. ergebniss = zahl_ende - zahl_anfang
    34. txtMwst.Text = ergebniss
    36. ElseIf e.KeyCode = Keys.PageDown Then
    37. zahl_ende = txtBrutto.Text
    38. ergebniss = zahl_ende / 1.19
    39. txtNetto.Text = ergebniss
    41. zahl_anfang = txtNetto.Text
    42. zahl_ende = txtBrutto.Text
    43. ergebniss = zahl_ende - zahl_anfang
    44. txtMwst.Text = ergebniss
    46. ElseIf e.KeyCode = Keys.F12 Then
    47. MsgBox(" Kleine Hilfe. " + vbNewLine + "1. `Öffnen´ klicken und `Rechnung.txt´öffnen" + vbNewLine + "2. Rechnung ganz normal schreiben." + vbNewLine + "3. `Rechnung´ oder `Barzahlung´ wählen." + vbNewLine + "4. Rechnung ganz normal Drucken." + vbNewLine + "5. !!!WICHTIG!!! VOR DEM BEENDEN SPEICHERN!!!")
    49. ElseIf e.KeyCode = Keys.F11 Then
    50. MsgBox("Tastenkürzel" + vbNewLine + "F12 = Hilfe aufrufen." + vbNewLine + "F11 = Tastenkürzel." + vbNewLine + "`Bild Up´ Errechnet den Brutto Preis und MwSt." + vbNewLine + "`Bild Down´ Errechnet den Netto Preis und MwSt." + vbNewLine + "`Druck´ Startet das Drucken" + vbNewLine + "`ALT´+`F4´ Programm Beenden." + vbNewLine + "`F4´ Öffnen" + vbNewLine + "`F3´ Speichern")
    52. ElseIf e.KeyCode = Keys.F4 Then
    53. 'Zum Öffnen der Rechnungsnummer
    54. Dim FileReader As StreamReader
    55. Dim results As DialogResult
    56. results = OpenFileDialog1.ShowDialog
    57. results = DialogResult.OK
    58. FileReader = New StreamReader(OpenFileDialog1.FileName)
    59. txtRNR.Text = FileReader.ReadToEnd()
    60. FileReader.Close()
    62. ElseIf e.KeyCode = Keys.F3 Then
    63. 'Zum Speichern der Rechnungsnummer
    64. Dim FileWriter As StreamWriter
    65. Dim results As DialogResult
    66. results = SaveFileDialog1.ShowDialog
    67. results = DialogResult.OK
    68. FileWriter = New StreamWriter(SaveFileDialog1.FileName, False)
    69. FileWriter.Write(txtRNR.Text)
    70. FileWriter.Close()
    72. ElseIf e.KeyCode = Keys.Alt + Keys.F4 Then
    73. Me.Close()
    75. ElseIf e.KeyCode = Keys.Print Then
    76. 'Zum Drucken
    77. Dim Form1 As New PrintDocument
    78. 'Let the user to choose the page range to print.
    79. PrintDialog1.AllowSomePages = True
    80. 'Display the help button.
    81. PrintDialog1.ShowHelp = True
    82. PrintDialog1.Document = Form1
    83. Dim result As DialogResult = PrintDialog1.ShowDialog()
    84. If (result = DialogResult.OK) Then
    85. Form1.Print()
    86. End If
    89. End If
    90. End Sub
    92. Private Sub BeendenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BeendenToolStripMenuItem.Click
    93. 'Zum Beenden des Programms
    94. Dim testMsg As Integer
    95. MsgBox("Vor dem Beenden Speichern?", vbOKCancel + vbQuestion, "Test Message")
    97. 'Zum Speichern der Rechnungsnummer
    98. Dim FileWriter As StreamWriter
    99. Dim results As DialogResult
    100. results = SaveFileDialog1.ShowDialog
    102. If testMsg = 1 Then
    103. results = DialogResult.OK
    104. FileWriter = New StreamWriter(SaveFileDialog1.FileName, False)
    105. FileWriter.Write(txtRNR.Text)
    106. FileWriter.Close()
    107. Else
    108. Return
    109. End If
    110. End Sub
    111. Private Sub PrintDocument1_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
    112. Dim mytext As String
    113. mytext = Me.Text
    114. Dim printFont As New System.Drawing.Font _
    115. ("Arial", System.Drawing.FontStyle.Regular)
    116. ' Format and print the text
    117. e.Graphics.DrawString(mytext, printFont, _
    118. System.Drawing.Brushes.Black, 0, 0)
    120. End Sub
    122. Private Sub DruckenToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DruckenToolStripMenuItem1.Click
    123. 'Zum Drucken
    124. Dim Form1 As New PrintDocument
    125. 'Let the user to choose the page range to print.
    126. PrintDialog1.AllowSomePages = True
    127. 'Display the help button.
    128. PrintDialog1.ShowHelp = True
    129. PrintDialog1.Document = Form1
    130. Dim result As DialogResult = PrintDialog1.ShowDialog()
    131. If (result = DialogResult.OK) Then
    132. Form1.Print()
    133. End If
    134. End Sub
    137. Private Sub ÖffnenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DruckenToolStripMenuItem.Click
    138. 'Zum Öffnen der Rechnungsnummer
    139. Dim FileReader As StreamReader
    140. Dim results As DialogResult
    141. results = OpenFileDialog1.ShowDialog
    142. If results = DialogResult.OK Then
    143. FileReader = New StreamReader(OpenFileDialog1.FileName)
    144. txtRNR.Text = FileReader.ReadToEnd()
    145. FileReader.Close()
    146. End If
    147. End Sub
    149. Private Sub SpeichernToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OptionToolStripMenuItem.Click
    150. 'Zum Speichern der Rechnungsnummer
    151. Dim FileWriter As StreamWriter
    152. Dim results As DialogResult
    153. results = SaveFileDialog1.ShowDialog
    154. If results = DialogResult.OK Then
    155. FileWriter = New StreamWriter(SaveFileDialog1.FileName, False)
    156. FileWriter.Write(txtRNR.Text)
    157. FileWriter.Close()
    158. End If
    159. End Sub
    161. Private Sub MwStToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MwStToolStripMenuItem1.Click
    163. Const mehrwertsteuer As Integer = 19
    164. Const hundert As Integer = 100
    165. Dim ergebniss As Double
    166. Dim zahl_anfang As Double
    168. zahl_anfang = txtNetto.Text
    169. ergebniss = zahl_anfang / hundert * mehrwertsteuer + zahl_anfang
    170. txtBrutto.Text = ergebniss
    172. End Sub
    174. Private Sub MwStToolStripMenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MwStToolStripMenuItem2.Click
    176. Dim ergebniss As Double
    177. Dim zahl_ende As Double
    179. zahl_ende = txtBrutto.Text
    180. ergebniss = zahl_ende / 1.19
    181. txtNetto.Text = ergebniss
    183. End Sub
    185. Private Sub MwSt19ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MwSt19ToolStripMenuItem.Click
    188. Dim ergebniss As Double
    189. Dim zahl_anfang As Double
    190. Dim zahl_ende As Double
    192. zahl_anfang = txtNetto.Text
    193. zahl_ende = txtBrutto.Text
    194. ergebniss = zahl_ende - zahl_anfang
    195. txtMwst.Text = ergebniss
    197. End Sub
    199. End Class

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

    Enrico schrieb:

    ich habe leider keinen Drucker hier um es zu testen
    Doch.
    Installier Dir einen PDF-Drucker und feddich.
    Alternativ nutze den PrintPreviewDialog wie im folgenden Beispiel:
    Form mit Button, PrintDocument:
    Ausdruck

    VB.NET-Quellcode

    1. Public Class Form1
    2. Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
    3. Using dlg = New PrintPreviewDialog
    4. dlg.Document = Me.PrintDocument1
    5. dlg.ShowDialog()
    6. End Using
    7. End Sub
    9. Private Sub PrintDocument1_PrintPage(sender As System.Object, e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
    10. Dim g = e.Graphics
    11. Dim txt = "Preis:"
    12. Dim ft = New Font("Arial", 30)
    14. Dim rc = New RectangleF(New Point(30, 30), g.MeasureString(txt, ft))
    16. g.DrawString("Preis:", ft, Brushes.Black, New Point(30, 30))
    17. g.DrawRectangle(Pens.Black, rc.Left, rc.Top, rc.Width, rc.Height)
    18. End Sub
    19. End Class
    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!

    @RodFromGermany

    Danke werd ich probieren. In Zeile 12 seines codes kann man da auch die Schriftart und Größe , und in Zeile 14 und 16 das 30,30 in den klammern weglassen?
    Zeile 12 da ich verschiedene Schriftgrößen habe und Zeile 14 und 16 weil es auf dem kompletten A4 Blatt gedruckt werden soll.

    Danke bis jetzt für die hilfe

    RodFromGermany schrieb:

    wie im folgenden Beispiel:

    Enrico schrieb:

    da ich verschiedene Schriftgrößen habe
    ==>

    VB.NET-Quellcode

    1. Dim ft1 = New Font(...)
    2. Dim ft2 = New Font(...)
    3. Dim ft3 = New Font(...)

    Enrico schrieb:

    30,30 in den klammern
    ist die jeweilige Position auf Deinem Papier, musst Du halt anpassen.
    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!

    Enrico schrieb:

    jedes einzelne element
    Nicht jedes einzelne Element, sondern jeden einzelnen in sich geschlossenen Text.
    Es gibt eine DrawString-Überadung, da kannst Du einen Text in einem vorgegebenen Rechteck positionieren.
    Am besten, Du machst erst mal ein kleines Testprojekt und spielst mit der Druckausgabe rum, um sie besser zu begreifen.
    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!

    Enrico schrieb:

    Hast du dir das Screenshot angesehen
    Ja und?
    Wie soll denn Dein fertiger Druck aussehen?
    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!

    Dann musst Du in Deinem Druck sämtliche Texte Deiner Controls auslesen und explizit an der richtige Position ausgeben.
    Wo ist das Problem?
    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!

    Nur zur Überlegung:

    Gib doch die Rechnung als Word-Dokument aus. 1. Du hast das Word welches du autom. speichern lassen kannst und 2. kannst du es anschließend/ auch autom. drucken lassen.
    Entweder du generierst das Word komplett selber oder du machst es per Formular-Vorlage.

    Dies soll nur ein Vorschlag sein. Wenn du dich nun aber auf GDI/ PrintDocument festgelegt hast dann verfolge diesen Weg weiter.

    Ja das Problem ist das ich nicht weis wie man das anstellt da ich halt erst vor kurzem damit angefangen hab. Ich weis das man als Neuling erstmal kleinere Sachen machen soll aber da sich mein bekannter immer aufregt wenn er Rechnungen schreibt hab ich gedacht ich nehme das zum üben...
    Ich hab auch schon Google angestrengt aber nicht zu meinem Thema gefunden.

    Das mit dem word documenta wäre auch eine Überlegung nur sollte es denn halt automatisch im Hintergrund passieren da mein bekannter es gerne so einfach wie möglich hat....
    Also ich bin für verschiedene Möglichkeiten offen es muss halt nur für den Anwender einfach sein und nicht das er von einem zum anderen Programm wechseln muss...

    Enrico schrieb:

    das ich nicht weis wie man das anstellt
    Mal ein Beispiel mit 3 Texten, von denen 2 per Druckposition verknüpft sind und 3 Fonts:

    VB.NET-Quellcode

    1. Private Sub PrintDocument1_PrintPage(sender As System.Object, e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
    2. Dim g = e.Graphics
    3. Dim txt = "Preis:"
    4. Dim preis = "10,30 €"
    5. Dim txt2 = "Es gelten die allgemeinen und besonderen und überhaupt bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla usw. SCHLUSS!"
    7. Dim ft1 = New Font("Arial", 30)
    8. Dim ft2 = New Font("Courier New", 30)
    9. Dim ft3 = New Font("Arial", 12)
    11. Dim sz = g.MeasureString(txt, ft1)
    12. g.DrawString(txt, ft1, Brushes.Black, New PointF(30, 30))
    13. g.DrawString(preis, ft2, Brushes.Brown, New PointF(30 + sz.Width, 30))
    15. Dim rc3 = New RectangleF(80, 1000, 700, 500)
    16. sz = g.MeasureString(txt2, ft2)
    17. g.DrawString(txt2, ft3, Brushes.Black, rc3)
    18. 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!

    @Enrico

    Ich schreibe zur Zeit selber an einem Rechnungsprogramm für meine Eltern. Wenn du dir ein Buch aus der Bibilothek oder von woanderes holst, kannst du rel. schnell die Grundlagen erlernen und auch anwenden. Mir hat das sehr geholfen und hilft mir immernoch.
    Du liegst richtig, dass du dein Programm so einfach wie möglich gestalten willst. Versuch dich auch ersteinmal auf das Wesentliche zu konzentrieren. Mein Rechnungsprogramm brauchte ca. ein halbes Jahr bis es ohne großartige Probleme lief d.h. aber nicht, dass es für mich als Programmierer simpel und einfach aufgebaut war. In der Zeit und auch jetzt noch habe ich das Programm in seiner ganzen Struktur ca. 5 Mal umgeschrieben oder komplett neu mit neuen Funktionen geschrieben. Das eben nur zur Info für Dich.
    Versuch am Anfang das Umzusetzen was Du kannst und nicht was dein Bekannt fordert. Das hindert dich nur ein deiner Programmierarbeit, weil du dann vor Problemen sitzt, die du noch nicht umsetzen aber kannst aber vl. in ein paar Monaten später, wenn du mehr gelernt hast.
    Ich finde auch, das dein Projekt sehr gut für dich als Einsteiger geeignet ist. Denn da hast du was, was produktiv eingesetzt wird. Was gibt es besseres für einen Einsteiger/ Hobby-Programmierer/ Anfänger.

    Ich danke euch schon mal recht herzlich für eure Hilfe und Geduld. Habe aber noch eine Frage: bei dem code von RodFromGermany kann ich da in Zeile 3 - 5 auch direkt die textboxen und label angeben oder muss da Text wie bei dir im code zusehen ist stehen?

    Enrico schrieb:

    kann ich da in Zeile 3 - 5 auch direkt die textboxen und label angeben
    Nein.
    Du musst die Text-Property Deiner Controls verwenden.
    Gib Deinem Projekt bitte mal Option Strict On.
    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