I have a Print option where i need to print the DataGridView. I’m using this code for Printing and for Print Preview.
Private Sub btnPrint_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPrint.Click
PrintDocument1.DefaultPageSettings.Landscape = True
If SetupThePrinting() Then PrintDocument1.Print()
End Sub
Private Sub btnPreview_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPreview.Click
If SetupThePrinting() Then
Dim MyPrintPreviewDialog As PrintPreviewDialog = New PrintPreviewDialog()
MyPrintPreviewDialog.Document = PrintDocument1
MyPrintPreviewDialog.ShowDialog()
End If
End Sub
Private Function SetupThePrinting() As Boolean
Dim MyPrintDialog As PrintDialog = New PrintDialog()
MyPrintDialog.AllowCurrentPage = False
MyPrintDialog.AllowPrintToFile = False
MyPrintDialog.AllowSelection = False
MyPrintDialog.AllowSomePages = True
MyPrintDialog.PrintToFile = False
MyPrintDialog.ShowHelp = False
MyPrintDialog.ShowNetwork = False
If MyPrintDialog.ShowDialog() <> System.Windows.Forms.DialogResult.OK Then Return False
PrintDocument1.DocumentName = "Sameta High School"
PrintDocument1.PrinterSettings = MyPrintDialog.PrinterSettings
'PrintDocument1.DefaultPageSettings = MyPrintDialog.PrinterSettings.DefaultPageSettings
PrintDocument1.DefaultPageSettings.Landscape = True
PrintDocument1.DefaultPageSettings.Margins = New Margins(10, 10, 10, 10)
'If MessageBox.Show("Do you want the report to be centered on the page", "InvoiceManager - Center on Page", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = Windows.Forms.DialogResult.Yes Then
' myDataGridViewPrinter = New DataGridViewPrinter(dgvDisplay, PrintDocument1, True, True, "Sameta High School", New Font("Tahoma", 18, FontStyle.Bold, GraphicsUnit.Point), Color.Black, True)
'Else
myDataGridViewPrinter = New DataGridViewPrinter(dgvDisplay, PrintDocument1, True, True, "Sameta High School" & vbCrLf & "Payroll Summary", New Font("Tahoma", 18, FontStyle.Bold, GraphicsUnit.Point), Color.Black, True)
'End If
Return True
End Function
End Class
Class DataGridViewPrinter
Private TheDataGridView As DataGridView ' The DataGridView Control which will be printed
Private ThePrintDocument As PrintDocument ' The PrintDocument to be used for printing
Private IsCenterOnPage As Boolean ' Determine if the report will be printed in the Top-Center of the page
Private IsWithTitle As Boolean ' Determine if the page contain title text
Private TheTitleText As String ' The title text to be printed in each page (if IsWithTitle is set to true)
Private TheTitleFont As Font ' The font to be used with the title text (if IsWithTitle is set to true)
Private TheTitleColor As Color ' The color to be used with the title text (if IsWithTitle is set to true)
Private IsWithPaging As Boolean ' Determine if paging is used
Private Shared CurrentRow As Integer = 0 ' A static parameter that keep track on which Row (in the DataGridView control) that should be printed
Private Shared PageNumber As Integer
Private PageWidth As Integer
Private PageHeight As Integer
Private LeftMargin As Integer
Private TopMargin As Integer
Private RightMargin As Integer
Private BottomMargin As Integer
Private CurrentY As Single ' A parameter that keep track on the y coordinate of the page, so the next object to be printed will start from this y coordinate
Private RowHeaderHeight As Single
Private RowsHeight As ArrayList
Private ColumnsWidth As ArrayList
Private TheDataGridViewWidth As Single
' Maintain a generic list to hold start/stop points for the column printing
' This will be used for wrapping in situations where the DataGridView will not fit on a single page
Private mColumnPoints As ArrayList
Private mColumnPointsWidth As ArrayList
Private mColumnPoint As Integer
'The class constructor.
Public Sub New(ByRef aDataGridView As DataGridView, ByRef aPrintDocument As PrintDocument, ByVal CenterOnPage As Boolean, ByVal WithTitle As Boolean, ByVal aTitleText As String, ByVal aTitleFont As Font, ByVal aTitleColor As Color, ByVal WithPaging As Boolean)
TheDataGridView = aDataGridView
ThePrintDocument = aPrintDocument
IsCenterOnPage = CenterOnPage
IsWithTitle = WithTitle
TheTitleText = aTitleText
TheTitleFont = aTitleFont
TheTitleColor = aTitleColor
IsWithPaging = WithPaging
PageNumber = 0
RowsHeight = New ArrayList
ColumnsWidth = New ArrayList
mColumnPoints = New ArrayList
mColumnPointsWidth = New ArrayList
'Calculating the PageWidth and the PageHeight.
If Not ThePrintDocument.DefaultPageSettings.Landscape Then
PageWidth = ThePrintDocument.DefaultPageSettings.PaperSize.Width
PageHeight = ThePrintDocument.DefaultPageSettings.PaperSize.Height
Else
PageHeight = ThePrintDocument.DefaultPageSettings.PaperSize.Width
PageWidth = ThePrintDocument.DefaultPageSettings.PaperSize.Height
End If
'Calculating the page margins.
LeftMargin = ThePrintDocument.DefaultPageSettings.Margins.Left
TopMargin = ThePrintDocument.DefaultPageSettings.Margins.Top
RightMargin = ThePrintDocument.DefaultPageSettings.Margins.Right
BottomMargin = ThePrintDocument.DefaultPageSettings.Margins.Bottom
'First, the current row to be printed is the first row in the DataGridView control.
CurrentRow = 0
End Sub
' The function that calculate the height of each row (including the header row), the width of each column (according to the longest text in all its cells including the header cell), and the whole DataGridView width
Private Sub Calculate(ByVal g As Graphics)
If PageNumber = 0 Then ' Just calculate once
Dim tmpSize As SizeF = New SizeF()
Dim tmpFont As Font
Dim tmpWidth As Single
Dim i As Integer
Dim j As Integer
TheDataGridViewWidth = 0
For i = 0 To TheDataGridView.Columns.Count - 1
tmpFont = TheDataGridView.ColumnHeadersDefaultCellStyle.Font
If tmpFont Is Nothing Then ' If there is no special HeaderFont style, then use the default DataGridView font style
tmpFont = TheDataGridView.DefaultCellStyle.Font
End If
tmpSize = g.MeasureString(TheDataGridView.Columns(i).HeaderText, tmpFont)
tmpWidth = tmpSize.Width
'tmpWidth = tmpSize.Height
RowHeaderHeight = tmpSize.Width
'RowHeaderHeight = 60
For j = 0 To TheDataGridView.Rows.Count - 1
tmpFont = TheDataGridView.Rows(j).DefaultCellStyle.Font
If tmpFont Is Nothing Then ' If the there is no special font style of the CurrentRow, then use the default one associated with the DataGridView control
tmpFont = TheDataGridView.DefaultCellStyle.Font
End If
tmpSize = g.MeasureString("Anything", tmpFont)
RowsHeight.Add(tmpSize.Height)
tmpSize = g.MeasureString(TheDataGridView.Rows(j).Cells(i).EditedFormattedValue.ToString(), tmpFont)
If (tmpSize.Width > tmpWidth) Then
tmpWidth = tmpSize.Width
End If
Next
If TheDataGridView.Columns(i).Visible Then
TheDataGridViewWidth += tmpWidth
End If
ColumnsWidth.Add(tmpWidth)
Next
' Define the start/stop column points based on the page width and the DataGridView Width
' We will use this to determine the columns which are drawn on each page and how wrapping will be handled
' By default, the wrapping will occurr such that the maximum number of columns for a page will be determine
Dim k As Integer
Dim mStartPoint As Integer = 0
For k = 0 To TheDataGridView.Columns.Count - 1
If TheDataGridView.Columns(k).Visible Then
mStartPoint = k
Exit For
End If
Next
Dim mEndPoint As Integer = TheDataGridView.Columns.Count
For k = TheDataGridView.Columns.Count - 1 To 0 Step -1
If TheDataGridView.Columns(k).Visible Then
mEndPoint = k + 1
Exit For
End If
Next
Dim mTempWidth As Single = TheDataGridViewWidth
Dim mTempPrintArea As Single = CType(PageWidth, Single) - CType(LeftMargin, Single) - CType(RightMargin, Single)
' We only care about handling where the total datagridview width is bigger then the print area
If TheDataGridViewWidth > mTempPrintArea Then
mTempWidth = 0.0
For k = 0 To TheDataGridView.Columns.Count - 1
If TheDataGridView.Columns(k).Visible Then
mTempWidth += ColumnsWidth(k)
' If the width is bigger than the page area, then define a new column print range
If (mTempWidth > mTempPrintArea) Then
mTempWidth -= ColumnsWidth(k)
mColumnPoints.Add(New Integer() {mStartPoint, mEndPoint})
mColumnPointsWidth.Add(mTempWidth)
mStartPoint = k
mTempWidth = ColumnsWidth(k)
End If
End If
' Our end point is actually one index above the current index
mEndPoint = k + 1
Next
End If
' Add the last set of columns
mColumnPoints.Add(New Integer() {mStartPoint, mEndPoint})
mColumnPointsWidth.Add(mTempWidth)
mColumnPoint = 0
End If
End Sub
'The funtion that print the title and the header row.
' The funtion that print the title, page number, and the header row
Private Sub DrawHeader(ByVal g As Graphics)
CurrentY = CType(TopMargin, Single)
' Printing the page number (if isWithPaging is set to true)
If IsWithPaging Then
PageNumber += 1
Dim PageString As String = "Page " + PageNumber.ToString()
Dim PageStringFormat As StringFormat = New StringFormat()
PageStringFormat.Trimming = StringTrimming.Word
PageStringFormat.FormatFlags = StringFormatFlags.NoWrap Or StringFormatFlags.LineLimit Or StringFormatFlags.NoClip
PageStringFormat.Alignment = StringAlignment.Far
Dim PageStringFont As Font = New Font("Tahoma", 8, FontStyle.Regular, GraphicsUnit.Point)
Dim PageStringRectangle As RectangleF = New RectangleF(CType(LeftMargin, Single), CurrentY, CType(PageWidth, Single) - CType(RightMargin, Single) - CType(LeftMargin, Single), g.MeasureString(PageString, PageStringFont).Height)
g.DrawString(PageString, PageStringFont, New SolidBrush(Color.Black), PageStringRectangle, PageStringFormat)
CurrentY += g.MeasureString(PageString, PageStringFont).Height
End If
' Printing the title (if IsWithTitle is set to true)
If IsWithTitle Then
Dim TitleFormat As StringFormat = New StringFormat()
TitleFormat.Trimming = StringTrimming.Word
TitleFormat.FormatFlags = StringFormatFlags.NoWrap Or StringFormatFlags.LineLimit Or StringFormatFlags.NoClip
If IsCenterOnPage Then
TitleFormat.Alignment = StringAlignment.Center
Else
TitleFormat.Alignment = StringAlignment.Near
End If
Dim TitleRectangle As RectangleF = New RectangleF(CType(LeftMargin, Single), CurrentY, CType(PageWidth, Single) - CType(RightMargin, Single) - CType(LeftMargin, Single), g.MeasureString(TheTitleText, TheTitleFont).Height)
g.DrawString(TheTitleText, TheTitleFont, New SolidBrush(TheTitleColor), TitleRectangle, TitleFormat)
CurrentY += g.MeasureString(TheTitleText, TheTitleFont).Height
End If
' Calculating the starting x coordinate that the printing process will start from
Dim CurrentX As Single = CType(LeftMargin, Single)
If IsCenterOnPage Then
CurrentX += ((CType(PageWidth, Single) - CType(RightMargin, Single) - CType(LeftMargin, Single)) - mColumnPointsWidth(mColumnPoint)) / 2.0
End If
' Setting the HeaderFore style
Dim HeaderForeColor As Color = TheDataGridView.ColumnHeadersDefaultCellStyle.ForeColor
If HeaderForeColor.IsEmpty Then ' If there is no special HeaderFore style, then use the default DataGridView style
HeaderForeColor = TheDataGridView.DefaultCellStyle.ForeColor
End If
Dim HeaderForeBrush As SolidBrush = New SolidBrush(HeaderForeColor)
' Setting the HeaderBack style
Dim HeaderBackColor As Color = TheDataGridView.ColumnHeadersDefaultCellStyle.BackColor
If (HeaderBackColor.IsEmpty) Then ' If there is no special HeaderBack style, then use the default DataGridView style
HeaderBackColor = TheDataGridView.DefaultCellStyle.BackColor
End If
Dim HeaderBackBrush As SolidBrush = New SolidBrush(HeaderBackColor)
' Setting the LinePen that will be used to draw lines and rectangles (derived from the GridColor property of the DataGridView control)
Dim TheLinePen As Pen = New Pen(TheDataGridView.GridColor, 1)
' Setting the HeaderFont style
Dim HeaderFont As Font = TheDataGridView.ColumnHeadersDefaultCellStyle.Font
If HeaderFont Is Nothing Then ' If there is no special HeaderFont style, then use the default DataGridView font style
HeaderFont = TheDataGridView.DefaultCellStyle.Font
End If
' Calculating and drawing the HeaderBounds
Dim HeaderBounds As RectangleF = New RectangleF(CurrentX, CurrentY, mColumnPointsWidth(mColumnPoint), RowHeaderHeight)
g.FillRectangle(HeaderBackBrush, HeaderBounds)
' Setting the format that will be used to print each cell of the header row
Dim CellFormat As StringFormat = New StringFormat()
CellFormat.Trimming = StringTrimming.Word
CellFormat.FormatFlags = StringFormatFlags.NoWrap Or StringFormatFlags.LineLimit Or StringFormatFlags.NoClip
' Printing each visible cell of the header row
Dim CellBounds As RectangleF
Dim ColumnWidth As Single
Dim i As Integer
For i = CType(mColumnPoints(mColumnPoint).GetValue(0), Integer) To CType(mColumnPoints(mColumnPoint).GetValue(1), Integer) - 1
If Not TheDataGridView.Columns(i).Visible Then Continue For ' If the column is not visible then ignore this iteration
ColumnWidth = ColumnsWidth(i)
' Check the CurrentCell alignment and apply it to the CellFormat
If (TheDataGridView.ColumnHeadersDefaultCellStyle.Alignment.ToString().Contains("Right")) Then
CellFormat.Alignment = StringAlignment.Far
ElseIf (TheDataGridView.ColumnHeadersDefaultCellStyle.Alignment.ToString().Contains("Center")) Then
CellFormat.Alignment = StringAlignment.Center
Else
CellFormat.Alignment = StringAlignment.Near
End If
CellBounds = New RectangleF(CurrentX, CurrentY, ColumnWidth, RowHeaderHeight)
' Printing the cell text
g.DrawString(TheDataGridView.Columns(i).HeaderText, HeaderFont, HeaderForeBrush, CellBounds, CellFormat)
' Drawing the cell bounds
If TheDataGridView.RowHeadersBorderStyle <> DataGridViewHeaderBorderStyle.None Then ' Draw the cell border only if the HeaderBorderStyle is not None
g.DrawRectangle(TheLinePen, CurrentX, CurrentY, ColumnWidth, RowHeaderHeight)
End If
CurrentX += ColumnWidth
Next
CurrentY += RowHeaderHeight
End Sub
' The function that print a bunch of rows that fit in one page
' When it returns true, meaning that there are more rows still not printed, so another PagePrint action is required
' When it returns false, meaning that all rows are printed (the CureentRow parameter reaches the last row of the DataGridView control) and no further PagePrint action is required
Private Function DrawRows(ByVal g As Graphics) As Boolean
' Setting the LinePen that will be used to draw lines and rectangles (derived from the GridColor property of the DataGridView control)
Dim TheLinePen As Pen = New Pen(TheDataGridView.GridColor, 1)
' The style paramters that will be used to print each cell
Dim RowFont As Font
Dim RowForeColor As Color
Dim RowBackColor As Color
Dim RowForeBrush As SolidBrush
Dim RowBackBrush As SolidBrush
Dim RowAlternatingBackBrush As SolidBrush
' Setting the format that will be used to print each cell
Dim CellFormat As StringFormat = New StringFormat()
CellFormat.Trimming = StringTrimming.Word
CellFormat.FormatFlags = StringFormatFlags.NoWrap Or StringFormatFlags.LineLimit
' Printing each visible cell
Dim RowBounds As RectangleF
Dim CurrentX As Single
Dim ColumnWidth As Single
While CurrentRow < TheDataGridView.Rows.Count
If TheDataGridView.Rows(CurrentRow).Visible Then ' Print the cells of the CurrentRow only if that row is visible
' Setting the row font style
RowFont = TheDataGridView.Rows(CurrentRow).DefaultCellStyle.Font
If RowFont Is Nothing Then ' If the there is no special font style of the CurrentRow, then use the default one associated with the DataGridView control
RowFont = TheDataGridView.DefaultCellStyle.Font
End If
' Setting the RowFore style
RowForeColor = TheDataGridView.Rows(CurrentRow).DefaultCellStyle.ForeColor
If RowForeColor.IsEmpty Then ' If the there is no special RowFore style of the CurrentRow, then use the default one associated with the DataGridView control
RowForeColor = TheDataGridView.DefaultCellStyle.ForeColor
End If
RowForeBrush = New SolidBrush(RowForeColor)
' Setting the RowBack (for even rows) and the RowAlternatingBack (for odd rows) styles
RowBackColor = TheDataGridView.Rows(CurrentRow).DefaultCellStyle.BackColor
If RowBackColor.IsEmpty Then ' If the there is no special RowBack style of the CurrentRow, then use the default one associated with the DataGridView control
RowBackBrush = New SolidBrush(TheDataGridView.DefaultCellStyle.BackColor)
RowAlternatingBackBrush = New SolidBrush(TheDataGridView.AlternatingRowsDefaultCellStyle.BackColor)
Else ' If the there is a special RowBack style of the CurrentRow, then use it for both the RowBack and the RowAlternatingBack styles
RowBackBrush = New SolidBrush(RowBackColor)
RowAlternatingBackBrush = New SolidBrush(RowBackColor)
End If
' Calculating the starting x coordinate that the printing process will start from
CurrentX = CType(LeftMargin, Single)
If (IsCenterOnPage) Then
CurrentX += ((CType(PageWidth, Single) - CType(RightMargin, Single) - CType(LeftMargin, Single)) - mColumnPointsWidth(mColumnPoint)) / 2.0
End If
' Calculating the entire CurrentRow bounds
RowBounds = New RectangleF(CurrentX, CurrentY, mColumnPointsWidth(mColumnPoint), RowsHeight(CurrentRow))
' Filling the back of the CurrentRow
If CurrentRow Mod 2 = 0 Then
g.FillRectangle(RowBackBrush, RowBounds)
Else
g.FillRectangle(RowAlternatingBackBrush, RowBounds)
End If
' Printing each visible cell of the CurrentRow
Dim CurrentCell As Integer
For CurrentCell = CType(mColumnPoints(mColumnPoint).GetValue(0), Integer) To CType(mColumnPoints(mColumnPoint).GetValue(1), Integer) - 1
If Not TheDataGridView.Columns(CurrentCell).Visible Then Continue For ' If the cell is belong to invisible column, then ignore this iteration
' Check the CurrentCell alignment and apply it to the CellFormat
If TheDataGridView.Columns(CurrentCell).DefaultCellStyle.Alignment.ToString().Contains("Right") Then
CellFormat.Alignment = StringAlignment.Far
ElseIf TheDataGridView.Columns(CurrentCell).DefaultCellStyle.Alignment.ToString().Contains("Center") Then
CellFormat.Alignment = StringAlignment.Center
Else
CellFormat.Alignment = StringAlignment.Near
End If
ColumnWidth = ColumnsWidth(CurrentCell)
Dim CellBounds As RectangleF = New RectangleF(CurrentX, CurrentY, ColumnWidth, RowsHeight(CurrentRow))
' Printing the cell text
g.DrawString(TheDataGridView.Rows(CurrentRow).Cells(CurrentCell).EditedFormattedValue.ToString(), RowFont, RowForeBrush, CellBounds, CellFormat)
' Drawing the cell bounds
If TheDataGridView.CellBorderStyle <> DataGridViewCellBorderStyle.None Then ' Draw the cell border only if the CellBorderStyle is not None
g.DrawRectangle(TheLinePen, CurrentX, CurrentY, ColumnWidth, RowsHeight(CurrentRow))
End If
CurrentX += ColumnWidth
Next
CurrentY += RowsHeight(CurrentRow)
' Checking if the CurrentY is exceeds the page boundries
' If so then exit the function and returning true meaning another PagePrint action is required
If CType(CurrentY, Integer) > (PageHeight - TopMargin - BottomMargin) Then
CurrentRow += 1
Return True
End If
End If
CurrentRow += 1
End While
CurrentRow = 0
mColumnPoint += 1 ' Continue to print the next group of columns
If mColumnPoint = mColumnPoints.Count Then ' Which means all columns are printed
mColumnPoint = 0
Return False
Else
Return True
End If
End Function
'The method that calls the functions that print the Title (if IsWithTitle is set to true), header row, and bunch of rows that fit in one page.
Public Function DrawDataGridView(ByRef g As Graphics) As Boolean
Try
Calculate(g)
DrawHeader(g)
Dim bContinue As Boolean = DrawRows(g)
Return bContinue
Catch ex As Exception
MessageBox.Show("Operation failed: " + ex.Message.ToString(), Application.ProductName + " - Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
Return False
End Try
End Function
End Class
I have 23 fields showing in datagridview. As the last 9 columns header
is long, the datagridview is not fitting inside 1 page (not showing all 23 fields in one single page). Is there a way i can "Text Wrap" the
top header column and lock in the width, then I should print across
one page perfectly.
If you know how i can "Text Wrap" the top header column and lock in the
width to print across one page, please help me. If you can provide an
example, that will be so helpful.
Thanks alot in advance.