DataGridView quer ausdrucken

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

Es gibt 8 Antworten in diesem Thema. Der letzte Beitrag () ist von Amelie.

    DataGridView quer ausdrucken

    Hallo und HILFEEEEEEE

    Ich versuche nun schon seit Stunden den Fehler zu finden.
    Ich möchte das DGV im Querformat ausdrucken. Es sollte immer auf ein DIN A4 Blatt passen, da ja nur immer 28 - 31 Zeilen entstehen.
    Hier der letzte Code den ich habe. Anbei ein Bild vom Ausdruck ;;-(


    Spoiler anzeigen
    ​

    VB.NET-Quellcode

    1. ​
    3. Private WithEvents PrintDocument1 As New Printing.PrintDocument()
    5. Private Sub PrintDocument1_BeginPrint(ByVal sender As Object, ByVal e As System.Drawing.Printing.PrintEventArgs) Handles PrintDocument1.BeginPrint
    6. Dim ps As New Printing.PaperSize("Custom", 583, 827)
    7. ps.RawKind = Printing.PaperKind.A4Rotated ' Legt das Querformat fest
    8. PrintDocument1.DefaultPageSettings.PaperSize = ps ' Setzt die Druckereinstellungen auf Querformat
    9. End Sub
    11. Private Sub frm_Main_Load(sender As Object, e As EventArgs) Handles Me.Load
    12. PrintDocument1.DefaultPageSettings.Landscape = True
    13. PrintDocument1.DefaultPageSettings.PaperSize = New PaperSize("A4Querformat", 827, 583)
    14. AddHandler PrintDocument1.BeginPrint, AddressOf PrintDocument1_BeginPrint
    15. '....
    16. End Sub
    19. Private Sub PrintDocument1_PrintPage(ByVal sender As Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
    20. Dim pageSettings As PageSettings = PrintDocument1.DefaultPageSettings
    21. Dim printArea As RectangleF = pageSettings.PrintableArea
    22. PrintDocument1.DefaultPageSettings.Landscape = True
    23. PrintDocument1.DefaultPageSettings.PaperSize = New PaperSize("A4", 827, 583)
    24. Dim printWidth As Integer = PrintDocument1.DefaultPageSettings.PaperSize.Width - PrintDocument1.DefaultPageSettings.Margins.Left - PrintDocument1.DefaultPageSettings.Margins.Right
    25. Dim printHeight As Integer = PrintDocument1.DefaultPageSettings.PaperSize.Height - PrintDocument1.DefaultPageSettings.Margins.Top - PrintDocument1.DefaultPageSettings.Margins.Bottom
    26. Dim leftMargin As Single = pageSettings.Margins.Left
    27. Dim rightMargin As Single = pageSettings.Margins.Right
    28. Dim topMargin As Single = pageSettings.Margins.Top
    29. Dim bottomMargin As Single = pageSettings.Margins.Bottom
    30. Dim numRows As Integer = DGV_1.RowCount
    31. Dim numCols As Integer = DGV_1.ColumnCount
    32. Dim cellFont As Font = DGV_1.DefaultCellStyle.Font
    33. Dim headerFont As Font = New Font(cellFont.FontFamily, cellFont.Size, FontStyle.Bold)
    34. Dim rowHeight As Single = DGV_1.RowTemplate.Height
    35. Dim headerHeight As Single = rowHeight * 2
    36. Dim cellPadding As Single = 5
    37. Dim currentRow As Integer = 0
    38. Dim currentCol As Integer = 0
    39. Dim cellBounds As RectangleF
    40. Dim rowBounds As RectangleF
    41. While currentRow < numRows
    42. rowBounds = New RectangleF(leftMargin, topMargin + (currentRow * rowHeight), printWidth, rowHeight)
    43. cellBounds = New RectangleF(leftMargin + cellPadding, topMargin + (currentRow * rowHeight) + cellPadding, rowHeight - (cellPadding * 2), rowHeight - (cellPadding * 2))
    45. If currentRow Mod 2 = 0 Then
    46. e.Graphics.FillRectangle(Brushes.White, rowBounds)
    47. Else
    48. e.Graphics.FillRectangle(Brushes.LightGray, rowBounds)
    49. End If
    50. For currentCol = 0 To numCols - 1
    51. Dim headerBounds As RectangleF = New RectangleF(leftMargin + (currentCol * cellBounds.Height), topMargin + (currentRow * rowHeight), cellBounds.Height, headerHeight)
    52. Dim cellValue As String = DGV_1.Columns(currentCol).HeaderText
    53. e.Graphics.FillRectangle(Brushes.LightGray, headerBounds)
    54. e.Graphics.DrawString(cellValue, headerFont, Brushes.Black, headerBounds)
    56. cellValue = DGV_1.Rows(currentRow).Cells(currentCol).FormattedValue.ToString()
    57. cellBounds = New RectangleF(leftMargin + (currentCol * cellBounds.Height) + cellPadding, topMargin + (currentRow * rowHeight) + cellPadding, rowHeight - (cellPadding * 2), cellBounds.Height - (cellPadding * 2))
    58. e.Graphics.DrawString(cellValue, cellFont, Brushes.Black, cellBounds)
    59. Next
    60. currentRow += 1
    61. If currentRow * rowHeight + topMargin + bottomMargin > printHeight Then
    62. 'e.HasMorePages = True
    63. Return
    64. End If
    65. End While
    66. e.HasMorePages = False
    67. End Sub

    Bilder

    • ausdruck-1.jpg

      133,34 kB, 1.121×655, 82 mal angesehen
    Asperger Autistin. Brauche immer etwas um gewisse Sachen zu verstehen. :huh:

    @Amelie Hast Du Dir mal den Tabellendruck hier angesehen und verstanden?
    Drucken mehrseitiger Dokumente
    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!

    AddHandler PrintDocument1.BeginPrint, AddressOf PrintDocument1_BeginPrint plus Handles PrintDocument1.BeginPrint ist doppelt gemoppelt. Weg mit dem ersten.
    e.HasMorePages ist von Haus aus False, Du brauchst es in Zeile#66 nicht explizit zu setzen.

    Auch hier frag ich mich: Unmengen an Code. Wie konnte es soweit kommen, dass hier gar nichts mehr vernünftig gedruckt wird? Das hätte doch schon viel früher auffallen müssen.
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

    Das was ich verstanden habe und was ich sonst so im www gefunden habe, versuchte ich ja umzusetzen.
    Es fällt mir halt nicht so leicht wie Euch. ;(

    Eben las ich nochmal etwas über eine "DGV_Print Klasse" die ich downloaden solle... hmmm????
    Asperger Autistin. Brauche immer etwas um gewisse Sachen zu verstehen. :huh:

    Amelie schrieb:

    die ich downloaden solle
    von welcher Quelle?
    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!

    @Amelie

    RodFromGermany schrieb:

    Hast Du Dir mal den Tabellendruck hier angesehen und verstanden?
    Drucken mehrseitiger Dokumente
    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!

    Aso mit einigen Änderungen habe ich es nun hinbekommen.
    Siehe Bildangabe
    Das Eingeben und Ändern der Daten im DGV klappt, ebenso das speichern in der XML-Datei.
    Das Umschalten der Monate etc klappt auch.
    Nun geht es an die Diagramme ...
    Bilder

    • ausdruck-1.jpg

      529,99 kB, 1.271×937, 70 mal angesehen

    • wetterapp-1.jpg

      200,45 kB, 700×349, 72 mal angesehen
    Asperger Autistin. Brauche immer etwas um gewisse Sachen zu verstehen. :huh: