Datagridview drucken ohne tabellen rahmen

erbse · 19. Juni 2011, 16:22

Hey liebe com,

wie die überschrift schon sagt will ich mein datagridview drucken ( das funzt perfekt ).
Nur was mich noch stört ist das man die tabelle sieht also damit meine ich die linien zwischen jeder spalte und zeile.
Wie bekommt man das beim drucken weg?

Lg erbse

EDIT: Habs selber rausbekommen.

Bernd · 19. Juni 2011, 19:34

könntest du die lösung auch den anderen mitteilen.

du erwartest eine antwort....
die die helfen wollten vieleicht auch.

lieben dank

erbse · 20. Juni 2011, 19:34

Was heist ich habs hinbekommen.
ich habe mir aus dem internet eine vorlage geholt zum drucken von dgv's
mit seiten umbruch usw.

Hier der code zum drucken der dgv's

VB.NET-Quellcode

' ==================================================
' Projekt: DataGridView drucken
'
' Autor: Peter Punkt
'
' Version: 01 - 24.06.2009
' ==================================================
Option Explicit On
Option Strict Off
Public Class Form1
Private SpaltenBreiten As New List(Of Integer) ' Auflistung mit der Breite der einzelnen Spalten
Private TextHöhe As Integer
Private DruckSpalte As Integer
Private DruckZeile As Integer
Private DGVSpaltenIndex As Integer
Private DGVZeilenIndex As Integer
Private DGVDruckbreite As Integer
Private ZellPadding As Integer = 5
Private Querformat As Boolean = True
Public HeaderColor As System.Drawing.Color = Color.LightGray
Public RowColor As System.Drawing.Color = Color.White
Public RowColorAlternate As System.Drawing.Color = Color.LightYellow
Public HZentrieren As Boolean = True
Public DruckeGitternetzlinien As Boolean = True
Public SpaltenAutoSize As Boolean = False
Private WithEvents PrintDoc As New System.Drawing.Printing.PrintDocument
Private PrintPrev As New System.Windows.Forms.PrintPreviewDialog
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) _
Handles MyBase.Load
For I As Integer = 1 To 50
dgv_Tabelle.Rows.Add("Peter", "Punkt-Maier", I)
Next
dgv_Tabelle.AllowUserToAddRows = False ' Für Testzwecke
PrintDoc.DefaultPageSettings.Landscape = Querformat
End Sub
' ********************************************************************************
Private Sub btn_Drucken_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
Handles btn_Drucken.Click
SpaltenBreitenErmitteln()
PrintDoc.Print()
End Sub
' ********************************************************************************
Private Sub btn_Vorschau_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
Handles btn_Vorschau.Click
SpaltenBreitenErmitteln()
PrintPrev.Document = PrintDoc
PrintPrev.WindowState = FormWindowState.Maximized
PrintPrev.ShowDialog()
End Sub
' ********************************************************************************
Sub SpaltenBreitenErmitteln()
Dim ZellInhalt As String
Dim Breite As Integer = 0
Dim g As Graphics = dgv_Tabelle.CreateGraphics
SpaltenBreiten.Clear()
DGVDruckbreite = 0
If SpaltenAutoSize = True Then
For DGVSpalte As Integer = 0 To dgv_Tabelle.Columns.Count - 1
' *** Breite das Textes im Spaltenkopf als Mindestbreite
ZellInhalt = dgv_Tabelle.Columns(DGVSpalte).HeaderText
Breite = g.MeasureString(ZellInhalt, dgv_Tabelle.Font).Width + ZellPadding
SpaltenBreiten.Add(Breite)
' *** Jede Spalte komplett durchlaufen und größte Textbreite finden und speichern
For DGVZeile As Integer = 0 To dgv_Tabelle.Rows.Count - 1
' Zellinhalt holen und ggf. formatieren
ZellInhalt = dgv_Tabelle.Rows(DGVZeile).Cells(DGVSpalte).Value
If dgv_Tabelle.Columns(DGVSpalte).DefaultCellStyle.Format.ToString <> String.Empty Then
ZellInhalt = CDbl(ZellInhalt).ToString(dgv_Tabelle.Columns(DGVSpalte).DefaultCellStyle.Format.ToString)
End If
' Spaltenbreite feststellen und prüfen, ob größer als bisher und ggf. austauschen
Breite = g.MeasureString(ZellInhalt, dgv_Tabelle.Font).Width + ZellPadding
If SpaltenBreiten(DGVSpalte) < Breite Then
SpaltenBreiten(DGVSpalte) = Breite
End If
DGVDruckbreite += Breite
Next
Next
Else ' Kein SpaltenAutoSizing
For DGVSpalte As Integer = 0 To dgv_Tabelle.Columns.Count - 1
Breite = dgv_Tabelle.Columns(DGVSpalte).Width + ZellPadding
SpaltenBreiten.Add(Breite)
DGVDruckbreite += Breite
Next
End If
End Sub
' ********************************************************************************
Sub PrintDoc_PrintPage(ByVal sender As Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) _
Handles PrintDoc.PrintPage
Dim ZellBox As New Rectangle
Dim sf As New StringFormat
Dim LRand As Decimal
Dim RRand As Decimal
Dim ROben As Decimal
Dim RUnten As Decimal
Dim PageWidth As Integer
Dim PageHeight As Decimal
Dim dgv_MaxZeilenIndex As Integer
Dim dgv_MaxSpaltenIndex As Integer
Dim dgv_Breite As Integer
Dim ZellInhalt 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 (mit Ober- und Unterlängen)
' * und Höhe geringfügig erhöhen
' *****
Dim g As Graphics = dgv_Tabelle.CreateGraphics
TextHöhe = g.MeasureString("Bg", dgv_Tabelle.Font).Height + ZellPadding ' Mustertext zur Ermittlung der Schrifthöhe
With PrintDoc.DefaultPageSettings
LRand = .Margins.Left ' Rand links
RRand = .Margins.Right ' Rand rechts
ROben = .Margins.Top ' Rand oben
RUnten = .Margins.Bottom ' Rand unten
PageWidth = .Bounds.Width - (RRand + LRand) ' Druckbereich Breite
PageHeight = .Bounds.Height - (ROben + RUnten) ' Druckbereich Höhe
e.Graphics.DrawRectangle(Pens.Black, LRand, ROben, PageWidth, PageHeight) ' Rahmen um alles
End With
PosY = ROben
If HZentrieren = True Then ' Tabelle horizontal zentrieren
LRand = (LRand + (PageWidth / 2)) - (DGVDruckbreite / 2)
End If
PosX = LRand
' * Den höchsten ZeilenIndex des DataGridview ermitteln
' * in Abhängigkeit davon, ob ein Zeile am Ende steht
If dgv_Tabelle.AllowUserToAddRows = True Then
dgv_MaxZeilenIndex = dgv_Tabelle.Rows.Count - 2
Else
dgv_MaxZeilenIndex = dgv_Tabelle.Rows.Count - 1
End If
dgv_MaxSpaltenIndex = dgv_Tabelle.Columns.Count - 1
sf.Alignment = StringAlignment.Near
sf.LineAlignment = StringAlignment.Center
' ***** Spaltenköpfe drucken
DruckSpalte = 0
Do
ZellBox = New Rectangle(PosX, PosY, SpaltenBreiten(DruckSpalte), TextHöhe)
ZellInhalt = dgv_Tabelle.Columns(DruckSpalte).HeaderText
e.Graphics.FillRectangle(New SolidBrush(HeaderColor), ZellBox)
If DruckeGitternetzlinien = True Then
e.Graphics.DrawRectangle(Pens.Black, ZellBox.X, ZellBox.Y, ZellBox.Width, ZellBox.Height)
End If
e.Graphics.DrawString(ZellInhalt, dgv_Tabelle.Font, Brushes.Black, ZellBox, sf)
PosX += SpaltenBreiten(DruckSpalte)
DruckSpalte += 1
Loop Until DruckSpalte > dgv_MaxSpaltenIndex
' ***** Zeileninhalte drucken
DruckZeile = 0
PosX = LRand
PosY = ROben + TextHöhe
Do
DruckSpalte = 0
Do
ZellInhalt = dgv_Tabelle.Rows(DruckZeile + DGVZeilenIndex).Cells(DruckSpalte).Value
ZellBox = New Rectangle(PosX, PosY, SpaltenBreiten(DruckSpalte), TextHöhe)
If dgv_Tabelle.Columns(DruckSpalte).DefaultCellStyle.Format.ToString <> String.Empty Then
ZellInhalt = CDbl(ZellInhalt).ToString(dgv_Tabelle.Columns(DruckSpalte).DefaultCellStyle.Format.ToString)
End If
If (DGVZeilenIndex + DruckZeile) Mod 2 = 0 Then ' Zeilen abwechselnd einfärben
e.Graphics.FillRectangle(New SolidBrush(RowColor), ZellBox)
Else
e.Graphics.FillRectangle(New SolidBrush(RowColorAlternate), ZellBox)
End If
If DruckeGitternetzlinien = True Then
e.Graphics.DrawRectangle(Pens.Black, ZellBox.X, ZellBox.Y, ZellBox.Width, ZellBox.Height)
End If
Select Case dgv_Tabelle.Columns(DruckSpalte).DefaultCellStyle.Alignment.ToString
Case "NotSet", "MiddleLeft"
ZellBox = New Rectangle(PosX, PosY, SpaltenBreiten(DruckSpalte), TextHöhe)
Case "MiddleRight"
PosX1 = PosX + SpaltenBreiten(DruckSpalte) - (g.MeasureString(ZellInhalt, dgv_Tabelle.Font).Width)
ZellBox = New Rectangle(PosX1, PosY, SpaltenBreiten(DruckSpalte), TextHöhe)
Case "MiddleCenter"
PosX1 = PosX + (SpaltenBreiten(DruckSpalte) / 2) - (g.MeasureString(ZellInhalt, dgv_Tabelle.Font).Width / 2)
ZellBox = New Rectangle(PosX1, PosY, SpaltenBreiten(DruckSpalte), TextHöhe)
Case Else
ZellBox = New Rectangle(PosX, PosY, SpaltenBreiten(DruckSpalte), TextHöhe)
End Select
e.Graphics.DrawString(ZellInhalt, dgv_Tabelle.Font, Brushes.Black, ZellBox, sf)
PosX += SpaltenBreiten(DruckSpalte)
DruckSpalte += 1
Loop Until (DruckSpalte > dgv_MaxSpaltenIndex)
PosX = LRand
PosY += TextHöhe
DruckZeile += 1
Loop Until ((DruckZeile + DGVZeilenIndex) > (dgv_MaxZeilenIndex)) _
OrElse ((PageHeight + ROben) < PosY + TextHöhe)
If (DruckZeile + DGVZeilenIndex) > (dgv_MaxZeilenIndex) Then
e.HasMorePages = False
DGVZeilenIndex = 0
DruckSpalte = 0
DruckZeile = 0
Exit Sub
Else
e.HasMorePages = True
DGVZeilenIndex = DruckZeile + DGVZeilenIndex
Exit Sub
End If
End Sub
End Class

und bei dem code einfach diese zeile hier

VB.NET-Quellcode

Public DruckeGitternetzlinien As Boolean = True

auf false setzen und fertig

lg

EDIT:

Ich habe aber noch folgendes problem also mein programm ist nun soweit das es folgendes drucken kann

da mein code zum drucken ja automatisch einen seiten umbruch meines dgv's macht wenn mehrere einträge sind
wird eine 2. seite angelegt.

so wie es ja sein soll, nur mein problem ist das auf der seite 2 dann auch wieder anschrift usw dasteht.

wie hier zu sehen ist.

Wie kann ich es machen das das firmen logo, die anschrift usw nur auf seite 1 ist und alle anderen seiten nur das dgv zu sehen ist.
Also soll praktisch ab seite 2 nur noch das dgv stehen mehr nicht.

Kann mir jemand helfen?

Lg

Bernd · 20. Juni 2011, 20:31

OK das ist die Classe die das DGV druckt.
Irgendwo Zeichnest du doch deinen Briefkopf und die Anschrift.
Dort solltest du fragen welche Seite und dann ggf. das Zeichnen der Anschrift unterdrücken.

erbse · 20. Juni 2011, 20:37

Meinen Briefkopf zeichne ich wie folgt:

VB.NET-Quellcode

Dim logo As Size = New Size(80, 20)
Dim gr As Graphics = e.Graphics
Dim printrect As Rectangle = e.MarginBounds
Dim oImage As Image = PictureBox1.Image
gr.DrawImage(oImage, logo) ' Firmen logo drucken
gr.DrawString("Koch & Wagner GbR Zimmerei & Holzbau Schulplatz 4 99869 Friemar", New Font("Arial", _
9, FontStyle.Regular), Brushes.Black, 80, 210)
gr.DrawString(Label2.Text, New Font("Arial", _
11, FontStyle.Regular), Brushes.Black, 80, 240)
gr.DrawString(Label3.Text, New Font("Arial", _
11, FontStyle.Regular), Brushes.Black, 80, 260)
gr.DrawString(Label4.Text, New Font("Arial", _
11, FontStyle.Regular), Brushes.Black, 140, 260)
gr.DrawString(Label5.Text, New Font("Arial", _
11, FontStyle.Regular), Brushes.Black, 80, 280)
gr.DrawString(Label6.Text, New Font("Arial", _
11, FontStyle.Regular), Brushes.Black, 80, 320)
gr.DrawString(Label7.Text, New Font("Arial", _
11, FontStyle.Regular), Brushes.Black, 140, 320)
gr.DrawString(Label8.Text, New Font("Arial", _
11, FontStyle.Regular), Brushes.Black, 650, 240)
gr.DrawString("Rechnung", New Font("Arial", _
16, FontStyle.Regular), Brushes.Red, 80, 420)

