Druckproblem VB

  • VB.NET

Es gibt 4 Antworten in diesem Thema. Der letzte Beitrag () ist von paulkoch95.

    Druckproblem VB

    Hiho!
    Ich hab mir ein kleines programm für die arbeit angefertigt, um besser und einfacher und vorallem schneller, angebote für unsere fenster firma zu erstellen. mein problem ist nur, ich hätte gerne 3 Positionen auf einer seite und nicht nur 2, da es komig ausschaut, da der rest der seite so leer wirkt!
    meine frage ist daher ob es irgendwie machbar ist 3 positionen auf eine seite zu drucken!
    um euch die sache etwas einfacher zu machen hab ich euch eine pdf datei angehängt, in der das jetzige druckerergebnis zu begutachten ist... desweiteren sende ich euch meinen quelltext des programmes!

    wäre sehr schön wenn ihr vllt. eine lösung für mich habt ;)
    und entschuldigt bitte die durchgehende klein schreibung und eventuelle rechtschreibfehler!

    VB.NET-Quellcode

    1. Public Class Form1
    3. Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
    5. End Sub
    7. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    10. Button1.Visible = False
    11. Button2.Visible = False
    12. Button3.Visible = False
    14. PrintForm1.Print()
    15. Button1.Visible = True
    16. Button2.Visible = True
    17. Button3.Visible = True
    20. End Sub
    23. Private Sub RichTextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
    25. End Sub
    27. Private Sub RichTextBox1_TextChanged_1(ByVal sender As System.Object, ByVal e As System.EventArgs)
    29. End Sub
    31. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
    33. End Sub
    35. Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
    36. OpenFileDialog1.ShowDialog()
    37. PictureBox1.ImageLocation = OpenFileDialog1.FileName
    38. End Sub
    40. Private Sub Label9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
    42. End Sub
    44. Private Sub Label7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label7.Click
    46. End Sub
    48. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    50. End Sub
    52. Private Sub PrintPreviewDialog1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PrintPreviewDialog1.Load
    54. End Sub
    56. Private Sub PrintDocument1_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
    58. End Sub
    60. Private Sub OpenFileDialog1_FileOk(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles OpenFileDialog1.FileOk
    62. End Sub
    64. Private Sub TextBox10_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
    66. End Sub
    68. Private Sub TextBox5_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox5.TextChanged
    70. End Sub
    72. Private Sub Label8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label8.Click
    74. End Sub
    76. Private Sub Button2_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs)
    78. End Sub
    81. Private Sub Label15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
    82. End Sub
    84. Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.TextChanged
    86. End Sub
    88. Private Sub TextBox12_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox12.TextChanged
    90. End Sub
    92. Private Sub TextBox10_TextChanged_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox10.TextChanged
    94. End Sub
    96. Private Sub TextBox14_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox14.TextChanged
    98. End Sub
    100. Private Sub Button2_Click_2(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    101. OpenFileDialog1.ShowDialog()
    102. PictureBox3.ImageLocation = OpenFileDialog1.FileName
    103. End Sub
    105. Private Sub PictureBox2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
    107. End Sub
    108. End Class
    Dateien

    • test123.pdf

      (36,6 kB, 66 mal heruntergeladen, zuletzt: )

Facebook
Telefonspende