Form drucken

  • VB.NET

Es gibt 2 Antworten in diesem Thema. Der letzte Beitrag () ist von Kouki.

    Form drucken

    Hi

    also ich hab ein kleines problem ich hab auf meiner form MenuStrip eingefügt und will nun DruckenToolStripMenuItem einfügen so das habe ich gemacht aber wie bringe ich den pc dazu die form dann auch zu drucken mit allem was auf der oberfläche und den textboxen steht?

    meiner ganzer code sieht so aus:

    VB.NET-Quellcode

    1. Public Class Form1
    3. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    4. 'TODO: Diese Codezeile lädt Daten in die Tabelle "FirstDataBaseDataSet.Adressen". Sie können sie bei Bedarf verschieben oder entfernen.
    5. Me.AdressenTableAdapter.Fill(Me.FirstDataBaseDataSet.Adressen)
    7. End Sub
    9. Private Sub AdressenBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AdressenBindingNavigatorSaveItem.Click
    10. Me.Validate()
    11. Me.AdressenBindingSource.EndEdit()
    12. Me.TableAdapterManager.UpdateAll(Me.FirstDataBaseDataSet)
    14. End Sub
    17. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    18. TextBox2.Clear()
    19. Dim rnd As New Random
    20. For i As Integer = 0 To 15
    21. If i = 4 Or i = 8 Or i = 12 Then
    22. TextBox2.Text &= "-"
    23. End If
    24. TextBox2.Text &= rnd.Next(0, 9)
    25. Next
    26. End Sub
    28. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    29. TextBox8.Text = Val(TextBox6.Text) * Val(TextBox7.Text)
    30. End Sub
    31. Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
    32. TextBox12.Text = Val(TextBox10.Text) * Val(TextBox11.Text)
    33. End Sub
    34. Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
    35. TextBox16.Text = Val(TextBox14.Text) * Val(TextBox15.Text)
    36. End Sub
    37. Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
    38. TextBox20.Text = Val(TextBox18.Text) * Val(TextBox19.Text)
    39. End Sub
    40. Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
    41. TextBox24.Text = Val(TextBox22.Text) * Val(TextBox23.Text)
    42. End Sub
    43. Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
    44. TextBox28.Text = Val(TextBox26.Text) * Val(TextBox27.Text)
    45. End Sub
    46. Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
    47. TextBox32.Text = Val(TextBox30.Text) * Val(TextBox31.Text)
    48. End Sub
    49. Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
    50. TextBox36.Text = Val(TextBox34.Text) * Val(TextBox35.Text)
    51. End Sub
    52. Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
    53. TextBox37.Text = Val(TextBox8.Text) + Val(TextBox12.Text) + Val(TextBox16.Text) + Val(TextBox20.Text) + Val(TextBox24.Text) + Val(TextBox28.Text) + Val(TextBox32.Text) + Val(TextBox36.Text)
    54. End Sub
    56. Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click
    57. TabPage2.Show()
    58. End Sub
    60. Private Sub BeendenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BeendenToolStripMenuItem.Click
    61. Me.Close()
    62. End Sub
    64. Private Sub DruckenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DruckenToolStripMenuItem.Click
    66. End Sub
    67. End Class



    und hier bei DruckenToolStripMenuItem_Click welchen code muss ich da jetzt rein schreiben damit er alles druckt mit inhalt der textboxen...

    danke schonmal

    Jim

Facebook
Telefonspende