da ich noch alles teste steht über all noch label

wird noch geändert
aber die labels sind die anschrift usw

Wie mache ich diese abfrage? mit IF?
Vllt ein beispiel?

Thx
lg erbse

ErfinderDesRades · 20. Juni 2011, 20:41

erbse schrieb:

Wie kann ich es machen das das firmen logo, die anschrift usw nur auf seite 1 ist und alle anderen seiten nur das dgv zu sehen ist.

(du lieber himmel!)
drucke firmen logo, die anschrift usw halt nur auf seite 1 . Gibts da keinen Zähler oder sowas, beim PrintPage?

erbse · 20. Juni 2011, 20:47

Zähler? wo?

Bernd · 20. Juni 2011, 21:35

Zähler nicht aber

VB.NET-Quellcode

Public _Mehr_Seiten As Boolean = False
Private Sub Listen_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles Listen.PrintPage
If e.HasMorePages = True Then
MessageBox.Show("Ja mehr als eine Seite")
_Mehr_Seiten = True
End If
If _Mehr_Seiten = False Then
' Hier Zeichnen
End If

Bastel dir eine Variable und frag ab ob es mehr als eine Seite gibt.

erbse · 20. Juni 2011, 22:25

wow danke das funzt nun auch

ich stand nur bestimmt ne halbe stunde aufm schlauch bevor ich deinen code verstanden hab

