pdf File Writer Rahmen für bestimmte Zellen einer Tabelle

  • VB.NET
  • .NET (FX) 4.5–4.8

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

    DerSmurf schrieb:

    Wie kürze ich meinen Text also auf diese Länge?
    Gib DrawString den zur Verfügung stehenden Platz mit:
    docs.microsoft.com/de-de/dotne…?view=dotnet-plat-ext-6.0
    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!

    Oh Sorry. das habe ich übersehen.
    Aber sag mal, wäre meine Lösung unsauber?

    VB.NET-Quellcode

    1. If Colcounter = 3 Then
    2. If Text.Length > 36 Then
    3. Text = Text.Substring(0, (Text.Length - (Text.Length - 36)))
    4. End If


    Ich denke das ganze hat zwei Vorteile.
    1. Wenn ich die Zeichen begrenze, wird mein String nicht mitten in einem Buchstaben abgeschnitten
    2. Deine Version benötigt mehr Code

    Kann ich meine String schneide Methode lassen, oder ist das unsauber?

    edit:
    Die Alternative sähe wohl so aus, (auch wenn die Höhe nicht stimmt. Die Breite ist zwar OK. Aber der Text wird nicht abgeschnitten, sondern Zweizeilig dargestellt:

    VB.NET-Quellcode

    1. ​ Dim Text = cols(i)
    2. Dim cellwidth As Single
    3. Dim wrtingRect As RectangleF
    5. If Colcounter = 3 Then
    6. 'If Text.Length > 36 Then
    7. ' Text = Text.Substring(0, (Text.Length - (Text.Length - 36)))
    8. 'End If
    9. cellwidth = 270
    10. wrtingRect = New RectangleF(x, y + Row_Position, x + cellwidth, 0)
    11. e.Graphics.DrawString(Text, TableFont, System.Drawing.Brushes.Black, wrtingRect, TextFormat)
    12. Else
    13. e.Graphics.DrawString(Text, TableFont, System.Drawing.Brushes.Black, x, y + Row_Position, TextFormat)
    14. End If

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

    DerSmurf schrieb:

    wäre meine Lösung unsauber?
    Ja.
    Du hast gewiss Proportionaltext, d.h., dass ein i schmaler ist als ein m.
    Du musst also mit .MeasureString() arbeiten.
    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!

    Ist es dann nicht eine Option zu testen wie viele "m" in eine Zeile passen und sich danach zu richten?

    Edit:
    und kannst du mir sagen, warum mein Text zweilig dargestellt wird?
    Mit meinem Rechteck mit Höhe 0, hätte ich erwartet, dass der Text garnicht angezeigt wird.

    VB.NET-Quellcode

    1. [s]wrtingRect = New RectangleF(x, y + Row_Position, x + cellwidth, 0)
    2. e.Graphics.DrawString(Text, TableFont, System.Drawing.Brushes.Black, wrtingRect, TextFormat)[/s]


    habs rausgefunden, die 0 am Ende der Rechteckgröße scheint wohl nicht zu funktionieren, wie ich vermutet habe.
    So wäre mein Code dann richtig.

    VB.NET-Quellcode

    1. cellwidth = 270
    2. wrtingRect = New RectangleF(x, y + Row_Position, cellwidth, 20)
    3. e.Graphics.DrawString(Text, TableFont, System.Drawing.Brushes.Black, wrtingRect, TextFormat)

    Ich werde mal mit ein paar Artikeln testen, wie unschön das Abschneiden aussieht. Also ob es überhaupt stört.
    Denn der Vorteil ist natürlich, dass ich den wirklich zu verfügung stehenden Platz verwende und keinen Platz verschwende, weil ich ja davon ausgehe, dass ich lauter "m" im Wort habe.

    Könntest du mir dann noch bei der Mehrseitigkeit helfen?
    ch finde keine Lösung, wie ich das Beispiel in deinem Tutorial auf meine Anwendung hier passend bekomme, denn ich habe ja keinen String, wo ich nur die Zeichen zählen muss.Außerdem hätte ich gerne den Teil ab "Netto - Betrag" (unter der ersten Linie) immer zusammenhängend.Wenn also der Seitenumbruch z-B. eine Zeile unter "7" Mwst auf" entstünde, würde ich diesen gerne schon vorher durchführen, sodass die nächste Seite mit "Netto - Betrag" beginntWäre es da eine Option zu schauen, wie tief die Tabelle runter kann, bis es nicht mehr auf eine Seite passt und dann manuell einen Seitenumbruch einzufügen?

    VB.NET-Quellcode

    1. if y + Row_Position = 450 then ' wenn 450 die Grenze auf der y Achse ist
    2. '"neue Seite einfügen"
    3. End if

    Dieser Beitrag wurde bereits 4 mal editiert, zuletzt von „DerSmurf“ ()

    @DerSmurf Dies hier setzt den Druck auf einer neue Seite fort:

    VB.NET-Quellcode

    1. if y + Row_Position = 450 then ' wenn 450 die Grenze auf der y Achse ist
    2. '"neue Seite einfügen"
    3. e.HasMorePages = True
    4. Return
    5. End if
    Allerdings muss der Rest des Codes darauf abgestimmt sein, damit der Textfluss stimmt.
    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!

    Vorgweg: Ich habe mich für das Abschneiden des Textes entschieden:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. If Colcounter = 3 Then
    2. cellwidth = 270
    3. wrtingRect = New RectangleF(x, y + Row_Position, cellwidth, 20)
    4. e.Graphics.DrawString(Text, TableFont, System.Drawing.Brushes.Black, wrtingRect, TextFormat)
    5. Else
    6. e.Graphics.DrawString(Text, TableFont, System.Drawing.Brushes.Black, x, y + Row_Position, TextFormat)
    7. End If

    und werde es für die weiteren Spalten, wo ich evtl. Überlänge habe ebenso durchführen. Das abschneiden nach Zeichenlänge ist, wie du ja bereits sagtest, einfach Mist, wegen der - doch sehr - unterschiedlichen Buchstabenlänge.

    Ich habe eine kleine neue Demo gebastelt um die Seitenumbrüche zu testen.
    Dazu habe ich mir folgende Aufgabe gestellt:
    Nur auf Seite 1 soll ein Text in Schriftgröße 22 stehen, darunter die Zahlen 1 bis 400 jeweils einzeln pro Zeile.
    Dabei sollen sich die Zahlen sauber auf mehrere Blätter verteilen.
    Damit das ganze meiner Hauptanwendung näher kommt, gibt es wieder eine Sub, die eine List of Integer befüllt und dann damit die eigentliche DruckSub startet.

    @RodFromGermany Bitte beurteile meine Lösung - denn diese würde ich ziemlich genauso in meine Hauptanwendung einbauen können.
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public Class Form1
    2. [/spoiler][spoiler] Private Pagenumber As Integer = 1
    3. Private arrayCount As Integer = 0
    5. Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
    6. Pagenumber = 1
    7. Using dlg As New PrintPreviewDialog
    8. Me.PrintDocument1.DocumentName = "Test" ' Arbeitstitel
    9. dlg.Document = Me.PrintDocument2
    10. dlg.ShowDialog()
    11. End Using
    12. End Sub
    14. Private Sub PrintDocument2_BeginPrint(sender As System.Object, e As System.Drawing.Printing.PrintEventArgs) Handles PrintDocument2.BeginPrint
    15. Pagenumber = 1
    16. End Sub
    18. Private Sub PrintDocument2_PrintPage(sender As Object, e As Printing.PrintPageEventArgs) Handles PrintDocument2.PrintPage
    19. Seitenumbruchtest(sender, e)
    20. End Sub
    22. Private Sub Seitenumbruchtest(sender As Object, e As Printing.PrintPageEventArgs)
    23. Dim NumberList As New List(Of Integer)
    24. For i = 1 To 400
    25. NumberList.Add(i)
    26. Next
    27. CreatePages(sender, e, NumberList)
    28. End Sub
    30. Private Sub CreatePages(sender As Object, e As Printing.PrintPageEventArgs, Numberlist As List(Of Integer))
    32. Dim TextFont As Font = New Font("times new roman", 12)
    33. Dim HeaderFont As Font = New Font("times new roman", 22)
    34. Dim y As Integer = 20
    35. Dim yFurSeitenumbruch As Integer
    37. If Pagenumber = 1 Then
    39. e.Graphics.DrawString("Dies ist ein Überflüssiger Fülltext", HeaderFont, Brushes.Black, New Point(30, y))
    40. y += 30
    41. e.Graphics.DrawString("er soll nur auf Seite 1 erscheinen", HeaderFont, Brushes.Black, New Point(30, y))
    42. y += 30
    43. e.Graphics.DrawString("und steht als Beispiel", HeaderFont, Brushes.Black, New Point(30, y))
    44. y += 30
    45. e.Graphics.DrawString("für den Text über den Artikeln in meiner Rechnung", HeaderFont, Brushes.Black, New Point(30, y))
    46. y += 60
    48. End If
    50. For i = arrayCount To Numberlist.Count - 1
    51. e.Graphics.DrawString(Numberlist(i).ToString, TextFont, Brushes.Black, New Point(30, y))
    52. y += 20
    54. If Pagenumber = 1 Then
    55. yFurSeitenumbruch = 1150
    56. Else
    57. yFurSeitenumbruch = 1160
    58. End If
    60. If y >= yFurSeitenumbruch Then
    61. e.HasMorePages = True
    62. Pagenumber += 1
    63. arrayCount = i + 1
    64. Return
    65. End If
    67. Next
    69. End Sub[/spoiler][spoiler]
    70. End Class


    Da ich nicht weiß, ob du sowas lieber im Forum, oder in der Solution machst, habe ich die Solution mal angehängt.
    Dateien

    • PPDTedt.zip

      (14,41 kB, 24 mal heruntergeladen, zuletzt: )

    @DerSmurf Wenn Du mehrere Seiten druckst, pack die Fonts aus der Prozedur in die Klasse, ebenso alle IDisposables,
    die kannst Du dann bei Programmbeendigung aufräumen.
    Ich hab mal ein paar Prozeduen zusammengefasst und das BeginPrint getunt.
    Der Code von PrintDocument1_PrintPage() hehört eigentlich nach PrintDocument1_BeginPrint, wo Du Deine Datenklasse befüllst und für den Druck vorbereitest.
    Trenne die Ausgabe von Headern, Zwischenüberschriften und Daten, das alles passiert in separaten Prozeduren dieser Datenklasse.
    Wenn jede dieser Prozeduren weiß, wie hoch ihr eigener Ausdruck wird, kannst Du prüfen, ob der Inhalt noch auf die aktuelle Seite passt.
    Wenn nicht, fügst Du einen Seitenumbruch ein.
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public Class Form1
    2. Dim TextFont1 As Font = New Font("times new roman", 12)
    3. Dim HeaderFont1 As Font = New Font("times new roman", 18)
    4. Dim TableFont1 As Font = New Font("times new roman", 12)
    6. Private TextFont2 As Font = New Font("times new roman", 12)
    7. Private HeaderFont2 As Font = New Font("times new roman", 22)
    9. Private _InvoiceType As String = "Warenausgang"
    10. Private PageNumber As Integer = 1 ' Doc 1 und 2, Startindex im Array
    11. Private ArrayCount As Integer = 0 ' Doc 2
    13. Private NumberList As List(Of Integer)
    15. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    16. Using dlg As New PrintPreviewDialog
    17. Me.PrintDocument1.DocumentName = "Test" ' Arbeitstitel
    18. dlg.WindowState = FormWindowState.Maximized
    19. dlg.Document = Me.PrintDocument1
    20. dlg.ShowDialog()
    21. End Using
    22. End Sub
    24. Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
    25. Using dlg As New PrintPreviewDialog
    26. Me.PrintDocument1.DocumentName = "Test" ' Arbeitstitel
    27. dlg.Document = Me.PrintDocument2
    28. dlg.ShowDialog()
    29. End Using
    30. End Sub
    32. ''' <summary>
    33. ''' CreateInvoice
    34. ''' </summary>
    35. Private Sub PrintDocument1_PrintPage(sender As Object, e As Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
    36. Dim CompanyFirstInfo As New List(Of String)
    37. Dim CompanySecondInfo As New List(Of String)
    38. Dim CustomerFirstInfo As New List(Of String)
    39. Dim CustomerSecondInfo As New List(Of String)
    40. Dim Invoicetype As String = ""
    41. Dim Invoicetext As String = ""
    42. Dim Invoicedate As New List(Of String)
    43. Dim ArticleList As New List(Of String)
    44. Dim Net7 As Double
    45. Dim Net19 As Double
    46. Dim NetTotal As Double
    47. Dim Tax7 As Double
    48. Dim Tax19 As Double
    49. Dim BrutTotal As Double
    51. Invoicedate.Add("Datum: " & System.DateTime.Now.ToString("dd.MM.yyyy"))
    52. Net7 = 7.0
    53. Net19 = 19
    54. NetTotal = Net7 + Net19
    55. Tax7 = 0.07
    56. Tax19 = 0.19
    57. BrutTotal = Net7 + Net19 + Tax7 + Tax19
    59. Select Case _InvoiceType
    60. Case = "Warenausgang"
    61. CompanyFirstInfo.Add("Firmenname1")
    62. CompanyFirstInfo.Add("Firmenname2")
    63. CompanyFirstInfo.Add("Firmenstraße")
    64. CompanyFirstInfo.Add("Firmenort")
    65. CompanySecondInfo.Add("Firmentelefon")
    66. CompanySecondInfo.Add("Firmenmail")
    67. CompanySecondInfo.Add("Firmensteuernr")
    68. CustomerFirstInfo.Add("KundenFirma")
    69. CustomerFirstInfo.Add("Kundenname")
    70. CustomerFirstInfo.Add("Kundenstr.")
    71. CustomerFirstInfo.Add("Kundenort")
    72. CustomerSecondInfo.Add("KundenTelefon")
    73. Invoicedate.Add("Rechnungdatum entspricht Leistungsdatum")
    74. Invoicetype = "Rechnung"
    75. Invoicetext = "Wir danken für Ihren Einkauf und berechnen wie folgt:"
    76. ArticleList = GetArticle()
    77. 'Case = "Wareneingang"
    78. ' If Not CheckCustomerData() Then Return
    79. ' CompanyFirstInfo = GetCustomerFirstData()
    80. ' CompanySecondInfo = GetCustomerSecondData()
    81. ' CustomerFirstInfo = GetCompanyFirstData()
    82. ' CustomerSecondInfo = GetCompanySecondData()
    83. ' Invoicedate.Add("Rechnungdatum entspricht Leistungsdatum")
    84. ' Invoicetype = "Rechnung"
    85. ' Invoicetext = ""
    86. ' ArticleList = GetArticle(False)
    87. 'Case = "Artikelrückgabe"
    88. ' If Not CheckCustomerData() Then Return
    89. ' CompanyFirstInfo = GetCompanyFirstData()
    90. ' CompanySecondInfo = GetCompanySecondData()
    91. ' CustomerFirstInfo = GetCustomerFirstData()
    92. ' CustomerSecondInfo = GetCustomerSecondData()
    93. ' Invoicedate.Add("Rechnungdatum entspricht Leistungsdatum")
    94. ' Invoicetype = "Artikelrückgabe"
    95. ' Invoicetext = ""
    96. ' ArticleList = GetArticle(False)
    97. 'Case = "Angebot"
    98. ' CompanyFirstInfo = GetCompanyFirstData()
    99. ' CompanySecondInfo = GetCompanySecondData()
    100. ' CustomerFirstInfo = GetCustomerFirstData()
    101. ' CustomerSecondInfo = GetCustomerSecondData()
    102. ' Invoicedate.Add("")
    103. ' Invoicetype = "Angebot"
    104. ' Invoicetext = "Gerne unterbreiten wir Ihnen hiermit folgendes Angebot." &
    105. ' Environment.NewLine & "Die angebotenen Preise sind freibleibend."
    106. ' ArticleList = GetArticle(_NetInvoicing)
    107. End Select
    109. DrawPdf(e, CompanyFirstInfo, CompanySecondInfo, CustomerFirstInfo, CustomerSecondInfo, Invoicedate, Invoicetype, Invoicetext, ArticleList,
    110. Net7, Net19, NetTotal, Tax7, Tax19, BrutTotal)
    112. End Sub
    113. Private Sub DrawPdf(e As Printing.PrintPageEventArgs, Biller1 As List(Of String), Biller2 As List(Of String), Recipient1 As List(Of String),
    114. recipient2 As List(Of String), Invoicedate As List(Of String), Invoicetype As String, Invoicetext As String, ArticleList As List(Of String),
    115. Net7 As Double, Net19 As Double, NetTotal As Double, Tax7 As Double, tax19 As Double, Bruttotal As Double)
    117. Dim xlinks As Integer = 70
    118. Dim xrechts As Integer = 480
    119. Dim y As Integer = 30
    120. Dim yStart As Integer = y
    122. Dim textrechts As New StringFormat
    123. textrechts.Alignment = StringAlignment.Far
    124. Dim TextLinks As New StringFormat
    125. TextLinks.Alignment = StringAlignment.Near
    126. Dim TextMitte As New StringFormat
    127. TextMitte.Alignment = StringAlignment.Center
    128. Dim TextFormat As New StringFormat
    130. 'Ausstelleradresse der Rechnung - linke Seite
    131. For Each item In Biller1
    132. e.Graphics.DrawString(item, TextFont1, Brushes.Black, New Point(xlinks, y))
    133. y += 20
    134. Next
    136. y = yStart
    138. 'Ausstelleradresse der Rechnung - rechte Seite
    139. For Each item In Biller2
    140. e.Graphics.DrawString(item, TextFont1, Brushes.Black, New Point(xrechts, y))
    141. y += 20
    142. Next
    144. y += 70
    145. yStart = y
    147. 'Empfänger der Rechnung - linke Seite
    148. For Each item In Recipient1
    149. e.Graphics.DrawString(item, TextFont1, Brushes.Black, New Point(xlinks, y))
    150. y += 20
    151. Next
    153. Dim yTemp = y + 50
    154. y = yStart
    156. 'Empfänger der Rechnung - rechte Seite
    157. For Each item In recipient2
    158. e.Graphics.DrawString(item, TextFont1, Brushes.Black, New Point(xrechts, y))
    159. y += 20
    160. Next
    162. y = yTemp
    164. 'Rechnungsart
    165. e.Graphics.DrawString(Invoicetype, HeaderFont1, Brushes.Black, New Point(xlinks, y))
    167. 'Rechnungsdatum
    168. For Each item In Invoicedate
    169. e.Graphics.DrawString(item, TextFont1, Brushes.Black, New Point(xrechts, y))
    170. y += 20
    171. Next
    173. y += 30
    175. 'Rechnungstext
    176. e.Graphics.DrawString(Invoicetext, TextFont1, Brushes.Black, New Point(xlinks, y))
    178. y += 50
    180. 'Artikeltabelle
    181. Dim Row_Position As Single = 0
    182. Dim RowHeight As Single = CType(e.Graphics.MeasureString("W", TableFont1).Height * 1.25, Single)
    184. Dim Colcounter As Integer = 1
    185. Dim RowCounter As Integer = 1
    187. Dim x As Integer
    189. For Each article In ArticleList
    190. Dim cols() As String = Split(article, "~"c)
    192. For i = 0 To cols.Length - 1
    193. If RowCounter = 1 Then
    194. Select Case Colcounter
    195. Case = 1 : x = xlinks
    196. Case = 2 : x = xlinks + 80
    197. Case = 3 : x = xlinks + 150
    198. Case = 4 : x = xlinks + 410
    199. Case = 5 : x = xlinks + 480
    200. Case = 6 : x = xlinks + 580
    201. Case Else : x = xlinks + 100
    202. End Select
    203. TextFormat = TextLinks
    204. Else
    205. Select Case Colcounter
    206. Case = 1
    207. TextFormat = textrechts
    208. x = xlinks + 40
    209. Case = 2
    210. TextFormat = textrechts
    211. x = xlinks + 129
    212. Case = 3
    213. TextFormat = TextLinks
    214. x = xlinks + 150
    215. Case = 4
    216. TextFormat = TextLinks
    217. x = xlinks + 432
    218. Case = 5
    219. TextFormat = textrechts
    220. x = xlinks + 559
    221. Case = 6
    222. TextFormat = textrechts
    223. x = xlinks + 668
    224. Case Else
    225. TextFormat = TextLinks
    226. x = xlinks + 100
    227. End Select
    228. End If
    230. Dim Text = cols(i)
    231. Dim cellwidth As Single
    232. Dim wrtingRect As RectangleF
    234. If Colcounter = 3 Then
    235. cellwidth = 270
    236. wrtingRect = New RectangleF(x, y + Row_Position, cellwidth, 20)
    237. e.Graphics.DrawString(Text, TableFont1, System.Drawing.Brushes.Black, wrtingRect, TextFormat)
    238. Else
    239. e.Graphics.DrawString(Text, TableFont1, System.Drawing.Brushes.Black, x, y + Row_Position, TextFormat)
    240. End If
    241. Colcounter += 1
    242. Next
    243. Row_Position += RowHeight
    244. Colcounter = 1
    245. RowCounter += 1
    246. Next
    248. y += CInt(Row_Position)
    250. e.Graphics.DrawRectangle(Pens.Black, xlinks, y, 670, 1)
    252. y += 10
    253. Dim x1 = xlinks + 150
    254. Dim x2 = xlinks + 310
    256. 'Netto Text
    257. e.Graphics.DrawString("Netto - Betrag", TextFont1, Brushes.Black, New Point(x1, y))
    258. e.Graphics.DrawString(NetTotal.ToString("#,##0.00 €"), TextFont1, Brushes.Black, New Point(xlinks + 670, y), textrechts)
    260. y += 20
    262. e.Graphics.DrawString("7% Mwst auf", TextFont1, Brushes.Black, New Point(x2, y))
    263. e.Graphics.DrawString(Net7.ToString("#,##0.00 €"), TextFont1, Brushes.Black, New Point(xlinks + 560, y), textrechts)
    264. e.Graphics.DrawString(Tax7.ToString("#,##0.00 €"), TextFont1, Brushes.Black, New Point(xlinks + 670, y), textrechts)
    266. y += 20
    268. e.Graphics.DrawString("19% Mwst auf", TextFont1, Brushes.Black, New Point(x2, y))
    269. e.Graphics.DrawString(Net19.ToString("#,##0.00 €"), TextFont1, Brushes.Black, New Point(xlinks + 560, y), textrechts)
    270. e.Graphics.DrawString(tax19.ToString("#,##0.00 €"), TextFont1, Brushes.Black, New Point(xlinks + 670, y), textrechts)
    272. y += 25
    274. e.Graphics.DrawRectangle(Pens.Black, xlinks, y, 670, 1)
    276. y += 10
    278. e.Graphics.DrawString("Endsumme", TextFont1, Brushes.Black, New Point(x1, y))
    279. e.Graphics.DrawString(Bruttotal.ToString("#,##0.00 €"), TextFont1, Brushes.Black, New Point(xlinks + 670, y), textrechts)
    280. End Sub
    282. Private Function GetArticle() As List(Of String)
    283. Dim ArticleList As New List(Of String)
    284. Dim Article As String
    285. ArticleList.Add("Menge~Art.Nr.~Bezeichnung~Mwst.~Einzelpreis~Gesamtpreis")
    286. For i = 1 To 5
    287. Dim amount = i * 4 * 100
    288. Dim Einzelpreis As Double = i * 2.5
    289. Dim Gesamtpreis = amount * Einzelpreis
    290. Dim ArtNr As Integer = CInt(i * 1111.458) * i * 100
    291. If i = 3 Then Einzelpreis = 1528.0
    292. If i = 1 Then
    293. Article = "1~Art.Nr.~" & "Rinti Kennerfleisch 800g Wildschwein mmmmmmmmmmmmmmmm~" & "19" & "~" & "Einzelpreis~" & "Gesamtpreis"
    295. Else
    296. Article = amount & "~" & ArtNr.ToString & "~" & "Artikelname " & i & "~" & "19" & "~" & Einzelpreis.ToString("#,##0.00 €") & "~" & Gesamtpreis.ToString("#,##0.00 €")
    297. End If
    298. ArticleList.Add(Article)
    299. Next
    300. Return ArticleList
    301. End Function
    303. Private Sub PrintDocument2_BeginPrint(sender As System.Object, e As System.Drawing.Printing.PrintEventArgs) Handles PrintDocument2.BeginPrint
    304. PageNumber = 1 ' Startindex initialisieren
    305. ArrayCount = 0
    306. NumberList = New List(Of Integer)
    307. For i = 1 To 400
    308. NumberList.Add(i)
    309. Next
    310. End Sub
    312. ''' <summary>
    313. ''' Seitenumbruchtest, CreatePages
    314. ''' </summary>
    315. Private Sub PrintDocument2_PrintPage(sender As Object, e As Printing.PrintPageEventArgs) Handles PrintDocument2.PrintPage
    316. Dim y As Integer = 20
    317. Dim yFurSeitenumbruch As Integer = 1150
    319. If PageNumber = 1 Then
    320. e.Graphics.DrawString("Dies ist ein Überflüssiger Fülltext", HeaderFont2, Brushes.Black, New Point(30, y))
    321. y += 30
    322. e.Graphics.DrawString("er soll nur auf Seite 1 erscheinen", HeaderFont2, Brushes.Black, New Point(30, y))
    323. y += 30
    324. e.Graphics.DrawString("und steht als Beispiel", HeaderFont2, Brushes.Black, New Point(30, y))
    325. y += 30
    326. e.Graphics.DrawString("für den Text über den Artikeln in meiner Rechnung", HeaderFont2, Brushes.Black, New Point(30, y))
    327. y += 60
    328. Else
    329. e.Graphics.DrawString($"Seite {PageNumber}", HeaderFont2, Brushes.Black, New Point(30, y))
    330. y += 60
    331. End If
    333. For i = ArrayCount To NumberList.Count - 1
    334. e.Graphics.DrawString(NumberList(i).ToString, TextFont2, Brushes.Black, New Point(30, y))
    335. y += 20
    337. If y >= yFurSeitenumbruch Then
    338. e.HasMorePages = True
    339. PageNumber += 1
    340. ArrayCount = i + 1
    341. Return
    342. End If
    343. Next
    344. End Sub
    345. 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!

    Ich danke dir! Deine Änderungen - bzw. deren Zweck - habe ich soweit verstanden.
    Das ganze bastel ich nun in meine Hauptanwendung um.

    Ich bin mir aber noch nicht 100%ig sicher, wie ich das ganze dann final umsetze.
    Entweder mit zwei Buttons - einmal Druckvorschau anzeigen und einmal direkt drucken,
    oder ein Panel was sich rausschiebt, auf dem dann die Druckdatei angezeigt wird (PrintpreviewControl, sowie alle Settings hierzu. Also welcher Drucker, Anzahl der Drucks, usw.

    Ich denke die zweite Variante ist optisch am schönsten, aber da kann ich ja rumprobieren.

    Edit:
    Du schmeißt alle PrintFonts und die IDispoables in die Klasse, damit ich hinterher aufräumen kann. Tust es aber nicht? (oder hab ich was übersehen)
    Dafür würde ich noch den EndPrint Handler abonnieren. Oder gehört das woanders rein?

    Edit2: Ich habe den Code nun funktionierend in meinem Hauptprogramm. Aber das hier:

    RodFromGermany schrieb:

    Der Code von PrintDocument1_PrintPage() hehört eigentlich nach PrintDocument1_BeginPrint, wo Du Deine Datenklasse befüllst und für den Druck vorbereitest.

    stellt mich vor eine Herausforderung. Denn ich übergebe das e As Printing.PrintPageEventArgs ja an meine Sub Createinvoice und von da weiter an DrawPdf.
    Im BeginPrintEvent habe ich ja e As PrintEventArgs - kann es also nicht übergeben und damit in Drawpdf nicht e.hasmorepages auf True setzen.
    Außerdem habe ich festgestellt, dass das PrintPage Event beim Drucken jeder Seite feuert.
    Also für jede neue Seite in meinem Ausdruck läuft die Sub CreateInvoice, welche ja alle Daten holt, immer wieder.
    Ich vermute also, dass mein gesamtes Konstrukt aus Subs murks ist. (auch wenn das Ergebnis anstandslos ist).
    Könntest du mir einmal aufschreiben, wie ich es richtig mache?
    Also in welcher Reihenfolge ich was mache, bzw. welche Subs ablaufen lasse? Und sollte ich alle Daten die CreateInvoice sammelt in die Klasse schreiben - damit ich sie nicht an die DruckSub übergeben muss?

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

    DerSmurf schrieb:

    (oder hab ich was übersehen)
    Hier ist von 2 (zwei) Klassen die Rede:
    Fonts und IDisposable aus der Prozedur in die bereits vorhandene Klasse, hier Form1.
    Daten in eine separate neu zu erstellende Klasse, die es noch nicht gibt.
    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!

    Ah, ok.
    Und in meine zweite Klasse kommen dann auch die Subs zum sammeln von Daten, das Erstellen des Headers meiner Druckseite (also Firmennamen, usw.) und das Erstellen meiner Tabelle.
    Dazu rufe ich dann im BeginPrint Event die Datensammelsub auf.
    Im Page Print Event, kommt dann die eigentliche Druck Sub, - aufgeteilt in eine Sub für Header und eine Sub für die Artikeltabelle.
    So?

    DerSmurf schrieb:

    So?
    Ja, sollte funktionieren.
    Mach Dir zuerst ein kleines Test-Programm, um das Datenhandling zu verstehen.
    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!

    OK. Das habe ich dann soweit umgesetzt (außer meine Druckensub ist immernoch eine einzige Sub).
    Schrittweise sieht das soweit auch gut aus, es werden nicht bei jeder Seite die Daten neu geladen.

    VB.NET-Quellcode

    1. Private Sub PrintDocument1_BeginPrint(sender As Object, e As PrintEventArgs) Handles PrintDocument1.BeginPrint
    2. Pagenumber = 1
    3. arraycount = 0
    4. CreateInvoice()
    5. End Sub
    7. Private Sub PrintDocument1_PrintPage(sender As Object, e As Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
    8. 'hier kommt nun der Text auf die Seite
    9. End Sub
    11. Private Sub PrintDocument1_EndPrint(sender As Object, e As PrintEventArgs) Handles PrintDocument1.EndPrint
    12. 'hier wird bereinigt
    13. End Sub


    Nun möchte ich noch den PrintPreviewDialog durch ein PrintPreviewControl erstetzen. Da ich das PrintPreviewDialog optisch grauenvoll finde.
    Das funktioniert auch alles. Ich habe einen PrintPreviewDialog auf die Form gezogen und verwende folgenen Code:

    VB.NET-Quellcode

    1. Private Sub PrintPreview()
    3. 'PrintDocument1.PrinterSettings.PrinterName = "Microsoft Print to PDF"
    4. Dim DefaultPrinter As New PrintDocument
    5. PrintDocument1.PrinterSettings.PrinterName = DefaultPrinter.PrinterSettings.PrinterName
    7. PrintPreviewDialog1.Document = PrintDocument1
    8. PrintPreviewControl1.Document = PrintPreviewDialog1.Document
    9. PrintPreviewControl1.AutoZoom = True
    11. End Sub
    13. Private Sub BTNPrintPreview_Click(sender As Object, e As EventArgs) Handles BTNPrintPreview.Click
    14. PrintPreview()
    15. End Sub
    17. Private Sub BTNPrint_Click(sender As Object, e As EventArgs) Handles BTNPrint.Click
    19. PrintPreview()
    21. 'Dim DefaultPrinter As New PrintDocument
    22. 'PrintDocument1.PrinterSettings.PrinterName = DefaultPrinter.PrinterSettings.PrinterName
    24. PrintDocument1.Print()
    26. End Sub


    In der Vorschau sehe ich problemlos zwei Seiten im PrintpreviewControl. Wenn ich das ganze aber drucke mit der BTNPrint_Click Sub, landet nur die letzte Seite auf Papier, bzw. in der pdf.
    Leider kann ich das ganze nicht schrittweise durchlaufen lassen, dann streikt mein VS an der Stelle an der ich den pdf Namen eingeben muss, und hängt sich auf.

    Hast du eine Idee, was ich hier falsche mache, oder soll ich dir das nochmal in die Demo Anwendung einbauen?

    Edit: Ich habe dafür meine Demo Solution nochmal umgebaut.
    Hier sieht man jetzt schön, dass bei einem Klick auf "drucken" der Drucker gestartet wird (bzw. das Eingabefenster für Dateiname bei pdf Drucker) erscheint und dann erst die Seiten hochgezählt werden.
    Dateien

    • PPDTedt.zip

      (24,28 kB, 26 mal heruntergeladen, zuletzt: )

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

    DerSmurf schrieb:

    es werden nicht bei jeder Seite die Daten neu geladen.
    Die Daten müssen bei BeginPrint vollständig vorliegen.
    ====

    VB.NET-Quellcode

    1. Private Sub PrintPreview()
    2. PrintPreviewDialog1.Document = PrintDocument1
    3. PrintPreviewControl1.Document = PrintPreviewDialog1.Document
    4. PrintPreviewControl1.Rows = 2
    5. PrintPreviewControl1.Columns = 4
    6. End Sub
    Die Verwendung des PrintPreviewControls ist suboptimal, da Dir die Button-Leiste fehlt.
    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!

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

    RodFromGermany schrieb:

    Die Daten müssen bei BeginPrint vollständig vorliegen.

    bedeutet das, dass ich meine Sub aus dem PrintPage Handler in BeginPrint verschieben muss?
    Kann ja nicht sein. Ich verstehe gerade nicht ,wie ich am Ende der BeginPrint Sub vollständige Daten haben soll.
    Immerhin wird doch danach erst die eigentliche Druck Sub (PrintPage) aufgerufen? Oo

    RodFromGermany schrieb:

    Die Verwendung des PrintPreviewControls ist suboptimal, da Dir die Button-Leiste fehlt.

    Da hast du recht. Aber der PrintPreviewDialog bringt mir ja keinen wirklichen Vorteil.
    Es wird ein Druck erstellt (den ich mir in den seltensten Fällen überhaupt angucken möchte), und nach Klick auf drucken kommts auf Papier.
    So war es ja vorher auch mit meiner pdf.

    DerSmurf schrieb:

    verschieben muss?
    Nicht müsen, aber der Print-Handler wird für jede Seite einzeln aufgerufen, also bei Deinem Beispiel 8 Mal.
    Da wäre es suboptimal, wenn Du die Daten 8 Mal berechnest.
    Wenn Du weißt, dass nur eine Seitze gedruckt wird, könnte es im Print-Event bleiben.
    Allerdings weiß ich, dass es selten bei dieser einen Seite bleibt.
    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!

    IDa wir uns hier ja nur im Kreis drehen, habe ich nun etwas im Netz gefunden und für mich abgewandelt: Link

    VB.NET-Quellcode

    1. Private Sub BTNPrint_Click(sender As Object, e As EventArgs) Handles BTNPrint.Click
    2. ' Zuerst die Definition des Dokuments
    3. Dim lPD As New System.Drawing.Printing.PrintDocument()
    4. lPD.DocumentName = "Name des Dokuments"
    6. GetInvoiceData() 'Läd alle Daten
    8. ' Die Funktion PDPrintPage wird jedesmal aufgerufen, bevor das
    9. ' Dokument eine neue Seite drucken will.
    10. AddHandler lPD.PrintPage, AddressOf PDPrintPage
    11. AddHandler lPD.EndPrint, AddressOf PDDEndPrint
    13. ' Seitenzahl in eigener Variable initialisieren
    14. Pagenumber = 1
    15. arraycount = 0
    17. lPD.Print()
    19. End Sub
    21. Private Sub PDPrintPage(ByVal sender As System.Object,
    22. ByVal e As System.Drawing.Printing.PrintPageEventArgs)
    23. 'Hier werden die Seiten erstellt
    24. End Sub
    27. GetInvoiceData()
    29. PrintPreviewDialog1.Document = lPD
    30. PrintPreviewControl1.Document = lPD
    32. ' Seitenzähler auf Anfangswert!
    33. Pagenumber = 1
    34. arraycount = 0
    36. ' Das Dokument mit seinem Handler verbinden
    37. AddHandler lPD.PrintPage, AddressOf PDPrintPage
    38. AddHandler lPD.EndPrint, AddressOf PDDENdPrint
    40. lPD = Nothing
    42. End Sub
    44. Private Sub PDDENdPrint(sender As Object, e As PrintEventArgs) Handles PrintDocument1.EndPrint
    45. 'hier wird aufgeräumt
    46. End Sub


    Nun ist zwar mein begin Print Handler verschwunden, aber das ganze funktioniert.
    Und wenn ich dich jetzt richtig verstanden habe, müsste der ja eh weg.
    Nun weiß ich nicht, ob ich meine erstellten Handler im Code lassen soll, oder sie wieder per Designer erzeuge, aber das ist ja wahrscheinlich egal.

    RodFromGermany schrieb:

    Allerdings weiß ich, dass es selten bei dieser einen Seite bleibt.

    Dai ich weiß wie viele Artikel ich gewöhnlicherweise per Hand auf einen Rechnungsblock schreibe, darf ich behaupten, dass ich das an dieser Stelle besser weiß als du.
    Es wird zu 95% immer eine Seite sein. Aber trotzdem soll ja auch mehrseitigkeit funktionieren.

    @DerSmurf Was soll der Tinnef mit AddHandler? Sollte da nicht wenigstens bei PDPrintPage ein RemoveHandler stehen?
    Ansonsten ist dieser Code für die Tonne. Sorry.
    Und:
    Schön, dass 95% Deiner Ausdrucke auf eine Seite passen, bei mir kein einziger. ;)
    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!

    Ich habe die Handler, sowie die Deklaration des PrintDocuments innerhalb der Subs entfernt, und nutze das PrintDocument1, welches ich auf die Form gezogen habe.
    Also ist es jetzt letztlich der gleiche Code wie vorher, nur dass es kein BeginPrint mehr gibt (und das ich mehrere Seiten drucken kann)

    RodFromGermany schrieb:

    Schön, dass 95% Deiner Ausdrucke auf eine Seite passen, bei mir kein einziger.

    Bei mir ist es nur eine Ergänzung zum Kassenbon.
    Quasi damit ich keine Rechnungen mehr von Hand schreiben muss - daher nur als Ergänzung und nicht Buchführungsrelevant.
    Es passen in ca. 15 Artikel auf eine Seite - mehr habe ich erst einmal von Hand geschrieben.

    DerSmurf schrieb:

    Es passen in ca. 15 Artikel auf eine Seite
    OK.
    Wo liegt 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!

    Das Problem ist hier:

    RodFromGermany schrieb:

    Ansonsten ist dieser Code für die Tonne. Sorry.


    Ist er immernoch für die Tonne, wenn die Handlererstellung, und die PrintDocument Erstellungen aus dem Code verschwinden, und ich stattdessen das PrintDocument1 aus dem Designer verwende?
    Code kommt heute Abend, mein Laptop Akku ist alle.

Facebook
Telefonspende