DGV drucken

echnaton · 19. September 2022, 21:26

ausgelagert aus Drucken mehrseitiger Dokumente ~VaporiZed

Hallo
Ich bin dabei die Daten aus meinem DGV zu drucken. Das Prg."PrintTable.zip" habe ich mir runtergeladen und soweit ich konnte nach meinen Bedürfnissen angepasst.
z.b. habe Ich das Zellpadding auf 25 gesetzt weil ich im DGV einige Spalten habe wo WordWrap auf true gesetzt ist um überlangen text in 2 oder mehrere Zeilen anzeigem zu lassen.
Alles klappt ausgezeichnet. Nur ein Problem dabei ist die Druckbreite. Die Tabell ragt auf beiden Seiten weit hinaus.
Kann man diese Problem beheben, wenn ja wie??
Ist es vielleicht auch möglich den einzelnen Columns einen festen Wert zuzuweisen damit der Ausdruck hinterher auf die Seite passt.
Die Druckränder der Seite sind auch ziemlich groß. (Siehe Bildanhang). Kann man an dieser Einstellung eventuel was ändern?
Viele Grüße und besten Dank schon mal im Vorraus

VB1963 · 19. September 2022, 23:53

Mit DGV-Drucken verstehe ich eigentlich immer, dass die gebundenen Daten des DGV zum Drucken gemeint sind...
Natürlich nur ein gebundenes DGV an eine Datenquelle ist da bei mir gemeint...
Dazu habe ich einmal ein Tutorial verfasst (Siehe Teil 3):
ReportViewer-Tutorial für Anfänger?
Vlt. hilft es dir weiter...

RodFromGermany · 20. September 2022, 08:52

@echnaton Sieh Dir mal das hier an: Drucken einer Tabelle

VaporiZed · 20. September 2022, 08:57

…was er bereits gemacht hat:

echnaton schrieb:

ausgelagert aus Drucken mehrseitiger Dokumente ~VaporiZed

Hallo
Ich bin dabei die Daten aus meinem DGV zu drucken. Das Prg."PrintTable.zip" habe ich mir runtergeladen und soweit ich konnte nach meinen Bedürfnissen angepasst.

RodFromGermany · 20. September 2022, 09:23

@VaporiZed Dann hat er möglicherweise nicht verstanden, wie die Breite der Spalten bestimmt wird oder hat das falsch überarbeitet.
@echnaton Starte Dein Projekt und mein Projekt nebeneinander und arbeite beide parallel zeilenweise ab, da solltest Du merken, wo was schiedf läuft:
Debuggen, Fehler finden und beseitigen
ansonsten hänge mal Dein Projekt bereinigt (ohne bin, obj- und vs-Ordner) gezippt an.

echnaton · 20. September 2022, 13:08

Ja Hallo

Ich habe schon verstanden das sich die Breite an den Colums orientiert (sogar die schriftgröße wird berücksichtigt.)
Ich habe Das "Printtable" Prog nochmal ausgetestet. Es scheint für mich nicht brauchbar-
Habe einfach mal im Original ""Printtable" ein paar Columns hinzugefügt und da besteht das gleiche Problem.
siehe Anhang_
Ich werde mal sehen wie ich eine Tabelle ausdrucken kann. Im zweifelsfall schaufel ich die Daten nach Excel und drucke von dort.
(Ich hätte aber lieber eine Lösung in .net)

also vielen Dank für eure Hinweise

RodFromGermany · 20. September 2022, 13:16

@echnaton

RodFromGermany schrieb:

ansonsten hänge mal Dein Projekt bereinigt (ohne bin, obj- und vs-Ordner) gezippt an.

echnaton · 20. September 2022, 15:36

Das ist wirklich schwierig. Habe in meinem VS jede Menge externer Steuerelemente (Form, Kalender Textboxen,Label usw.)
alles aus externen Dll
aber ich lege mal den aktuellen code bei. vielleicht kannst du ja da was mit anfangen-

Formload

VB.NET-Quellcode