egal besten dank

Lg

RodFromGermany · 21. Juni 2011, 08:56

Du solltest Dich mit den Eigenschaften von PrintPreviewDialog beschäftigen.
Außerdem sieht Option Strict Off in Deinem Quellcode außerordentlich schlecht aus.
Das kommt davon, wenn man Code aus dem Net kopiert und zu benutzen versucht, aber ihn nicht versteht.

erbse · 21. Juni 2011, 17:10

Ja das mach ich schon seit einigen tagen

und ich habe nicht einfach kopiert und bei mir eingefügt

Ich habe oben nur den originalen code gepostet wie er auf der seite war.

Meiner sieht wesentlich anders aus

Lg

Bernd · 22. Juni 2011, 20:23

Wenn du mehrere Seiten Drucken willst gibt es auch noch weitere möglichkeiten

VB.NET-Quellcode

Public _Mehr_Seiten As Boolean = False
Private Sub Listen_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles Listen.PrintPage
If e.HasMorePages = True Then
MessageBox.Show("Ja mehr als eine Seite")
_Mehr_Seiten = True
End If
If _Mehr_Seiten = False Then
' Hier Zeichnen
else
' Weitere Aktionen durchführen wenn die Letzte seite erreicht ist.
End If

erbse · 22. Juni 2011, 20:32

hm else hab ich jetz schon verbaut und zwar is das bei mir so

also _mehr_seiten ist auf false das is klar

dann wo bei dir steht ' Hier zeichnen
da wird mein briefkopf gezeichnet und der druckbereich vom dgv eingestellt

und wo bei dir steht ' Weitere Aktionen durchführen wenn die Letzte seite erreicht ist.
werden bei mir alle anderen seiten gezeichnet und zwar ohne briefkopf und der druckbereich vom dgv geändert damit er oben anfängt das dgv zu zeichnen.

Nur wie mach ich das das er ein 2. dgv druckt hinter das 1. bzw am ersten dran hängt?

lg erbse

Bernd · 22. Juni 2011, 20:36

Manchmal sieht man den Wald vor lauter Bäumen nicht mehr.

VB.NET-Quellcode

Public _Mehr_Seiten As Boolean = False
Private Sub Listen_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles Listen.PrintPage
If e.HasMorePages = True Then
MessageBox.Show("Ja mehr als eine Seite")
_Mehr_Seiten = True
End If
If _Mehr_Seiten = False Then
' Hier Zeichnen
else
' Weitere Aktionen durchführen wenn die Letzte seite erreicht ist.
End If
' Nun mache mal weiter mit dem Drucken, men aber ein anderes Formular.
End Sub

Datagridview drucken ohne tabellen rahmen

Datagridview drucken ohne tabellen rahmen

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

erbse schrieb:

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

Ähnliche Themen

4 Benutzer haben hier geschrieben