Listview print

  • VB.NET

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

    Listview print

    Hallo hoffe das ich hier einen Lösungsansatz finde!

    mit dem angehängten Code versuche ich eine ListView zu drucken.
    OK, im Anhang das Preview wie es derzeit aussieht, auch werden im Preview mehrere Seiten gezeigt

    Problem: es wird leider nur eine Seite gedruckt wenn ich den Druck anstoße

    Lösungssuche: wie kann ich da vorgehen? wie bekomme ich da eine Überschrift und unten Seite x von xx rein und wie kann man das schön Zentriert aufs Papier bringen?

    Bitte nicht jetzt vorschlagen auf DGV zu gehen..
    es ist ja fast so wie ich möchte

    Spoiler anzeigen

    Quellcode

    1. #Region "Print related declarations"
    2. Protected WithEvents pd As Printing.PrintDocument 'used by Print sub
    3. Protected Ratio As Single = 0, CurrRow As Integer = 0
    4. #End Region
    6. #Region "Simple Printing of ListView"
    7. ''' <summary>
    8. ''' Print the List view as a simple report
    9. ''' </summary>
    10. '''
    11. Public Sub Print()
    12. pd = New Printing.PrintDocument
    13. pd.DocumentName = "Print of " & ListView1.Name
    14. Ratio = 1
    15. CurrRow = 0
    16. pd.Print()
    17. End Sub
    19. ''' <summary>
    20. ''' Print Preview the List view as a simple report
    21. ''' </summary>
    22. '''
    23. Public Sub PrintPreview()
    24. pd = New Printing.PrintDocument
    25. pd.DocumentName = "Print of " & ListView1.Name
    26. pd.DefaultPageSettings.Landscape = True
    27. Ratio = 1
    28. CurrRow = 0
    29. Dim ppv As New PrintPreviewDialog
    30. ppv.Document = pd
    31. ppv.ShowDialog()
    32. End Sub
    34. Private Sub pd_PrintPage(ByVal sender As Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles pd.PrintPage
    35. Dim c As ColumnHeader
    36. Dim g As Graphics = e.Graphics
    37. Dim l As Integer = 0 'stores current left
    38. Dim iCount As Integer
    39. Dim f As Font = ListView1.Font
    40. Dim b As Brush = Brushes.Black
    41. Dim currentY As Integer = 0, maxY As Integer = 0
    42. Dim gap As Integer = 1
    43. Dim lvsi As ListViewItem.ListViewSubItem
    44. Dim colLefts(ListView1.Columns.Count) As Integer, colWidths(ListView1.Columns.Count) As Integer, idx As Integer = 0, ii As Integer
    45. Dim lr As RectangleF
    46. e.HasMorePages = False
    47. 'Headings
    48. currentY = 10
    49. For Each c In ListView1.Columns
    50. maxY = Math.Max(maxY, g.MeasureString(c.Text, f, c.Width).Height)
    51. colLefts(idx) = l
    52. colWidths(idx) = c.Width
    53. lr = New RectangleF(colLefts(idx), currentY, colWidths(idx), maxY)
    54. g.DrawString(c.Text, f, b, lr)
    55. l += c.Width
    56. idx += 1
    57. Next
    58. currentY += maxY + gap
    59. g.DrawLine(Pens.Black, 0, currentY, e.PageBounds.Width, currentY)
    60. currentY += gap
    61. 'Rows
    62. iCount = ListView1.Items.Count - 1
    63. For ii = CurrRow To iCount
    64. If (currentY + maxY + maxY) > e.PageBounds.Height Then 'jump down another line to see if this line will fit
    65. CurrRow = ii - 1
    66. e.HasMorePages = True
    67. Exit For 'does next page
    68. End If
    69. l = 0
    70. maxY = 0
    71. idx = 0
    72. For Each lvsi In ListView1.Items(ii).SubItems
    73. maxY = Math.Max(maxY, g.MeasureString(lvsi.Text, f, colWidths(idx)).Height)
    74. lr = New RectangleF(colLefts(idx), currentY, colWidths(idx), maxY)
    75. g.DrawString(lvsi.Text, f, b, lr)
    76. idx += 1
    77. Next
    78. currentY += maxY + gap
    79. Next
    80. End Sub
    82. #End Region
    Bilder

    • LV_Print.JPG

      81,07 kB, 665×546, 327 mal angesehen

    Schau mal was in deinem PrintPage-Eventhandler drinsteht:

    menorca schrieb:

    e.HasMorePages = False

    Das dürfte erklären, warum du - egal was du machst - immer nur eine Seite bekommst.

    Ein bisschen Hintergrund:
    Das PrintPage-Event wird für dein PrintDocument exakt ein Mal aufgerufen und übergibt dir den Graphics-Kontext für exakt eine Seite.
    Egal wie weiter du über den druckbaren Bereich des Graphics-Kontext hinaus Ausgaben tätigst, sie werden beim Ausdruck entsprechend geclippt (verschwinden also im Nirvana) und es bleibt bei einer Seite.
    Wenn du in e.HasMorePages aber den Wert True einträgst bevor der Handler beendet wird, weiß das Druck-Subsystem: Aha, das Programm hat doch mehr als eine Seite zu drucken. Also wird dann der Druck für die nächste Seite angestoßen, was wiederum das PrintPage-Event auslöst.
    Deine Aufgabe ist es nun, nachzuhalten, was du bereits auf der ersten Seite unterbringen konntest und was demnach für die zweite Seite (oder weitere) übriggeblieben ist, und dann zu entscheiden ob du jeweils noch eine zusätzliche Seite brauchst. Sobald in e.HasMorePages False drin steht (stehen bleibt), wird für PrintDocument keine weitere Seite mehr angestoßen und der Druckauftrag abschließend verarbeitet.

    Ich hoffe, das hilft dir etwas weiter, dich im PrintDocument-Gewusel zurecht zu finden.

    Hier übrigens mal ein Beispiel aus einem meiner Programme, etwas "vereinfacht":
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Private Sub OnBeginPrint(ByVal sender As Object, ByVal e As System.Drawing.Printing.PrintEventArgs) Handles m_PrintDocument.BeginPrint
    2. m_MaxPageY = 0
    3. m_MaxPageX = 0
    4. m_CurrentPageX = 0
    5. m_CurrentPageY = 0
    6. End Sub
    8. Private Sub OnQueryPageSettings(ByVal sender As Object, ByVal e As System.Drawing.Printing.QueryPageSettingsEventArgs) Handles m_PrintDocument.QueryPageSettings
    10. If m_MaxPageY = 0 Then
    11. Dim Pages = GetPageCount(m_PrintScale) '<-- eigene Funktion die die Anzahl Seiten auf Basis eines Zoomfaktors bestimmt
    12. m_MaxPageX = Pages.HorizontalPages
    13. m_MaxPageY = Pages.VerticalPages
    14. End If
    16. End Sub
    18. Private Sub OnPrintPage(ByVal sender As Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles m_PrintDocument.PrintPage
    20. Dim PageSize As SizeF = e.PageSettings.PrintableArea.Size
    21. If e.PageSettings.Landscape Then
    22. PageSize = New SizeF(PageSize.Height, PageSize.Width)
    23. End If
    25. ' In OnPrint wird hier einfach die komplette (in diesem Fall) Grafik ausgegeben, mit Hilfe
    26. ' von TranslateTransform verschiebe ich den Ausgabebereich nur entsprechend so, dass
    27. ' im druckbaren Bereich jeweils der zur Seite passende Bereich der Grafik zu liegen kommt.
    28. e.Graphics.TranslateTransform(-m_CurrentPageX * PageSize.Width, -m_CurrentPageY * PageSize.Height)
    29. OnPrint(e.Graphics, m_PrintScale)
    31. 'Nachhalten welche Seite grad gedruckt wurde und welche als nächstes drankommt
    32. m_CurrentPageX += 1
    33. If m_CurrentPageX >= m_MaxPageX Then
    34. m_CurrentPageX = 0
    35. m_CurrentPageY += 1
    36. End If
    37. e.HasMorePages = (m_CurrentPageY < m_MaxPageY)
    39. End Sub
    Weltherrschaft erlangen: 1%
    Ist dein Problem erledigt? -> Dann markiere das Thema bitte entsprechend.
    Waren Beiträge dieser Diskussion dabei hilfreich? -> Dann klick dort jeweils auf den Hilfreich-Button.
    Danke.

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

    Okay, hab jetzt auch gesehen, dass du HasMorePages an einer anderen Stelle doch auf True setzt. Ich kann zwar jetzt ohne deinen Code direkt zu testen keinen Fehler erkennen, aber ich würde dir empfehlen, in deinem PrintPage-Handler mehrere Haltepunkte zu setzen, z.B. einen direkt auf der ersten Zeile, um zu sehen wie oft er überhaupt aufgerufen wird, und einen auf die Zeile, wo e.HasMorePages auf True gesetzt wird, um zu prüfen, ob er dort überhaupt hinkommt. Und dann beim Durchsteppen mal überprüfen, ob wirklich alles so durchläuft wie der Fluss es erwartet oder ob nicht vielleicht doch irgendwo eine Exception auslöst, die deine PrintPage-Methode vorzeitig abbricht.
    Weltherrschaft erlangen: 1%
    Ist dein Problem erledigt? -> Dann markiere das Thema bitte entsprechend.
    Waren Beiträge dieser Diskussion dabei hilfreich? -> Dann klick dort jeweils auf den Hilfreich-Button.
    Danke.

    ListView Print (Überschrift + Fusszeile mit Seite 1 von 3) etc

    Hallo zusammen,

    habe nun noch mals recherchiert und bin im Grunde mit der Print Klasse PrintListView im Anhang zufrieden!
    bekomme dort allerdings nicht hin eine Überschrift einzubauen, und Seitenanzahl Fusszeile fehlt noch.
    wer hat da eine Idee, wie ich das einbinden kann? Die Überschrift soll Links Bündig mit der Liste sein
    evtl. aus Elementen (Textbox) oder so kommen.

    die Seitenanzahl Mittig 'Seite x von xx' rechts benötige ich noch einen Fusszeilentext wie erstellt am: 02.11.2013 von menorca

    bevor man in Printpreview die Vorschau sieht, sollte man einen Drucker auswählen können und dann drucken oder Vorschau wählen

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public Class PrintListView
    2. Private LV As ListView
    3. Private SpaltenBreite As New List(Of Integer)
    4. Private TextHöhe As Integer
    5. Private OffsetSpalte As Integer
    6. Private OffsetZeile As Integer
    7. Private MerkerSpalte As Integer
    8. Private MerkerZeile As Integer
    9. Public HeaderColor As System.Drawing.Color = Color.LightSeaGreen
    10. Private WithEvents PD As New System.Drawing.Printing.PrintDocument
    11. Private PrintPrev As New System.Windows.Forms.PrintPreviewDialog
    12. Private asc As SizeColumn = SizeColumn.None
    14. Public Enum SizeColumn
    15. None
    16. ScretchColumn
    17. AutoSitze
    18. End Enum
    19. Private _listView As ListView
    20. Private _headerText As String
    22. Sub New(ByVal listView As ListView, ByVal HeaderText As String)
    23. ' TODO: Complete member initialization
    24. _listView = listView
    25. _headerText = HeaderText
    26. End Sub
    28. Public Property AutoSizeColumn() As SizeColumn
    29. Get
    30. Return asc
    31. End Get
    32. Set(ByVal value As SizeColumn)
    33. asc = value
    34. SizeColums()
    35. End Set
    36. End Property
    38. Public Property Landscape() As Boolean
    39. Get
    40. Return PD.DefaultPageSettings.Landscape
    41. End Get
    42. Set(ByVal value As Boolean)
    43. PD.DefaultPageSettings.Landscape = value
    44. SizeColums()
    45. End Set
    46. End Property
    48. Private Sub SizeColums()
    49. Dim breite As Integer
    50. Dim g As Graphics = LV.CreateGraphics
    51. Dim zähler As Integer
    53. SpaltenBreite.Clear()
    54. Select Case asc
    55. Case SizeColumn.None, SizeColumn.AutoSitze
    56. For Each CH As Windows.Forms.ColumnHeader In LV.Columns
    57. SpaltenBreite.Add(CH.Width)
    58. Next
    59. Case SizeColumn.AutoSitze, SizeColumn.AutoSitze
    60. If asc = SizeColumn.AutoSitze Then
    61. For Each CH As Windows.Forms.ColumnHeader In LV.Columns
    62. breite = g.MeasureString(CH.Text, LV.Font).Width + 15
    63. SpaltenBreite.Add(breite)
    64. Next
    65. End If
    66. For Each LVI As ListViewItem In LV.Items
    67. zähler = 0
    68. breite = g.MeasureString(LVI.Text, LV.Font).Width + 15
    69. If asc = SizeColumn.AutoSitze Then SpaltenBreite.Add(breite)
    70. If SpaltenBreite(zähler) + 20 < breite Then SpaltenBreite(zähler) = breite
    71. For Each LVSI As ListViewItem.ListViewSubItem In LVI.SubItems
    72. breite = g.MeasureString(LVSI.Text, LV.Font).Width + 20
    73. If SpaltenBreite(zähler) + 20 < breite Then SpaltenBreite(zähler) = breite
    74. zähler += 1
    75. Next
    76. Next
    77. End Select
    78. End Sub
    80. Public Sub New()
    81. End Sub
    83. Public Sub New(ByVal ListViewToPrint As ListView)
    84. LV = ListViewToPrint
    85. Dim g As Graphics = LV.CreateGraphics
    86. TextHöhe = g.MeasureString("XyZ1!", LV.Font).Height + 54
    87. SizeColums()
    88. SpaltenBreite.Add(0)
    89. g.Dispose()
    90. End Sub
    92. Public Sub Print()
    93. PD.Print()
    94. End Sub
    96. Public Sub Preview()
    97. PD.DefaultPageSettings.Landscape = True
    98. PrintPrev.Document = PD
    99. PrintPrev.WindowState = FormWindowState.Maximized
    100. PrintPrev.ShowDialog()
    101. End Sub
    103. Private Sub PD_PrintPage(ByVal sender As Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PD.PrintPage
    104. e.Graphics.SmoothingMode = Drawing2D.SmoothingMode.AntiAlias
    105. e.Graphics.TextRenderingHint = Drawing.Text.TextRenderingHint.AntiAlias
    107. Dim left As Decimal = 20.5 ' PD.DefaultPageSettings.Margins.Left
    108. Dim right As Decimal = 20.5 ' PD.DefaultPageSettings.Margins.Right
    109. Dim top As Decimal = 100.0 ' PD.DefaultPageSettings.Margins.Top
    110. Dim bottom As Decimal = PD.DefaultPageSettings.Margins.Bottom
    111. Dim PageWidth As Integer = PD.DefaultPageSettings.Bounds.Width - (right + left)
    112. Dim PageHeight As Decimal = PD.DefaultPageSettings.Bounds.Height - (top + bottom)
    113. Dim sf As New StringFormat
    115. sf.Alignment = StringAlignment.Center
    116. sf.LineAlignment = StringAlignment.Center
    118. Dim rf As New Rectangle
    119. Dim br As SolidBrush
    120. Dim br1 As SolidBrush
    121. Dim PosX As Integer = left
    122. Dim PosY As Integer = top
    123. Dim OffsetSpalte As Integer
    124. Dim OffsetZeile As Integer
    126. ' Header schreiben
    127. Do
    128. rf = New Rectangle(PosX, PosY, SpaltenBreite(OffsetSpalte + MerkerSpalte), TextHöhe)
    129. e.Graphics.FillRectangle(New SolidBrush(HeaderColor), rf)
    130. If LV.GridLines Then e.Graphics.DrawRectangle(Pens.Black, rf.X, rf.Y, rf.Width, rf.Height)
    131. e.Graphics.DrawString(LV.Columns(OffsetSpalte + MerkerSpalte).Text, LV.Font, Brushes.Black, rf, sf)
    132. PosX += SpaltenBreite(OffsetSpalte + MerkerSpalte)
    133. OffsetSpalte += 1
    134. Loop Until PageWidth + left < PosX + SpaltenBreite(OffsetSpalte + MerkerSpalte) Or OffsetSpalte + MerkerSpalte > LV.Columns.Count - 1
    136. PosX = left
    137. OffsetSpalte = 0
    138. OffsetZeile = 0
    139. Do
    140. OffsetZeile = 0
    141. PosY = top + TextHöhe
    142. Do
    143. If (LV.Items(OffsetZeile + MerkerZeile).SubItems.Count > OffsetSpalte + MerkerSpalte) Then
    144. rf = New Rectangle(PosX, PosY, SpaltenBreite(OffsetSpalte + MerkerSpalte), TextHöhe)
    145. If LV.Items(OffsetZeile + MerkerZeile).UseItemStyleForSubItems = True Then
    146. br = New SolidBrush(LV.Items(OffsetZeile + MerkerZeile).BackColor)
    147. br1 = New SolidBrush(LV.Items(OffsetZeile + MerkerZeile).ForeColor)
    148. Else
    149. br = New SolidBrush(LV.Items(OffsetZeile + MerkerZeile).SubItems(OffsetSpalte + MerkerSpalte).BackColor)
    150. br1 = New SolidBrush(LV.Items(OffsetZeile + MerkerZeile).SubItems(OffsetSpalte + MerkerSpalte).ForeColor)
    151. End If
    152. e.Graphics.FillRectangle(br, rf)
    153. If LV.GridLines Then e.Graphics.DrawRectangle(New Pen(LV.ForeColor), rf)
    155. Select Case LV.Columns(OffsetSpalte + MerkerSpalte).TextAlign
    156. Case HorizontalAlignment.Center
    157. sf.Alignment = StringAlignment.Center
    158. Case HorizontalAlignment.Left
    159. sf.Alignment = StringAlignment.Near
    160. Case HorizontalAlignment.Right
    161. sf.Alignment = StringAlignment.Far
    162. End Select
    163. e.Graphics.DrawString(LV.Items(OffsetZeile + MerkerZeile).SubItems(OffsetSpalte + MerkerSpalte).Text, LV.Font, br1, rf, sf)
    164. End If
    166. PosY += TextHöhe
    167. OffsetZeile += 1
    168. Loop Until PageHeight + top < PosY + TextHöhe Or OffsetZeile + MerkerZeile >= LV.Items.Count
    170. PosX += SpaltenBreite(OffsetSpalte + MerkerSpalte)
    171. OffsetSpalte += 1
    172. Loop Until PageWidth + left < PosX + SpaltenBreite(OffsetSpalte + MerkerSpalte) Or OffsetSpalte + MerkerSpalte >= LV.Columns.Count
    174. If OffsetSpalte + MerkerSpalte = LV.Columns.Count And OffsetZeile + MerkerZeile = LV.Items.Count Then
    175. e.HasMorePages = False
    176. MerkerZeile = 0
    177. MerkerSpalte = 0
    178. OffsetSpalte = 0
    179. OffsetZeile = 0
    180. Exit Sub
    181. End If
    183. If OffsetZeile + MerkerZeile < LV.Items.Count Then
    184. MerkerZeile = OffsetZeile + MerkerZeile
    185. e.HasMorePages = True
    186. Exit Sub
    187. End If
    189. If MerkerSpalte = OffsetSpalte < LV.Columns.Count Then
    190. MerkerSpalte = OffsetSpalte + MerkerSpalte
    191. MerkerZeile = 0
    192. e.HasMorePages = True
    193. Exit Sub
    194. End If
    195. End Sub
    196. End Class

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „menorca“ () aus folgendem Grund: Erklärungen hinzugefügt

    ListView Print (Überschrift + Fusszeile mit Seite 1 von 3) etc

    Hallo zusammen,

    habe nun noch mals recherchiert und bin im Grunde mit dem Code im Anhang zufrieden!
    bekomme dort allerdings nicht hin eine Überschrift einzubauen, und Seitenanzahl Fusszeile fehlt noch.
    wer hat da eine Idee, wie ich das einbinden kann?

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public Class PrintListView
    2. Private LV As ListView
    3. Private SpaltenBreite As New List(Of Integer)
    4. Private TextHöhe As Integer
    5. Private OffsetSpalte As Integer
    6. Private OffsetZeile As Integer
    7. Private MerkerSpalte As Integer
    8. Private MerkerZeile As Integer
    9. Public HeaderColor As System.Drawing.Color = Color.LightSeaGreen
    10. Private WithEvents PD As New System.Drawing.Printing.PrintDocument
    11. Private PrintPrev As New System.Windows.Forms.PrintPreviewDialog
    12. Private asc As SizeColumn = SizeColumn.None
    14. Public Enum SizeColumn
    15. None
    16. ScretchColumn
    17. AutoSitze
    18. End Enum
    19. Private _listView As ListView
    20. Private _headerText As String
    22. Sub New(ByVal listView As ListView, ByVal HeaderText As String)
    23. ' TODO: Complete member initialization
    24. _listView = listView
    25. _headerText = HeaderText
    26. End Sub
    28. Public Property AutoSizeColumn() As SizeColumn
    29. Get
    30. Return asc
    31. End Get
    32. Set(ByVal value As SizeColumn)
    33. asc = value
    34. SizeColums()
    35. End Set
    36. End Property
    38. Public Property Landscape() As Boolean
    39. Get
    40. Return PD.DefaultPageSettings.Landscape
    41. End Get
    42. Set(ByVal value As Boolean)
    43. PD.DefaultPageSettings.Landscape = value
    44. SizeColums()
    45. End Set
    46. End Property
    48. Private Sub SizeColums()
    49. Dim breite As Integer
    50. Dim g As Graphics = LV.CreateGraphics
    51. Dim zähler As Integer
    53. SpaltenBreite.Clear()
    54. Select Case asc
    55. Case SizeColumn.None, SizeColumn.AutoSitze
    56. For Each CH As Windows.Forms.ColumnHeader In LV.Columns
    57. SpaltenBreite.Add(CH.Width)
    58. Next
    59. Case SizeColumn.AutoSitze, SizeColumn.AutoSitze
    60. If asc = SizeColumn.AutoSitze Then
    61. For Each CH As Windows.Forms.ColumnHeader In LV.Columns
    62. breite = g.MeasureString(CH.Text, LV.Font).Width + 15
    63. SpaltenBreite.Add(breite)
    64. Next
    65. End If
    66. For Each LVI As ListViewItem In LV.Items
    67. zähler = 0
    68. breite = g.MeasureString(LVI.Text, LV.Font).Width + 15
    69. If asc = SizeColumn.AutoSitze Then SpaltenBreite.Add(breite)
    70. If SpaltenBreite(zähler) + 20 < breite Then SpaltenBreite(zähler) = breite
    71. For Each LVSI As ListViewItem.ListViewSubItem In LVI.SubItems
    72. breite = g.MeasureString(LVSI.Text, LV.Font).Width + 20
    73. If SpaltenBreite(zähler) + 20 < breite Then SpaltenBreite(zähler) = breite
    74. zähler += 1
    75. Next
    76. Next
    77. End Select
    78. End Sub
    80. Public Sub New()
    81. End Sub
    83. Public Sub New(ByVal ListViewToPrint As ListView)
    84. LV = ListViewToPrint
    85. Dim g As Graphics = LV.CreateGraphics
    86. TextHöhe = g.MeasureString("XyZ1!", LV.Font).Height + 54
    87. SizeColums()
    88. SpaltenBreite.Add(0)
    89. g.Dispose()
    90. End Sub
    92. Public Sub Print()
    93. PD.Print()
    94. End Sub
    96. Public Sub Preview()
    97. PD.DefaultPageSettings.Landscape = True
    98. PrintPrev.Document = PD
    99. PrintPrev.WindowState = FormWindowState.Maximized
    100. PrintPrev.ShowDialog()
    101. End Sub
    103. Private Sub PD_PrintPage(ByVal sender As Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PD.PrintPage
    104. e.Graphics.SmoothingMode = Drawing2D.SmoothingMode.AntiAlias
    105. e.Graphics.TextRenderingHint = Drawing.Text.TextRenderingHint.AntiAlias
    107. Dim left As Decimal = 20.5 ' PD.DefaultPageSettings.Margins.Left
    108. Dim right As Decimal = 20.5 ' PD.DefaultPageSettings.Margins.Right
    109. Dim top As Decimal = 100.0 ' PD.DefaultPageSettings.Margins.Top
    110. Dim bottom As Decimal = PD.DefaultPageSettings.Margins.Bottom
    111. Dim PageWidth As Integer = PD.DefaultPageSettings.Bounds.Width - (right + left)
    112. Dim PageHeight As Decimal = PD.DefaultPageSettings.Bounds.Height - (top + bottom)
    113. Dim sf As New StringFormat
    115. sf.Alignment = StringAlignment.Center
    116. sf.LineAlignment = StringAlignment.Center
    118. Dim rf As New Rectangle
    119. Dim br As SolidBrush
    120. Dim br1 As SolidBrush
    121. Dim PosX As Integer = left
    122. Dim PosY As Integer = top
    123. Dim OffsetSpalte As Integer
    124. Dim OffsetZeile As Integer
    126. ' Header schreiben
    127. Do
    128. rf = New Rectangle(PosX, PosY, SpaltenBreite(OffsetSpalte + MerkerSpalte), TextHöhe)
    129. e.Graphics.FillRectangle(New SolidBrush(HeaderColor), rf)
    130. If LV.GridLines Then e.Graphics.DrawRectangle(Pens.Black, rf.X, rf.Y, rf.Width, rf.Height)
    131. e.Graphics.DrawString(LV.Columns(OffsetSpalte + MerkerSpalte).Text, LV.Font, Brushes.Black, rf, sf)
    132. PosX += SpaltenBreite(OffsetSpalte + MerkerSpalte)
    133. OffsetSpalte += 1
    134. Loop Until PageWidth + left < PosX + SpaltenBreite(OffsetSpalte + MerkerSpalte) Or OffsetSpalte + MerkerSpalte > LV.Columns.Count - 1
    136. PosX = left
    137. OffsetSpalte = 0
    138. OffsetZeile = 0
    139. Do
    140. OffsetZeile = 0
    141. PosY = top + TextHöhe
    142. Do
    143. If (LV.Items(OffsetZeile + MerkerZeile).SubItems.Count > OffsetSpalte + MerkerSpalte) Then
    144. rf = New Rectangle(PosX, PosY, SpaltenBreite(OffsetSpalte + MerkerSpalte), TextHöhe)
    145. If LV.Items(OffsetZeile + MerkerZeile).UseItemStyleForSubItems = True Then
    146. br = New SolidBrush(LV.Items(OffsetZeile + MerkerZeile).BackColor)
    147. br1 = New SolidBrush(LV.Items(OffsetZeile + MerkerZeile).ForeColor)
    148. Else
    149. br = New SolidBrush(LV.Items(OffsetZeile + MerkerZeile).SubItems(OffsetSpalte + MerkerSpalte).BackColor)
    150. br1 = New SolidBrush(LV.Items(OffsetZeile + MerkerZeile).SubItems(OffsetSpalte + MerkerSpalte).ForeColor)
    151. End If
    152. e.Graphics.FillRectangle(br, rf)
    153. If LV.GridLines Then e.Graphics.DrawRectangle(New Pen(LV.ForeColor), rf)
    155. Select Case LV.Columns(OffsetSpalte + MerkerSpalte).TextAlign
    156. Case HorizontalAlignment.Center
    157. sf.Alignment = StringAlignment.Center
    158. Case HorizontalAlignment.Left
    159. sf.Alignment = StringAlignment.Near
    160. Case HorizontalAlignment.Right
    161. sf.Alignment = StringAlignment.Far
    162. End Select
    163. e.Graphics.DrawString(LV.Items(OffsetZeile + MerkerZeile).SubItems(OffsetSpalte + MerkerSpalte).Text, LV.Font, br1, rf, sf)
    164. End If
    166. PosY += TextHöhe
    167. OffsetZeile += 1
    168. Loop Until PageHeight + top < PosY + TextHöhe Or OffsetZeile + MerkerZeile >= LV.Items.Count
    170. PosX += SpaltenBreite(OffsetSpalte + MerkerSpalte)
    171. OffsetSpalte += 1
    172. Loop Until PageWidth + left < PosX + SpaltenBreite(OffsetSpalte + MerkerSpalte) Or OffsetSpalte + MerkerSpalte >= LV.Columns.Count
    174. If OffsetSpalte + MerkerSpalte = LV.Columns.Count And OffsetZeile + MerkerZeile = LV.Items.Count Then
    175. e.HasMorePages = False
    176. MerkerZeile = 0
    177. MerkerSpalte = 0
    178. OffsetSpalte = 0
    179. OffsetZeile = 0
    180. Exit Sub
    181. End If
    183. If OffsetZeile + MerkerZeile < LV.Items.Count Then
    184. MerkerZeile = OffsetZeile + MerkerZeile
    185. e.HasMorePages = True
    186. Exit Sub
    187. End If
    189. If MerkerSpalte = OffsetSpalte < LV.Columns.Count Then
    190. MerkerSpalte = OffsetSpalte + MerkerSpalte
    191. MerkerZeile = 0
    192. e.HasMorePages = True
    193. Exit Sub
    194. End If
    195. End Sub
    196. End Class

    menorca schrieb:

    bekomme dort allerdings nicht hin eine Überschrift einzubauen, und Seitenanzahl Fusszeile fehlt noch.
    Dann fang mit der Überschrift und der Fußzeile an:

    VB.NET-Quellcode

    1. Private pageNumber As Integer
    2. Private actPage As Integer
    3. Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
    4. Me.actPage = 1
    5. Me.pageNumber = 5
    6. Me.PrintPreviewDialog1.ShowDialog()
    7. End Sub
    9. Private Sub PrintDocument1_PrintPage(sender As System.Object, e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
    10. e.Graphics.DrawString(String.Format("Dies ist die Überschrift der {0}. Seite", Me.actPage), New Font("Arial", 20), Brushes.Black, New Point(30, 30))
    11. e.Graphics.DrawString(String.Format("Seite {0} von {1}", Me.actPage, Me.pageNumber), New Font("Arial", 10), Brushes.Black, New Point(30, PrintDocument1.DefaultPageSettings.Bounds.Height - 30))
    13. e.HasMorePages = Me.actPage < Me.pageNumber
    14. Me.actPage += 1
    15. 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!

    Hallo Rod,

    Danke, für deine Antwort!

    ich habe es so probiert ---> im Code Rote Schriftfarbe (mir gefällt das Brush nicht der Text sieht dann so verschmiert aus) na ja man kann nicht alles haben...
    kann das im Prinzip so bleiben? da es ja funktioniert, dann hätte ich nur noch das Problem mit der Seitenzahl
    ich bin noch nicht dazu gekommen zu verstehen wie die Seiten gezählt werden

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Imports System.Drawing
    2. Imports System.Windows.Forms
    3. Public Class PrintListView
    4. Private LV As ListView
    5. Private SpaltenBreite As New List(Of Integer)
    6. Private TextHöhe As Integer
    7. Private OffsetSpalte As Integer
    8. Private OffsetZeile As Integer
    9. Private MerkerSpalte As Integer
    10. Private MerkerZeile As Integer
    11. Public HeaderColor As System.Drawing.Color = Color.LightSkyBlue
    12. Private WithEvents PD As New System.Drawing.Printing.PrintDocument
    13. Private PrintPrev As New System.Windows.Forms.PrintPreviewDialog
    14. Private asc As SizeColumn = SizeColumn.None
    16. Public Enum SizeColumn
    17. None
    18. ScretchColumn
    19. AutoSitze
    20. End Enum
    21. Private _listView As ListView
    22. Private _headerText As String
    24. Sub New(ByVal listView As ListView, ByVal HeaderText As String)
    25. ' TODO: Complete member initialization
    26. _listView = listView
    27. _headerText = HeaderText
    28. End Sub
    30. Public Property AutoSizeColumn() As SizeColumn
    31. Get
    32. Return asc
    33. End Get
    34. Set(ByVal value As SizeColumn)
    35. asc = value
    36. SizeColums()
    37. End Set
    38. End Property
    40. Public Property Landscape() As Boolean
    41. Get
    42. Return PD.DefaultPageSettings.Landscape
    43. End Get
    44. Set(ByVal value As Boolean)
    45. PD.DefaultPageSettings.Landscape = value
    46. SizeColums()
    47. End Set
    48. End Property
    50. Private Sub SizeColums()
    51. Dim breite As Integer
    52. Dim g As Graphics = LV.CreateGraphics
    53. Dim zähler As Integer
    55. SpaltenBreite.Clear()
    56. Select Case asc
    57. Case SizeColumn.None, SizeColumn.AutoSitze
    58. For Each CH As Windows.Forms.ColumnHeader In LV.Columns
    59. SpaltenBreite.Add(CH.Width)
    60. Next
    61. Case SizeColumn.AutoSitze, SizeColumn.AutoSitze
    62. If asc = SizeColumn.AutoSitze Then
    63. For Each CH As Windows.Forms.ColumnHeader In LV.Columns
    64. breite = g.MeasureString(CH.Text, LV.Font).Width + 20
    65. SpaltenBreite.Add(breite)
    66. Next
    67. End If
    68. For Each LVI As ListViewItem In LV.Items
    69. zähler = 0
    70. breite = g.MeasureString(LVI.Text, LV.Font).Width + 20
    71. If asc = SizeColumn.AutoSitze Then SpaltenBreite.Add(breite)
    72. If SpaltenBreite(zähler) + 20 < breite Then SpaltenBreite(zähler) = breite
    73. For Each LVSI As ListViewItem.ListViewSubItem In LVI.SubItems
    74. breite = g.MeasureString(LVSI.Text, LV.Font).Width + 20
    75. If SpaltenBreite(zähler) + 20 < breite Then SpaltenBreite(zähler) = breite
    76. zähler += 1
    77. Next
    78. Next
    79. End Select
    80. End Sub
    82. Public Sub New()
    83. End Sub
    85. Public Sub New(ByVal ListViewToPrint As ListView)
    86. LV = ListViewToPrint
    87. Dim g As Graphics = LV.CreateGraphics
    88. TextHöhe = g.MeasureString("XyZ1!", LV.Font).Height + 60
    89. SizeColums()
    90. SpaltenBreite.Add(0)
    91. g.Dispose()
    92. End Sub
    94. Public Sub Print()
    95. PD.Print()
    96. End Sub
    98. Public Sub Preview()
    99. PD.DefaultPageSettings.Landscape = True
    100. PrintPrev.Document = PD
    101. PrintPrev.WindowState = FormWindowState.Maximized
    102. PrintPrev.ShowDialog()
    103. End Sub
    105. Private Sub PD_PrintPage(ByVal sender As Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PD.PrintPage
    106. ' --->
    107. e.Graphics.SmoothingMode = Drawing2D.SmoothingMode.AntiAlias
    108. e.Graphics.TextRenderingHint = Drawing.Text.TextRenderingHint.AntiAlias
    109. Dim left As Decimal = 20.5 ' PD.DefaultPageSettings.Margins.Left
    110. Dim right As Decimal = 20.5 ' PD.DefaultPageSettings.Margins.Right
    111. Dim top As Decimal = 100.0 ' PD.DefaultPageSettings.Margins.Top
    112. Dim bottom As Decimal = PD.DefaultPageSettings.Margins.Bottom
    113. Dim PageWidth As Integer = PD.DefaultPageSettings.Bounds.Width - (right + left)
    114. Dim PageHeight As Decimal = PD.DefaultPageSettings.Bounds.Height - (top + bottom)
    115. Dim sf As New StringFormat
    117. sf.Alignment = StringAlignment.Center
    118. sf.LineAlignment = StringAlignment.Center
    120. Dim rf As New Rectangle
    121. Dim br As SolidBrush
    122. Dim br1 As SolidBrush
    123. Dim PosX As Integer = left
    124. Dim PosY As Integer = top
    125. Dim OffsetSpalte As Integer
    126. Dim OffsetZeile As Integer
    127. 'Anfang und Ende der horizontalen Linien
    128. Dim yA As Decimal = 20.5
    129. Dim yE As Decimal = 60.0
    131. 'Beginn Druck, Überschriften ausgeben
    132. Dim ueberschrift1 As String = "|Streifenliste| " & Form1.Label1.Text
    133. Dim ueberschrift2 As String = Form1.cboMaschinenName.Text & " | " & Form1.VonDatum.Text & " - " & Form1.BisDatum.Text
    134. Dim ueberschrift3 As String = "Erstellt am: " & Now.ToLongDateString
    135. ' Header schreiben
    136. Do
    137. rf = New Rectangle(PosX, PosY, SpaltenBreite(OffsetSpalte + MerkerSpalte), TextHöhe)
    138. e.Graphics.FillRectangle(New SolidBrush(HeaderColor), rf)
    139. If LV.GridLines Then e.Graphics.DrawRectangle(Pens.Black, rf.X, rf.Y, rf.Width, rf.Height)
    140. e.Graphics.DrawString(ueberschrift1, New Font("Arial", 10, FontStyle.Regular), Brushes.ForestGreen, yA, 25)
    141. e.Graphics.DrawString(ueberschrift2, New Font("Arial", 10, FontStyle.Regular), Brushes.Blue, yA, yE)
    142. e.Graphics.DrawString(LV.Columns(OffsetSpalte + MerkerSpalte).Text, LV.Font, Brushes.Black, rf, sf)
    143. PosX += SpaltenBreite(OffsetSpalte + MerkerSpalte)
    144. OffsetSpalte += 1
    145. Loop Until PageWidth + left < PosX + SpaltenBreite(OffsetSpalte + MerkerSpalte) Or OffsetSpalte + MerkerSpalte > LV.Columns.Count - 1
    147. PosX = left
    148. OffsetSpalte = 0
    149. OffsetZeile = 0
    150. Do
    151. OffsetZeile = 0
    152. PosY = top + TextHöhe
    153. Do
    154. If (LV.Items(OffsetZeile + MerkerZeile).SubItems.Count > OffsetSpalte + MerkerSpalte) Then
    155. rf = New Rectangle(PosX, PosY, SpaltenBreite(OffsetSpalte + MerkerSpalte), TextHöhe)
    156. If LV.Items(OffsetZeile + MerkerZeile).UseItemStyleForSubItems = True Then
    157. br = New SolidBrush(LV.Items(OffsetZeile + MerkerZeile).BackColor)
    158. br1 = New SolidBrush(LV.Items(OffsetZeile + MerkerZeile).ForeColor)
    159. Else
    160. br = New SolidBrush(LV.Items(OffsetZeile + MerkerZeile).SubItems(OffsetSpalte + MerkerSpalte).BackColor)
    161. br1 = New SolidBrush(LV.Items(OffsetZeile + MerkerZeile).SubItems(OffsetSpalte + MerkerSpalte).ForeColor)
    162. End If
    163. e.Graphics.FillRectangle(br, rf)
    164. If LV.GridLines Then e.Graphics.DrawRectangle(New Pen(LV.ForeColor), rf)
    166. Select Case LV.Columns(OffsetSpalte + MerkerSpalte).TextAlign
    167. Case HorizontalAlignment.Center
    168. sf.Alignment = StringAlignment.Center
    169. Case HorizontalAlignment.Center
    170. sf.Alignment = StringAlignment.Center
    171. Case HorizontalAlignment.Center
    172. sf.Alignment = StringAlignment.Center
    173. End Select
    174. e.Graphics.DrawString(LV.Items(OffsetZeile + MerkerZeile).SubItems(OffsetSpalte + MerkerSpalte).Text, LV.Font, br1, rf, sf)
    175. e.Graphics.DrawString(ueberschrift3, New Font("Arial", 8, FontStyle.Regular), Brushes.Blue, yA, PageHeight + 150)
    176. End If
    179. PosY += TextHöhe
    180. OffsetZeile += 1
    182. Loop Until PageHeight + top < PosY + TextHöhe Or OffsetZeile + MerkerZeile >= LV.Items.Count
    184. PosX += SpaltenBreite(OffsetSpalte + MerkerSpalte)
    185. OffsetSpalte += 1
    186. Loop Until PageWidth + left < PosX + SpaltenBreite(OffsetSpalte + MerkerSpalte) Or OffsetSpalte + MerkerSpalte >= LV.Columns.Count
    188. If OffsetSpalte + MerkerSpalte = LV.Columns.Count And OffsetZeile + MerkerZeile = LV.Items.Count Then
    190. e.HasMorePages = False
    191. MerkerZeile = 0
    192. MerkerSpalte = 0
    193. OffsetSpalte = 0
    194. OffsetZeile = 0
    195. Exit Sub
    196. End If
    198. If OffsetZeile + MerkerZeile < LV.Items.Count Then
    199. MerkerZeile = OffsetZeile + MerkerZeile
    201. e.HasMorePages = True
    202. Exit Sub
    203. End If
    205. If MerkerSpalte = OffsetSpalte < LV.Columns.Count Then
    206. MerkerSpalte = OffsetSpalte + MerkerSpalte
    208. MerkerZeile = 0
    209. e.HasMorePages = True
    210. Exit Sub
    211. End If
    212. End Sub
    215. End Class

    menorca schrieb:

    ich bin noch nicht dazu gekommen zu verstehen wie die Seiten gezählt werden
    Deinen Code zu analysieren hab ich wirklich keine Lust.
    Du schreibst einfach von oben nach unten, sieh Dir mal die Graphics.DrawString()-Methoden an, in denen Rectangle vorkommt. Wenn Dein Text zu lang wird, beginne eine neue Seite.
    ----
    Fang doch ganz einfach an, indem Du Zeilenzahlen druckst. Wenn Du das kannst, sollte das andere auch funktionieren.
    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!

    Hallo Rod,

    sieh Dir mal die Graphics.DrawString()-Methoden an, in denen Rectangle vorkommt. Wenn Dein Text zu lang wird, beginne eine neue Seite.
    habe dein Zitat nicht ganz verstanden, oder hast du heute mehr Lust den Code zu analysieren.
    oder ist da noch jemand der mir weiter hilft, habe mal eine Testmappe hochgeladen.
    beim Start gibts eine kleine Fehlermeldung, doch mit weiter startet die Anwendung dann doch.
    evtl. kann mir da so einer weiterhelfen
    Dateien

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „menorca“ () aus folgendem Grund: Testmappe hochgeladen

    Hallo an Alle,

    wer hilft mir ich komme da nicht weiter!

    hiermit erreiche ich eine Seitenzahl 1-xx, aber das Ergebnis Seite 1 von xx ist falsch

    VB.NET-Quellcode

    1. ' ---> Rundenzähler
    2. Me.pageNumber = 1
    3. Me.pageNumber = Me.pageNumber + 1
    4. ' ---> Seitennummerierung ermitteln
    5. e.HasMorePages = Me.actPage < Me.pageNumber
    6. Me.actPage += 1
    Bilder

    • Seite x von xx.JPG

      13 kB, 311×179, 202 mal angesehen

    menorca schrieb:

    sieh Dir mal die Graphics.DrawString()-Methoden an, in denen Rectangle vorkommt. Wenn Dein Text zu lang wird, beginne eine neue Seite.
    habe dein Zitat nicht ganz verstanden, ...
    Was gibts da nicht zu verstehen?
    2 Stichworte sind dir gegeben, und als Programmierer musst du imstande sein, zu recherchieren, wasses damit auf sich hat.
    Sonst kannst du nicht programmieren.

    Visual-Studio richtig nutzen

    menorca schrieb:

    habe dein Zitat nicht ganz verstanden
    Schmeiß Deinen Code volständig weg.
    Mach Dir einen Rahmen anhand meines Beispielcodes und fang dann an, Deine Tabelle da reinzumalen.
    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!

    so einfach gebe ich aber nicht auf!

    Danke an alle die hier so super geholfen haben...
    Thema erledigt, OK nicht ganz wie ich wollte doch es funktioniert auch die Seitennummerierung Seite 1, Seite 2, Seite 3 usw.
    wird auch ordentlich gedruckt, vorher falsch.

    Tolle Hilfe hier .....

    Sorry Rod, aber wird volständig nicht so --> vollständig geschrieben
    Bilder

    • Seite x von xx.JPG

      135,73 kB, 1.221×856, 247 mal angesehen

    menorca schrieb:

    aber wird volständig nicht so --> vollständig geschrieben
    :?: :?: :?:
    Es wird genau das ausgegeben, was Du im Print-Ereignis "malst".
    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!

    menorca schrieb:

    Sorry Rod, aber wird volständig nicht so --> vollständig geschrieben

    Warum findest du es wichtig einen Vertipper zu kommentieren? Der deutlich als solcher zu erkennen ist?

    menorca schrieb:

    Danke an alle die hier so super geholfen haben...

    Wird das nicht mit Komma zwischen "alle" und "die" geschrieben?

    menorca schrieb:

    Thema erledigt, OK nicht ganz wie ich wollte doch es funktioniert auch die Seitennummerierung Seite 1, Seite 2, Seite 3 usw.

    Fehlen hier nicht Kommata nach "OK", "wollte" und "funktioniert"?
    Noch Beispiele gefällig?