#Region "Form"
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Me.AdressenTableAdapter.Fill(Me.DekoDataSet.Adressen)
Me.DatenTableAdapter.Fill(Me.DekoDataSet.Daten)
StyleManager.Style = eStyle.Office2007Blue
Kalender.AktDatum.ToString()
tbx_datum.Text = Kalender.AktDatum.ToString("dd.MM.yyyy")
DatenBindingSource.Filter = String.Format("Jahr= '{0}' and Monat= '{1}'", CStr(Kalender.AktDatum.Year), CStr(Kalender.AktDatum.Month))
Summe()
lbl_anzahl.Text = DekoDataSet.Daten.Rows.Count.ToString()
Me.PrintDocument1.DefaultPageSettings.Landscape = True
End Sub
Private Sub Form_FormClosing(ByVal sender As System.Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles MyBase.FormClosing
Me.SuspendLayout()
With Me.Controls
While .Count > 0 : .Item(.Count - 1).Dispose() : End While
End With
End Sub
#End Region

Drucken

VB.NET-Quellcode

#Region "Drucken"
Private ReadOnly SpaltenBreiten As New List(Of Single) ' Auflistung mit der Breite der einzelnen Spalten
Private DGVZeilenIndex As Integer ' Index der aktuell ausgegebenen DGV-Zeile
Private DGVDruckbreite As Single ' Breite der Tabelle
Private ReadOnly ZellPadding As Integer = 25 ' Rahmen um die Zelle
' Hintergrundfarben für Header und Zellen
Private ReadOnly HeaderColor As Color = Color.LightGray
Private ReadOnly RowColor As Color = Color.White
Private ReadOnly RowColorAlternate As Color = Color.LightYellow
' Flags zur Druckausgabe => CheckBoxen
Private CenterHorz As Boolean = True
Private PrintGrating As Boolean = True
Private ColumnsAutoSize As Boolean = False
Private AlternateColor As Boolean = True
' Befüllen des DGV
' Sofortiger Druck der Tabelle
Private Sub btn_Drucken_sofort_Click(sender As Object, e As EventArgs) Handles btn_Drucken_sofort.Click
Me.SpaltenBreitenErmitteln()
Me.PrintDocument1.Print()
End Sub
' Anzeige der Druckvorschau
Private Sub btn_vorschau_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_vorschau.Click
Me.SpaltenBreitenErmitteln()
Using dlg As New PrintPreviewDialog
dlg.Document = Me.PrintDocument1
dlg.WindowState = FormWindowState.Maximized
' 1 Seite anzeigen
dlg.PrintPreviewControl.Columns = 1
dlg.ShowDialog()
End Using
End Sub
' Ermitteln der Spaltenbreiten
Private Sub SpaltenBreitenErmitteln()
Dim ZellInhalt As String
Dim g As Graphics = DGV.CreateGraphics
Me.SpaltenBreiten.Clear()
Me.DGVDruckbreite = 0
If ColumnsAutoSize Then
For DGVSpalte = 0 To Me.DGV.Columns.Count - 1
' *** Breite das Textes im Spaltenkopf als Mindestbreite
ZellInhalt = DGV.Columns(DGVSpalte).HeaderText
Dim Breite = g.MeasureString(ZellInhalt, DGV.Font).Width + ZellPadding
SpaltenBreiten.Add(Breite)
' *** Jede Spalte komplett durchlaufen und größte Textbreite finden und speichern
For DGVZeile As Integer = 0 To DGV.Rows.Count - 1
' Zellinhalt holen und ggf. formatieren
ZellInhalt = DGV.Rows(DGVZeile).Cells(DGVSpalte).Value.ToString
If Not String.IsNullOrEmpty(DGV.Columns(DGVSpalte).DefaultCellStyle.Format) Then
ZellInhalt = Convert.ToDouble(ZellInhalt).ToString(DGV.Columns(DGVSpalte).DefaultCellStyle.Format)
End If
' Spaltenbreite feststellen und prüfen, ob größer als bisher und ggf. austauschen
Breite = g.MeasureString(ZellInhalt, DGV.Font).Width + ZellPadding
If SpaltenBreiten(DGVSpalte) < Breite Then
SpaltenBreiten(DGVSpalte) = Breite
End If
Next
DGVDruckbreite += SpaltenBreiten(DGVSpalte)
Next
Else
' Kein Spalten-AutoSizing
For DGVSpalte As Integer = 0 To DGV.Columns.Count - 1
Dim Breite = DGV.Columns(DGVSpalte).Width + ZellPadding
SpaltenBreiten.Add(Breite)
DGVDruckbreite += Breite
Next
End If
End Sub
' Vorbereiten des Ausdrucks, wird pro Druckvorgang genau einmalig aufgerufen
Private Sub PrintDocument1_BeginPrint(sender As Object, e As PrintEventArgs) Handles PrintDocument1.BeginPrint
' Ausgangssituation
DGVZeilenIndex = 0
End Sub
' der eigentliche Druck, wird für jede einzelne Seite aufgerufen
Private Sub PrintDocument1_PrintPage(ByVal sender As Object, ByVal e As Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
Dim cellBox As New RectangleF
Dim sf As New StringFormat
Dim borderLeft As Single
Dim borderRight As Single
Dim borderTop As Single
Dim borderBottom As Single
Dim PageWidth As Integer
Dim PageHeight As Decimal
Dim dgvMaxRowIndex As Integer
Dim dgvMaxColIndex As Integer
Dim content As String
Dim PosX As Integer
Dim PosY As Integer
Dim PosX1 As Integer
e.Graphics.SmoothingMode = Drawing2D.SmoothingMode.AntiAlias
e.Graphics.TextRenderingHint = Drawing.Text.TextRenderingHint.AntiAlias
' Höhe der Schrift ermitteln anhand der Schriftart(Font)
' mittels Mustertext
' und Höhe geringfügig erhöhen
Dim g As Graphics = DGV.CreateGraphics
' Ermittlung der Schrifthöhe (Text mit Ober- und Unterlängen)
' Font.Height ist nicht so hoch!
Dim TextHöhe = g.MeasureString("Bg", DGV.Font).Height + ZellPadding
With PrintDocument1.DefaultPageSettings
borderLeft = .Margins.Left ' Rand links
borderRight = .Margins.Right ' Rand rechts
borderTop = .Margins.Top ' Rand oben
borderBottom = .Margins.Bottom ' Rand unten
PageWidth = .Bounds.Width - CInt(borderRight + borderLeft) ' Druckbereich Breite
PageHeight = .Bounds.Height - CInt(borderTop + borderBottom) ' Druckbereich Höhe
e.Graphics.DrawRectangle(Pens.Black, borderLeft, borderTop, PageWidth, PageHeight) ' Rahmen um alles
End With
If CenterHorz Then ' Tabelle horizontal zentrieren
borderLeft = CSng(borderLeft + (PageWidth / 2)) - (DGVDruckbreite / 2)
End If
' Den höchsten ZeilenIndex des DataGridview ermitteln
' in Abhängigkeit davon, ob eine leere Zeile am Ende steht
If DGV.AllowUserToAddRows Then
dgvMaxRowIndex = DGV.Rows.Count - 2
Else
dgvMaxRowIndex = DGV.Rows.Count - 1
End If
dgvMaxColIndex = DGV.Columns.Count - 1
sf.Alignment = StringAlignment.Near
sf.LineAlignment = StringAlignment.Center
PosY = CInt(borderTop)
PosX = CInt(borderLeft)
' Spaltenköpfe drucken
For DruckSpalte = 0 To dgvMaxColIndex
cellBox = New RectangleF(PosX, PosY, SpaltenBreiten(DruckSpalte), TextHöhe)
content = DGV.Columns(DruckSpalte).HeaderText
e.Graphics.FillRectangle(New SolidBrush(HeaderColor), cellBox)
If PrintGrating = True Then
e.Graphics.DrawRectangle(Pens.Black, cellBox.X, cellBox.Y, cellBox.Width, cellBox.Height)
End If
e.Graphics.DrawString(content, DGV.Font, Brushes.Black, cellBox, sf)
PosX += CInt(SpaltenBreiten(DruckSpalte))
Next
' die aktuelle Ausgabeposition
PosX = CInt(borderLeft)
PosY = CInt(borderTop + TextHöhe)
' Zeilennummer auf der aktuellen Seite
Dim DruckZeile = 0
' Schleife über alle Zeilen der aktuellen Seite
Do
' Schleife über alle Spalten
For DruckSpalte = 0 To dgvMaxColIndex
Dim value = DGV.Rows(DruckZeile + DGVZeilenIndex).Cells(DruckSpalte).Value
content = If(value Is Nothing, "", value.ToString)
cellBox = New RectangleF(PosX, PosY, SpaltenBreiten(DruckSpalte), TextHöhe)
If Not String.IsNullOrEmpty(DGV.Columns(DruckSpalte).DefaultCellStyle.Format.ToString) Then
content = Convert.ToDouble(content).ToString(DGV.Columns(DruckSpalte).DefaultCellStyle.Format.ToString)
End If
If AlternateColor Then
' Zeilen abwechselnd einfärben
If ((DGVZeilenIndex + DruckZeile) Mod 2 = 0) Then
e.Graphics.FillRectangle(New SolidBrush(RowColor), cellBox)
Else
e.Graphics.FillRectangle(New SolidBrush(RowColorAlternate), cellBox)
End If
End If
If PrintGrating = True Then
e.Graphics.DrawRectangle(Pens.Black, cellBox.X, cellBox.Y, cellBox.Width, cellBox.Height)
End If
Select Case DGV.Columns(DruckSpalte).DefaultCellStyle.Alignment
Case DataGridViewContentAlignment.NotSet, DataGridViewContentAlignment.MiddleLeft
cellBox = New RectangleF(PosX, PosY, SpaltenBreiten(DruckSpalte), TextHöhe)
Case DataGridViewContentAlignment.MiddleRight
PosX1 = CInt(PosX + SpaltenBreiten(DruckSpalte) - (g.MeasureString(content, DGV.Font).Width))
cellBox = New RectangleF(PosX1, PosY, SpaltenBreiten(DruckSpalte), TextHöhe)
Case DataGridViewContentAlignment.MiddleCenter
PosX1 = CInt(PosX + (SpaltenBreiten(DruckSpalte) / 2) - (g.MeasureString(content, DGV.Font).Width / 2))
cellBox = New RectangleF(PosX1, PosY, SpaltenBreiten(DruckSpalte), TextHöhe)
Case Else
cellBox = New RectangleF(PosX, PosY, SpaltenBreiten(DruckSpalte), TextHöhe)
End Select
e.Graphics.DrawString(content, DGV.Font, Brushes.Black, cellBox, sf)
PosX += CInt(SpaltenBreiten(DruckSpalte))
Next
PosX = CInt(borderLeft)
PosY += CInt(TextHöhe)
DruckZeile += 1
Loop Until ((DruckZeile + DGVZeilenIndex) > (dgvMaxRowIndex)) OrElse ((PageHeight + borderTop) < PosY + TextHöhe)
If (DruckZeile + DGVZeilenIndex) > dgvMaxRowIndex Then
' Tabelle fertig gedruckt
e.HasMorePages = False
Else
' es sind weitere Zeilen zu drucken
e.HasMorePages = True
DGVZeilenIndex = DruckZeile + DGVZeilenIndex
End If
End Sub
#End Region

RodFromGermany · 20. September 2022, 16:05

echnaton schrieb:

aber ich lege mal den aktuellen code bei.

Fein.
Was soll ich damit?
Form_Load, 9 Zeilen Code => 15 Fehler.
==> Abbruch.

RodFromGermany schrieb:

ansonsten hänge mal Dein Projekt bereinigt (ohne bin, obj- und vs-Ordner) gezippt an.

echnaton · 20. September 2022, 16:44

sorry ..sind keine Fehler
ich sagte doch das sind externe Dll klar das es bei dir Fehler bringt bei mir nicht, -Strict is on

RodFromGermany · 20. September 2022, 16:51

echnaton schrieb:

sorry ..sind keine Fehler

Das ist mir klar.
Wenn Du möchtest, dass Dir geholfen wird, poste solchen Code, der bei uns problemlos compiliert.
Erstelle ein kleines Testprojekt, erfinde Ersatzvariablen, gib ihnen die richtigen Werte, so dass Dein Effekt reproduziert wird.

echnaton · 20. September 2022, 17:31

Ja, vielen Dank für deine Hilfe...
Ich gebe es auf. Ich werde es mal mit dem Reportviewer versuchen.
vielleicht ist es damit einfacher eine Tabelle nach meinen wünschen zu drucken.

also nochmals vielen Dank

PS: Den Fehler kann man ohne weiteres reproduzieren. Einfach deinen Code nehmen, ein paar zusätzliche columns dazulegen
Programm starten und schon ist der Fehler da...
MFG

RodFromGermany · 20. September 2022, 19:02

echnaton schrieb:

Einfach deinen Code nehmen, ein paar zusätzliche columns dazulegen Programm starten und schon ist der Fehler da...

OK, das ist ursprünglich nicht mein Code, ich habe ihn nur für das Forum aufbereitet.
Die Lösung wäre, den Druck nicht nur auf n Seiten untereinander, sondern noch auf m Seiten nebeneinander aufzuteilen.
Klar, das ist alles machbar. Aber ist es auch sinnvoll?
Wie Du schreibst, würdest Du die Daten nach Excel schaufeln und von dort drucken.
Wenn Du eine .NET-Lösung brauchst, musst Du Dir eine schaffen. Poste sie im Forum, und wenn sie ordentlich funktioniert, bekommst Du von mir einen Hilfreich!-Klick.
Erwarten, dass andere Deine Probleme lösen, ist keine gute Herangehensweise. Sorry.

DGV drucken

DGV drucken

echnaton schrieb:

RodFromGermany schrieb:

VB.NET-Quellcode

VB.NET-Quellcode

echnaton schrieb:

RodFromGermany schrieb:

echnaton schrieb:

echnaton schrieb:

Benutzer online 1

Ähnliche Themen

4 Benutzer haben hier geschrieben