GridView drucken

  • VB.NET

Es gibt 18 Antworten in diesem Thema. Der letzte Beitrag () ist von menorca.

    GridView drucken

    Hi das ist mir viel wichtiger, Gridview mit "Image Spalte" drucken

    habe den Code nach 2600 Seiten erstellen abgebrochen, und verstehe nicht warum er >2600 Seiten erstellt :?:

    Spoiler anzeigen

    Quellcode

    1. Private Sub Export_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles export_Button.Click
    2. Dim PrintDlg As PrintDialog = New PrintDialog()
    3. Dim PrintDlgRslt As DialogResult = New DialogResult()
    4. Dim MyDoc As PrintDocument = New PrintDocument()
    6. '
    8. PrintPreviewDialog1.PrintPreviewControl.Zoom = 1
    9. PrintPreviewDialog1.Document = PrintDocument1
    10. PrintPreviewDialog1.Show()
    12. End Sub
    13. ':::
    14. Private Sub PrintDocument1_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
    15. Dim oStringFormat As StringFormat
    16. Dim TotalWidth As Integer
    17. Dim nRowPos As Integer = 0
    18. Dim NewPage As Boolean = True
    20. Dim PageNo As Integer = 1
    21. Dim Header As String = "Consolidated Report"
    22. 'Dim sUserName As String = WHOLOGGEDIN
    24. Dim oColumnLefts As New ArrayList
    25. Dim oColumnWidths As New ArrayList
    26. Dim oColumnTypes As New ArrayList
    28. Dim Height As Integer
    29. Dim Width As Integer
    30. Dim i As Integer
    31. Dim RowsPerPage As Integer
    32. Dim Top As Integer = e.MarginBounds.Top
    33. Dim Left As Integer = e.MarginBounds.Left
    35. TotalWidth = 0
    37. For Each DColumn As DataGridViewColumn In DataGridView1.Columns
    38. TotalWidth += DColumn.Width
    39. Next
    41. If PageNo = 1 Then
    42. For Each DColumn As DataGridViewColumn In DataGridView1.Columns
    43. Width = CType(Math.Floor(DColumn.Width / TotalWidth * TotalWidth * (e.MarginBounds.Width / TotalWidth)), Int16)
    44. Height = e.Graphics.MeasureString(DColumn.HeaderText, DColumn.InheritedStyle.Font, Width).Height + 15
    45. oColumnLefts.Add(Left)
    46. oColumnWidths.Add(Width)
    47. oColumnTypes.Add(DColumn.GetType)
    48. Left += Width
    49. Next
    50. End If
    52. Do While nRowPos < DataGridView1.Rows.Count
    53. Dim oRow As DataGridViewRow = DataGridView1.Rows(nRowPos)
    54. If Top + Height >= e.MarginBounds.Height + e.MarginBounds.Top Then
    55. 'DrawFooter(e, RowsPerPage)
    56. NewPage = True
    57. PageNo += 1
    58. e.HasMorePages = True
    59. Exit Sub
    60. Else
    62. If NewPage Then
    63. Top = e.MarginBounds.Top
    64. i = 0
    65. For Each oColumn As DataGridViewColumn In DataGridView1.Columns
    66. e.Graphics.FillRectangle(New SolidBrush(Drawing.Color.LightGray), New Rectangle(oColumnLefts(i), Top, oColumnWidths(i), Height))
    67. e.Graphics.DrawRectangle(Pens.Black, New Rectangle(oColumnLefts(i), Top, oColumnWidths(i), Height))
    68. e.Graphics.DrawString(oColumn.HeaderText, oColumn.InheritedStyle.Font, New SolidBrush(oColumn.InheritedStyle.ForeColor), New RectangleF(oColumnLefts(i), Top, oColumnWidths(i), Height), oStringFormat)
    69. i += 1
    70. Next
    71. NewPage = False
    72. End If
    73. Top += Height
    74. i = 0
    75. For Each oCell As DataGridViewCell In oRow.Cells
    77. If oColumnTypes(i) Is GetType(DataGridViewTextBoxColumn) Then
    78. e.Graphics.DrawString(oCell.Value.ToString, oCell.InheritedStyle.Font, New SolidBrush(oCell.InheritedStyle.ForeColor), New RectangleF(oColumnLefts(i), Top, oColumnWidths(i), Height), oStringFormat)
    80. ElseIf oColumnTypes(i) Is GetType(DataGridViewImageColumn) Then
    81. Dim oCellSize As Rectangle = New Rectangle(oColumnLefts(i), Top, oColumnWidths(i), Height)
    82. Dim oImageSize As Size = CType(oCell.Value, Image).Size
    83. e.Graphics.DrawImage(oCell.Value, New Rectangle(oColumnLefts(i) + CType(((oCellSize.Width - oImageSize.Width) / 2), Int32), Top + CType(((oCellSize.Height - oImageSize.Height) / 2), Int32), CType(oCell.Value, Image).Width, CType(oCell.Value, Image).Height))
    84. End If
    86. e.Graphics.DrawRectangle(Pens.Black, New Rectangle(oColumnLefts(i), Top, oColumnWidths(i), Height))
    87. i += 1
    88. Next
    89. End If
    91. nRowPos += 1
    92. RowsPerPage += 1
    93. Loop
    94. 'Footer(e, RowsPerPage)
    95. e.HasMorePages = False
    96. End Sub
    Bilder

    • Lagerliste_drucken.PNG

      94,72 kB, 1.258×496, 221 mal angesehen

    @menorca: Beherrschst Du das Drucken eines mehrseitigen normalen Textes?
    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:

    Ja, habe einen Code
    Ich wollte nicht wissen, ob Du Dir Deine Hosen mit einem Kran anziehst, ich wollte wissen, ob Du das Drucken mehrerer Seiten Texts beherrschst.
    "Ich habe einen Code" und "Ich bin selbst in der Lage, selbst solch Code praktisch fehlerfrei zu entwickeln" ist doch ein größerer Unterschied.
    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!

    Dann solltest Du damit anfangen, un ein Gefühl für die Druckerausgabe per .NET zu bekommen.
    Gib mal oben rechts Drucken als Suchbegriff ein. Wenn das zu viel ist, ändere die Suche und gib meinen Namen als Autor ein.
    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!

    Danke Rod,

    bei der Suche drucken, gab es 5 Beiträge (unsere)
    bei deinen Namen gab es 34 Seiten, welche davon soll passen.

    warum untersuchen wir nicht den Code, warum es mit der Seitenanzahl nicht richtig funzt
    das ist doch annährend was ich brauche. Hilf mir doch einmal richtig ohne Verweis auf Links etc.
    Danke, Danke

    Quellcode

    1. ':::
    2. Private Sub PrintDocument1_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles MyPrintDocument.PrintPage, PrintDocument1.PrintPage
    3. Dim oStringFormat As StringFormat
    4. Dim TotalWidth As Integer
    5. Dim nRowPos As Integer = 0
    6. Dim NewPage As Boolean = True
    7. Dim DrawFooter As Boolean = True
    8. Dim PageNo As Integer = 1
    9. Dim Header As String = "Consolidated Report"
    10. 'Dim sUserName As String = WHOLOGGEDIN
    12. Dim oColumnLefts As New ArrayList
    13. Dim oColumnWidths As New ArrayList
    14. Dim oColumnTypes As New ArrayList
    16. Dim Height As Integer
    17. Dim Width As Integer
    18. Dim i As Integer
    19. Dim RowsPerPage As Integer
    20. Dim Top As Integer = e.MarginBounds.Top
    21. Dim Left As Integer = e.MarginBounds.Left
    23. TotalWidth = 0
    25. For Each DColumn As DataGridViewColumn In DataGridView1.Columns
    26. TotalWidth += DColumn.Width
    27. Next
    29. If PageNo = 1 Then
    30. For Each DColumn As DataGridViewColumn In DataGridView1.Columns
    31. Width = CType(Math.Floor(DColumn.Width / TotalWidth * TotalWidth * (e.MarginBounds.Width / TotalWidth)), Int16)
    32. Height = e.Graphics.MeasureString(DColumn.HeaderText, DColumn.InheritedStyle.Font, Width).Height + 12
    33. oColumnLefts.Add(Left)
    34. oColumnWidths.Add(Width)
    35. oColumnTypes.Add(DColumn.GetType)
    36. Left += Width
    37. Next
    38. End If
    40. Do While nRowPos < DataGridView1.Rows.Count
    41. Dim oRow As DataGridViewRow = DataGridView1.Rows(nRowPos)
    42. If Top + Height >= e.MarginBounds.Height + e.MarginBounds.Top Then
    43. 'DrawFooter(e, RowsPerPage)
    44. NewPage = True
    45. PageNo += 1
    46. e.HasMorePages = True
    47. Exit Sub
    48. Else
    50. If NewPage Then
    51. Top = e.MarginBounds.Top
    52. i = 0
    53. For Each oColumn As DataGridViewColumn In DataGridView1.Columns
    54. e.Graphics.FillRectangle(New SolidBrush(Drawing.Color.LightGray), New Rectangle(oColumnLefts(i), Top, oColumnWidths(i), Height))
    55. e.Graphics.DrawRectangle(Pens.Black, New Rectangle(oColumnLefts(i), Top, oColumnWidths(i), Height))
    56. e.Graphics.DrawString(oColumn.HeaderText, oColumn.InheritedStyle.Font, New SolidBrush(oColumn.InheritedStyle.ForeColor), New RectangleF(oColumnLefts(i), Top, oColumnWidths(i), Height), oStringFormat)
    57. i += 1
    58. Next
    59. NewPage = False
    60. End If
    61. Top += Height
    62. i = 0
    63. For Each oCell As DataGridViewCell In oRow.Cells
    65. If oColumnTypes(i) Is GetType(DataGridViewTextBoxColumn) Then
    66. e.Graphics.DrawString(oCell.Value.ToString, oCell.InheritedStyle.Font, New SolidBrush(oCell.InheritedStyle.ForeColor), New RectangleF(oColumnLefts(i), Top, oColumnWidths(i), Height), oStringFormat)
    68. ElseIf oColumnTypes(i) Is GetType(DataGridViewImageColumn) Then
    69. Dim oCellSize As Rectangle = New Rectangle(oColumnLefts(i), Top, oColumnWidths(i), Height)
    70. Dim oImageSize As Size = CType(oCell.Value, Image).Size
    71. e.Graphics.DrawImage(oCell.Value, New Rectangle(oColumnLefts(i) + CType(((oCellSize.Width - oImageSize.Width) / 3), Int32), Top + CType(((oCellSize.Height - oImageSize.Height) / 3), Int32), CType(oCell.Value, Image).Width, CType(oCell.Value, Image).Height))
    72. End If
    74. e.Graphics.DrawRectangle(Pens.Black, New Rectangle(oColumnLefts(i), Top, oColumnWidths(i), Height))
    75. i += 1
    76. Next
    77. End If
    79. nRowPos += 1
    80. RowsPerPage += 1
    81. Loop
    82. 'Footer(e, RowsPerPage)
    83. e.HasMorePages = True
    84. End Sub
    Bilder

    • Lagerliste_drucken.PNG

      122,53 kB, 1.056×619, 149 mal angesehen

    menorca schrieb:

    warum untersuchen wir nicht den Code, warum es mit der Seitenanzahl nicht richtig funzt
    Weil Du zunächst lernen musst, die Seitenzahl n mal richtig zu drucken.
    Alles zu seiner Zeit.
    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,

    wie geht es denn nun weiter...
    wie geht es mit der GridView....
    wie bereits erwähnt, eine Spalte ist eine Image Spalte
    Spoiler anzeigen

    Quellcode

    1. Private s As String = String.Empty
    2. ':::::
    3. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    4. For i = 0 To 150
    5. s += "blablablabla " & i.ToString & Environment.NewLine
    6. Next
    8. End Sub
    9. '::::::
    10. Private Sub PrintDocument1_PrintPage(ByVal sender As Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
    11. Dim AnzahlZeichen As Integer
    12. Dim AnzahlZeilen As Integer
    13. Dim strFormat As New StringFormat With {.Trimming = StringTrimming.Word}
    14. Dim Layout As New RectangleF(e.MarginBounds.Left, e.MarginBounds.Top, e.MarginBounds.Width, e.MarginBounds.Bottom)
    15. Dim LayoutArea As New SizeF(Layout.Width, Layout.Height - Me.Font.GetHeight(e.Graphics))
    16. e.Graphics.MeasureString(s, Me.Font, LayoutArea, strFormat, AnzahlZeichen, AnzahlZeilen)
    17. e.Graphics.DrawString(s.Substring(0, AnzahlZeichen), Me.Font, Brushes.Black, Layout, strFormat)
    18. If AnzahlZeichen < s.Length Then
    19. s = s.Substring(AnzahlZeichen)
    20. e.HasMorePages = True
    21. Else
    22. e.HasMorePages = False
    23. End If
    24. End Sub
    25. '::::::
    26. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    27. PrintPreviewDialog1.Document = PrintDocument1
    28. If PrintPreviewDialog1.ShowDialog = DialogResult.OK Then
    29. PrintDocument1.Print()
    30. End If
    31. End Sub

    menorca schrieb:

    wie geht es denn nun weiter...
    Du musst Deine Hausaufgaben machen, nicht ich.
    Benutz die Suchfunktion, da gibt es fertige Lösungen.
    Probiere nun, ein Rechteck (einen Rahmen) zu drucken und darin einen Text, der nur innerhalb des Rechtecks zu sehen sein soll.
    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 Forum.

    wer erklärt mir mal, warum das mit der Seitenanzahl nicht korrekt funktioniert, wo ist der Fehler im Code
    er macht alles wie ich es will, doch beim Seiten generieren nicht. ?(

    Spoiler anzeigen

    Quellcode

    1. Dim oStringFormat As StringFormat
    2. Dim TotalWidth As Integer
    3. Dim nRowPos As Integer = 0
    4. Dim NewPage As Boolean = True
    5. Dim DrawFooter As Boolean = True
    6. Dim PageNo As Integer = 1
    7. Dim Header As String = "Inhalt Lagerschrank"
    8. Dim prFont As New Font("Arial", 22, GraphicsUnit.Point)
    9. Dim oColumnLefts As New ArrayList
    10. Dim oColumnWidths As New ArrayList
    11. Dim oColumnTypes As New ArrayList
    13. Dim Height As Integer
    14. Dim Width As Integer
    15. Dim i As Integer
    16. Dim RowsPerPage As Integer
    17. Dim Top As Integer = e.MarginBounds.Top
    18. Dim Left As Integer = e.MarginBounds.Left
    20. TotalWidth = 0
    22. For Each DColumn As DataGridViewColumn In DataGridView1.Columns
    23. TotalWidth += DColumn.Width
    24. Next
    26. If PageNo = 1 Then
    27. For Each DColumn As DataGridViewColumn In DataGridView1.Columns
    28. Width = CType(Math.Floor(DColumn.Width / TotalWidth * TotalWidth * (e.MarginBounds.Width / TotalWidth)), Int16)
    29. Height = e.Graphics.MeasureString(DColumn.HeaderText, DColumn.InheritedStyle.Font, Width).Height + 30
    30. oColumnLefts.Add(Left)
    31. oColumnWidths.Add(Width)
    32. oColumnTypes.Add(DColumn.GetType)
    33. Left += Width
    34. Next
    35. End If
    37. Do While nRowPos < DataGridView1.Rows.Count
    38. Dim oRow As DataGridViewRow = DataGridView1.Rows(nRowPos)
    39. If Top + Height >= e.MarginBounds.Height + e.MarginBounds.Top Then
    40. 'DrawFooter(e, RowsPerPage)
    41. NewPage = True
    42. PageNo += 1
    43. e.HasMorePages = True
    44. Exit Sub
    45. Else
    47. If NewPage Then
    48. Top = e.MarginBounds.Top
    49. i = 0
    50. For Each oColumn As DataGridViewColumn In DataGridView1.Columns
    51. e.Graphics.DrawString(vbTab & Header, prFont, Brushes.Blue, 0, 40)
    52. e.Graphics.FillRectangle(New SolidBrush(Drawing.Color.LightGray), New Rectangle(oColumnLefts(i), Top, oColumnWidths(i), Height))
    53. e.Graphics.DrawRectangle(Pens.Black, New Rectangle(oColumnLefts(i), Top, oColumnWidths(i), Height))
    54. e.Graphics.DrawString(oColumn.HeaderText, oColumn.InheritedStyle.Font, New SolidBrush(oColumn.InheritedStyle.ForeColor), New RectangleF(oColumnLefts(i), Top, oColumnWidths(i), Height), oStringFormat)
    55. i += 1
    56. Next
    57. NewPage = False
    58. End If
    59. Top += Height
    60. i = 0
    61. For Each oCell As DataGridViewCell In oRow.Cells
    63. If oColumnTypes(i) Is GetType(DataGridViewTextBoxColumn) Then
    64. e.Graphics.DrawString(oCell.Value.ToString, oCell.InheritedStyle.Font, New SolidBrush(oCell.InheritedStyle.ForeColor), New RectangleF(oColumnLefts(i), Top, oColumnWidths(i), Height), oStringFormat)
    66. ElseIf oColumnTypes(i) Is GetType(DataGridViewImageColumn) Then
    67. Dim oCellSize As Rectangle = New Rectangle(oColumnLefts(i), Top, oColumnWidths(i), Height)
    68. Dim oImageSize As Size = CType(oCell.Value, Image).Size
    69. e.Graphics.DrawImage(oCell.Value, New Rectangle(oColumnLefts(i) + CType(((oCellSize.Width - oImageSize.Width) / 3), Int32), Top + CType(((oCellSize.Height - oImageSize.Height) / 3), Int32), CType(oCell.Value, Image).Width, CType(oCell.Value, Image).Height))
    70. End If
    72. e.Graphics.DrawRectangle(Pens.Black, New Rectangle(oColumnLefts(i), Top, oColumnWidths(i), Height))
    73. i += 1
    74. Next
    75. End If
    77. nRowPos += 1
    78. RowsPerPage += 1
    79. Loop
    80. 'Footer(e, RowsPerPage)
    81. e.HasMorePages = True

    menorca schrieb:

    wo ist der Fehler im Code

    VB.NET-Quellcode

    1. Dim PageNo As Integer = 1
    Pack die Zeile aus der Prozedur in die Klasse.
    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:

    in welche Klasse
    In die Klasse, der die Prozedur angehört, also einfach ca. 3 bis 5 Zeilen höher.
    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 Rod,

    habe ich doch richtig verstanden, oder ? nur funktioniert es immer noch nicht
    er will zu viele Seiten aufbauen

    Quellcode

    1. Dim oStringFormat As StringFormat
    2. Dim TotalWidth As Integer
    3. Dim nRowPos As Integer = 0
    4. Dim NewPage As Boolean = True
    5. Dim DrawFooter As Boolean = True
    6. Dim PageNo As Integer = 1
    7. Dim Header As String = "Inhalt Lagerschrank"
    8. Dim prFont As New Font("Arial", 22, GraphicsUnit.Point)
    9. Dim oColumnLefts As New ArrayList
    10. Dim oColumnWidths As New ArrayList
    11. Dim oColumnTypes As New ArrayList
    13. Dim Height As Integer
    14. Dim Width As Integer
    15. Dim i As Integer
    16. Dim RowsPerPage As Integer
    17. Dim Top As Integer = e.MarginBounds.Top
    18. Dim Left As Integer = e.MarginBounds.Left
    20. TotalWidth = 891
    22. If PageNo = 1 Then 'hierher Verschoben
    23. For Each DColumn As DataGridViewColumn In DataGridView1.Columns
    24. Width = CType(Math.Floor(DColumn.Width / TotalWidth * TotalWidth * (e.MarginBounds.Width / TotalWidth)), Int16)
    25. Height = e.Graphics.MeasureString(DColumn.HeaderText, DColumn.InheritedStyle.Font, Width).Height + 30
    26. oColumnLefts.Add(Left)
    27. oColumnWidths.Add(Width)
    28. oColumnTypes.Add(DColumn.GetType)
    29. Left += Width
    30. Next
    31. End If
    33. For Each DColumn As DataGridViewColumn In DataGridView1.Columns
    34. TotalWidth += DColumn.Width
    35. Next
    39. Do While nRowPos < DataGridView1.Rows.Count
    40. Dim oRow As DataGridViewRow = DataGridView1.Rows(nRowPos)
    41. If Top + Height >= e.MarginBounds.Height + e.MarginBounds.Top Then
    42. 'DrawFooter(e, RowsPerPage)
    43. NewPage = True
    44. PageNo += 1
    45. e.HasMorePages = True
    46. Exit Sub
    47. Else
    49. If NewPage Then
    50. Top = e.MarginBounds.Top
    51. i = 0
    52. For Each oColumn As DataGridViewColumn In DataGridView1.Columns
    53. e.Graphics.DrawString(vbTab & Header, prFont, Brushes.Blue, 0, 40)
    54. e.Graphics.FillRectangle(New SolidBrush(Drawing.Color.LightGray), New Rectangle(oColumnLefts(i), Top, oColumnWidths(i), Height))
    55. e.Graphics.DrawRectangle(Pens.Black, New Rectangle(oColumnLefts(i), Top, oColumnWidths(i), Height))
    56. e.Graphics.DrawString(oColumn.HeaderText, oColumn.InheritedStyle.Font, New SolidBrush(oColumn.InheritedStyle.ForeColor), New RectangleF(oColumnLefts(i), Top, oColumnWidths(i), Height), oStringFormat)
    57. i += 1
    58. Next
    59. NewPage = False
    60. End If
    61. Top += Height
    62. i = 0
    63. For Each oCell As DataGridViewCell In oRow.Cells
    65. If oColumnTypes(i) Is GetType(DataGridViewTextBoxColumn) Then
    66. e.Graphics.DrawString(oCell.Value.ToString, oCell.InheritedStyle.Font, New SolidBrush(oCell.InheritedStyle.ForeColor), New RectangleF(oColumnLefts(i), Top, oColumnWidths(i), Height), oStringFormat)
    68. ElseIf oColumnTypes(i) Is GetType(DataGridViewImageColumn) Then
    69. Dim oCellSize As Rectangle = New Rectangle(oColumnLefts(i), Top, oColumnWidths(i), Height)
    70. Dim oImageSize As Size = CType(oCell.Value, Image).Size
    71. e.Graphics.DrawImage(oCell.Value, New Rectangle(oColumnLefts(i) + CType(((oCellSize.Width - oImageSize.Width) / 3), Int32), Top + CType(((oCellSize.Height - oImageSize.Height) / 3), Int32), CType(oCell.Value, Image).Width, CType(oCell.Value, Image).Height))
    72. End If
    74. e.Graphics.DrawRectangle(Pens.Black, New Rectangle(oColumnLefts(i), Top, oColumnWidths(i), Height))
    75. i += 1
    76. Next
    77. End If
    79. nRowPos += 1
    80. RowsPerPage += 1
    81. Loop
    82. 'Footer(e, RowsPerPage)
    83. e.HasMorePages = True

    @menorca: Da machst Du zunächst ein kleines Testprogramm, mit dem Du genau dieses Problem untersuchst:
    Drucke 7 Seiten (PDF natürlich) und auf diesen Seiten nur die Seitennummer.
    Klassenvariablen: aktuelle Seitennummer
    DruckStart: diese = 0
    PrintDoc diese +=1 und HasMorePages entsprechend setzen.
    Feddich.
    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,

    solange "e.HasMorePages = True" am ende der Sub ohne eine Bedingung steht werden solange neue Seiten erstellt wie das Programm läuft bzw. bis der Durck abgebrochen wird. Also wenn alle Seiten erstellt sind muss "e.HasMorePages = False" gesetzt sein. Desweiteren würde ich empfehlen endlich mal mit Option Strict ON zu arbeiten.

    mfG

    Derfuhr

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

    Hallo,

    Danke für die Anwort, doch verwendest du einen anderen Code als den hier hochgeladenen?
    den Tip zu e.HasMorePages = false am Ende setzen, brachte auch nicht den Erfolg
    das mit der Option Strict ON nehme ich in Angriff

Facebook
Telefonspende