Form2 Druck funktioniert nicht!

  • VB.NET

Es gibt 1 Antwort in diesem Thema. Der letzte Beitrag () ist von RodFromGermany.

    Form2 Druck funktioniert nicht!

    Hallo Leute!

    Bin gerade dabei, ein Programm für Hotelbuchung zu machen, komme aber mit dem Druck nicht klar der 2. Form. Kann mir jemand sagen wie das design der form2 auszusehen hat mit labels damit es vernünftig ausgedruckt wird?

    img821.imageshack.us/i/picturexa.jpg/ So sieht das 2. Formular 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
    5. Class1.Form1 = Me
    7. ComboBox1.Items.Add("Economy")
    8. ComboBox1.Items.Add("Business")
    9. ComboBox1.Items.Add("Royal")
    11. ComboBox2.Items.Add("Economy")
    12. ComboBox2.Items.Add("Business")
    13. ComboBox2.Items.Add("Royal")
    15. ComboBox3.Items.Add("Economy")
    16. ComboBox3.Items.Add("Business")
    17. ComboBox3.Items.Add("Royal")
    20. End Sub
    22. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    23. Dim Form2 As New Form2
    25. Dim SingleRoom As Double
    26. Dim TwinRoom As Double
    27. Dim TripleRoom As Double
    28. Dim Pets As Double
    30. Dim Total As Double
    32. If ComboBox1.Text = "Choose Class" Then
    33. SingleRoom = 0.0
    34. Else
    35. If ComboBox1.Text = "Economy" Then
    36. SingleRoom = SingleR + Economy
    37. End If
    38. If ComboBox1.Text = "Business" Then
    39. SingleRoom = SingleR + Business
    40. End If
    41. If ComboBox1.Text = "Royal" Then
    42. SingleRoom = SingleR + Royal
    44. End If
    45. End If
    47. If ComboBox2.Text = "Choose Class" Then
    48. TwinRoom = 0.0
    49. Else
    50. If ComboBox2.Text = "Economy" Then
    51. TwinRoom = TwinR + Economy
    52. End If
    53. If ComboBox2.Text = "Business" Then
    54. TwinRoom = TwinR + Business
    55. End If
    56. If ComboBox2.Text = "Royal" Then
    57. TwinRoom = TwinR + Royal
    58. End If
    59. End If
    61. If ComboBox3.Text = "Choose Class" Then
    62. TripleRoom = 0.0
    63. Else
    64. If ComboBox3.Text = "Economy" Then
    65. TripleRoom = TripleR + Economy
    66. End If
    67. If ComboBox3.Text = "Business" Then
    68. TripleRoom = TripleR + Business
    69. End If
    70. If ComboBox3.Text = "Royal" Then
    71. TripleRoom = TripleR + Royal
    72. End If
    73. End If
    76. If CheckBox1.Checked = "0" Then
    77. Pets = 0.0
    78. Else
    79. Pets = 30.0
    80. End If
    82. Total = SingleRoom * Val(TextBox1.Text) + TwinRoom * Val(TextBox2.Text) + TripleRoom * Val(TextBox3.Text) + Pets
    84. If ComboBox1.Text = "Choose Class" Then
    85. Form2.Label21.Text = "-------"
    86. Form2.Label5.Text = "-----"
    87. Form2.Label6.Text = "0"
    89. ElseIf TextBox1.TextLength = "0" Then
    90. Form2.Label21.Text = "-------"
    91. Form2.Label5.Text = "-----"
    92. Form2.Label6.Text = "0"
    94. Else
    95. Form2.Label21.Text = ComboBox1.Text
    96. Form2.Label5.Text = Format(SingleRoom, "Currency")
    97. Form2.Label6.Text = TextBox1.Text
    98. End If
    100. If ComboBox2.Text = "Choose Class" Then
    101. Form2.Label20.Text = "-------"
    102. Form2.Label8.Text = "-----"
    103. Form2.Label9.Text = "0"
    105. ElseIf TextBox2.TextLength = "0" Then
    106. Form2.Label20.Text = "-------"
    107. Form2.Label8.Text = "-----"
    108. Form2.Label9.Text = "0"
    110. Else
    111. Form2.Label20.Text = ComboBox2.Text
    112. Form2.Label8.Text = Format(TwinRoom, "Currency")
    113. Form2.Label9.Text = TextBox2.Text
    114. End If
    116. If ComboBox3.Text = "Choose Class" Then
    117. Form2.Label19.Text = "-------"
    118. Form2.Label11.Text = "-----"
    119. Form2.Label12.Text = "0"
    121. ElseIf TextBox3.TextLength = "0" Then
    122. Form2.Label19.Text = "-------"
    123. Form2.Label11.Text = "-----"
    124. Form2.Label12.Text = "0"
    125. Else
    126. Form2.Label19.Text = ComboBox3.Text
    127. Form2.Label11.Text = Format(TripleRoom, "Currency")
    128. Form2.Label12.Text = TextBox3.Text
    129. End If
    131. If CheckBox1.Checked = "0" Then
    132. Form2.Label14.Text = ""
    133. Else
    134. Form2.Label14.Text = Format(Pets, "Currency")
    136. End If
    139. Form2.Label17.Text = Format(Total, "Currency")
    141. If ComboBox1.Text = "Choose Class" And ComboBox2.Text = "Choose Class" And ComboBox3.Text = "Choose Class" Then
    142. MsgBox("Choose at least one room and class!", 0)
    143. End If
    145. Form2.Show()
    148. End Sub
    150. Private Sub ComboBox2_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox2.SelectedIndexChanged
    152. End Sub
    154. Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
    156. End Sub
    157. End Class
    159. 5.2 Form2.vb
    160. Imports System.Drawing.Printing
    162. Public Class Form2
    163. Inherits System.Windows.Forms.Form
    165. Dim LabelArray(5, 4) As Label
    167. Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    169. Class1.Form2 = Me
    171. End Sub
    174. Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click
    176. End Sub
    178. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    179. Class1.Form2.Hide()
    181. End Sub
    182. Private WithEvents myDocument As PrintDocument
    184. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    185. LabelArray(1, 1) = Label1
    186. LabelArray(1, 2) = Label22
    187. LabelArray(1, 3) = Label2
    188. LabelArray(1, 4) = Label3
    189. LabelArray(2, 1) = Label4
    190. LabelArray(2, 2) = Label21
    191. LabelArray(2, 3) = Label4
    192. LabelArray(2, 4) = Label6
    193. LabelArray(3, 1) = Label7
    194. LabelArray(3, 2) = Label20
    195. LabelArray(3, 3) = Label8
    196. LabelArray(3, 4) = Label9
    197. LabelArray(4, 1) = Label13
    198. LabelArray(4, 3) = Label14
    199. LabelArray(5, 3) = Label5
    200. LabelArray(5, 4) = Label17
    201. myDocument = New PrintDocument
    202. myDocument.Print()
    204. End Sub
    206. Private Sub myDocument_PrintPage(ByVal sender As Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles myDocument.PrintPage
    207. Dim myText As String
    208. Dim N As Integer = 1
    209. Dim T As New Date
    210. Dim myFont As New Font("Courier New", 12, FontStyle.Regular, GraphicsUnit.Point)
    212. e.Graphics.DrawString(Label15.Text, myFont, Brushes.Black, (50 + 50), 50)
    213. e.Graphics.DrawString(Date.Today(), myFont, Brushes.Black, (50 + 100), (50 + 24))
    214. N = N + 2
    215. myText = Label1.Text + " " + Label22.Text + " " + Label2.Text + " " + Label3.Text
    216. N = N + 2
    217. e.Graphics.DrawString(myText, myFont, Brushes.Black, 50, (50 + N * 24))
    218. myText = Label4.Text + " " + Label21.Text + " " + Label5.Text + " " + Label6.Text
    219. N = N + 1
    220. e.Graphics.DrawString(myText, myFont, Brushes.Black, 50, (50 + N * 24))
    221. myText = Label7.Text + " " + Label20.Text + " " + Label8.Text + " " + Label9.Text
    222. N = N + 1
    223. e.Graphics.DrawString(myText, myFont, Brushes.Black, 50, (50 + N * 24))
    224. myText = Label10.Text + " " + Label19.Text + " " + Label11.Text + " " + Label12.Text
    225. N = N + 1
    226. e.Graphics.DrawString(myText, myFont, Brushes.Black, 50, (50 + N * 24))
    227. myText = Label13.Text + " " + " " + Label14.Text
    228. N = N + 1
    229. e.Graphics.DrawString(myText, myFont, Brushes.Black, 50, (50 + N * 24))
    230. myText = "------------------------------------------------------------"
    231. N = N + 1
    232. e.Graphics.DrawString(myText, myFont, Brushes.Black, 50, (50 + N * 24))
    233. myText = Label16.Text + " " + " " + Label17.Text
    234. N = N + 1
    235. e.Graphics.DrawString(myText, myFont, Brushes.Black, 50, (50 + N * 24))
    238. End Sub
    240. Private Sub PrintDocument1_QueryPageSettings(ByVal sender As Object, ByVal e As System.Drawing.Printing.QueryPageSettingsEventArgs) Handles myDocument.QueryPageSettings
    241. e.PageSettings.Landscape = False
    243. End Sub
    245. End Class
    246. 5.3 Module1.vb
    247. Module Module1
    249. Public Const Economy = 60.0
    250. Public Const Business = 100.0
    251. Public Const Royal = 160.0
    253. Public Const SingleR = 30.0
    254. Public Const TwinR = 45.0
    255. Public Const TripleR = 60.0
    257. Sub main()
    258. Dim Form2 = New Form2
    259. Form2.ShowDialog()
    260. End Sub
    264. End Module
    266. 5.4 Class1.vb
    267. Public Class Class1
    268. Public Shared Form1 As Form
    269. Public Shared Form2 As Form
    270. End Class

    Option Strict On
    Da sind doch einige Fehler im Quelltext, die Du beheben solltest.
    Arbeite mit Druck-Vorschau, da kannst Du besser experimentieren, um den Ausdruck zu optimieren:

    VB.NET-Quellcode

    1. Private Sub btnPreView_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPreview.Click
    2. Using dlg As New System.Windows.Forms.PrintPreviewDialog
    3. dlg.Document = PrintDocument1
    4. dlg.WindowState = FormWindowState.Maximized
    5. dlg.ShowDialog()
    6. End Using
    7. 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!

Facebook