This example demonstrates printing a DataGrid control.

Example

private void printGrid_Click(System.Object sender, System.EventArgs e) { printDocument1.Print(); } private void printDocument1_PrintPage(System.Object sender, System.Drawing.Printing.PrintPageEventArgs e) { PaintEventArgs myPaintArgs = new PaintEventArgs(e.Graphics, new Rectangle(new Point(0, 0), this.Size)); this.InvokePaint(dataGrid1, myPaintArgs); 






 
Is it planned to have this work for the DataGridView?
I have tried to use it but it printed only the Grid, omitting the contents of the cells.
Does the code in the above example work in VS 2005? That is, maybe I should copy
the contents of my DataGridView to a DataGrid and print from there!

For anyone needing to know how to start printing a grid, here is some code I whipped up after not finding any samples I could heist from someone else.  I'm sure there are better ways to do this, but like I said, this is a start.  Probably why MS doesn't offer a print function or component is because there is truly an unlimited number of configurations for a print setup.  To achieve most of them isn't even rocket science, the beauty of VB.NET.  Cheers.

    Private oStringFormat As StringFormat
    Private oStringFormatComboBox As StringFormat
    Private oButton As Button
    Private oCheckbox As CheckBox
    Private oComboBox As ComboBox

    Private nTotalWidth As Int16
    Private nRowPos As Int16
    Private NewPage As Boolean
    Private nPageNo As Int16
    Private Header As String = "Header Test"
    Private sUserName As String = "Will"

    Private Sub PrintDocument1_BeginPrint(ByVal sender As Object, ByVal e As System.Drawing.Printing.PrintEventArgs) Handles PrintDocument1.BeginPrint

        oStringFormat = New StringFormat
        oStringFormat.Alignment = StringAlignment.Near
        oStringFormat.LineAlignment = StringAlignment.Center
        oStringFormat.Trimming = StringTrimming.EllipsisCharacter

        oStringFormatComboBox = New StringFormat
        oStringFormatComboBox.LineAlignment = StringAlignment.Center
        oStringFormatComboBox.FormatFlags = StringFormatFlags.NoWrap
        oStringFormatComboBox.Trimming = StringTrimming.EllipsisCharacter

        oButton = New Button
        oCheckbox = New CheckBox
        oComboBox = New ComboBox

        nTotalWidth = 0
        For Each oColumn As DataGridViewColumn In DataGridView1.Columns

            nTotalWidth += oColumn.Width

        Next
        nPageNo = 1
        NewPage = True
        nRowPos = 0

    End Sub

    Private Sub PrintDocument1_PrintPage(ByVal sender As Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage

            Static oColumnLefts As New ArrayList
            Static oColumnWidths As New ArrayList
            Static oColumnTypes As New ArrayList
            Static nHeight As Int16

            Dim nWidth, i, nRowsPerPage As Int16
            Dim nTop As Int16 = e.MarginBounds.Top
            Dim nLeft As Int16 = e.MarginBounds.Left

            If nPageNo = 1 Then

                For Each oColumn As DataGridViewColumn In DataGridView1.Columns

                    nWidth = CType(Math.Floor(oColumn.Width / nTotalWidth * nTotalWidth * (e.MarginBounds.Width / nTotalWidth)), Int16)

                    nHeight = e.Graphics.MeasureString(oColumn.HeaderText, oColumn.InheritedStyle.Font, nWidth).Height + 11

                    oColumnLefts.Add(nLeft)
                    oColumnWidths.Add(nWidth)
                    oColumnTypes.add(oColumn.GetType)
                    nLeft += nWidth

                Next

            End If

            Do While nRowPos < DataGridView1.Rows.Count - 1

                Dim oRow As DataGridViewRow = DataGridView1.Rows(nRowPos)

                If nTop + nHeight >= e.MarginBounds.Height + e.MarginBounds.Top Then

                    DrawFooter(e, nRowsPerPage)

                    NewPage = True
                    nPageNo += 1
                    e.HasMorePages = True
                    Exit Sub

                Else

                    If NewPage Then

                        ' Draw Header
                        e.Graphics.DrawString(Header, New Font(DataGridView1.Font, FontStyle.Bold), Brushes.Black, e.MarginBounds.Left, e.MarginBounds.Top - e.Graphics.MeasureString(Header, New Font(DataGridView1.Font, FontStyle.Bold), e.MarginBounds.Width).Height - 13)

                        ' Draw Columns
                        nTop = e.MarginBounds.Top
                        i = 0
                        For Each oColumn As DataGridViewColumn In DataGridView1.Columns

                            e.Graphics.FillRectangle(New SolidBrush(Drawing.Color.LightGray), New Rectangle(oColumnLefts(i), nTop, oColumnWidths(i), nHeight))
                            e.Graphics.DrawRectangle(Pens.Black, New Rectangle(oColumnLefts(i), nTop, oColumnWidths(i), nHeight))
                            e.Graphics.DrawString(oColumn.HeaderText, oColumn.InheritedStyle.Font, New SolidBrush(oColumn.InheritedStyle.ForeColor), New RectangleF(oColumnLefts(i), nTop, oColumnWidths(i), nHeight), oStringFormat)
                            i += 1

                        Next
                        NewPage = False

                    End If

                    nTop += nHeight
                    i = 0
                    For Each oCell As DataGridViewCell In oRow.Cells

                        If oColumnTypes(i) Is GetType(DataGridViewTextBoxColumn) OrElse oColumnTypes(i) Is GetType(DataGridViewLinkColumn) Then

                            e.Graphics.DrawString(oCell.Value.ToString, oCell.InheritedStyle.Font, New SolidBrush(oCell.InheritedStyle.ForeColor), New RectangleF(oColumnLefts(i), nTop, oColumnWidths(i), nHeight), oStringFormat)

                        ElseIf oColumnTypes(i) Is GetType(DataGridViewButtonColumn) Then

                            oButton.Text = oCell.Value.ToString
                            oButton.Size = New Size(oColumnWidths(i), nHeight)
                            Dim oBitmap As New Bitmap(oButton.Width, oButton.Height)
                            oButton.DrawToBitmap(oBitmap, New Rectangle(0, 0, oBitmap.Width, oBitmap.Height))
                            e.Graphics.DrawImage(oBitmap, New Point(oColumnLefts(i), nTop))

                        ElseIf oColumnTypes(i) Is GetType(DataGridViewCheckBoxColumn) Then

                            oCheckbox.Size = New Size(14, 14)
                            oCheckbox.Checked = CType(oCell.Value, Boolean)
                            Dim oBitmap As New Bitmap(oColumnWidths(i), nHeight)
                            Dim oTempGraphics As Graphics = Graphics.FromImage(oBitmap)
                            oTempGraphics.FillRectangle(Brushes.White, New Rectangle(0, 0, oBitmap.Width, oBitmap.Height))
                            oCheckbox.DrawToBitmap(oBitmap, New Rectangle(CType((oBitmap.Width - oCheckbox.Width) / 2, Int32), CType((oBitmap.Height - oCheckbox.Height) / 2, Int32), oCheckbox.Width, oCheckbox.Height))
                            e.Graphics.DrawImage(oBitmap, New Point(oColumnLefts(i), nTop))

                        ElseIf oColumnTypes(i) Is GetType(DataGridViewComboBoxColumn) Then

                            oComboBox.Size = New Size(oColumnWidths(i), nHeight)
                            Dim oBitmap As New Bitmap(oComboBox.Width, oComboBox.Height)
                            oComboBox.DrawToBitmap(oBitmap, New Rectangle(0, 0, oBitmap.Width, oBitmap.Height))
                            e.Graphics.DrawImage(oBitmap, New Point(oColumnLefts(i), nTop))
                            e.Graphics.DrawString(oCell.Value.ToString, oCell.InheritedStyle.Font, New SolidBrush(oCell.InheritedStyle.ForeColor), New RectangleF(oColumnLefts(i) + 1, nTop, oColumnWidths(i) - 16, nHeight), oStringFormatComboBox)

                        ElseIf oColumnTypes(i) Is GetType(DataGridViewImageColumn) Then

                            Dim oCellSize As Rectangle = New Rectangle(oColumnLefts(i), nTop, oColumnWidths(i), nHeight)
                            Dim oImageSize As Size = CType(oCell.Value, Image).Size
                            e.Graphics.DrawImage(oCell.Value, New Rectangle(oColumnLefts(i) + CType(((oCellSize.Width - oImageSize.Width) / 2), Int32), nTop + CType(((oCellSize.Height - oImageSize.Height) / 2), Int32), CType(oCell.Value, Image).Width, CType(oCell.Value, Image).Height))

                        End If

                        e.Graphics.DrawRectangle(Pens.Black, New Rectangle(oColumnLefts(i), nTop, oColumnWidths(i), nHeight))

                        i += 1

                    Next

                End If

                nRowPos += 1
                nRowsPerPage += 1

            Loop

            DrawFooter(e, nRowsPerPage)

            e.HasMorePages = False

    End Sub

    Private Sub DrawFooter(ByVal e As System.Drawing.Printing.PrintPageEventArgs, ByVal RowsPerPage As Int32)

        Dim sPageNo As String = nPageNo.ToString + " of " + Math.Ceiling(DataGridView1.Rows.Count / RowsPerPage).ToString

        ' Right Align - User Name
        e.Graphics.DrawString(sUserName, DataGridView1.Font, Brushes.Black, e.MarginBounds.Left + (e.MarginBounds.Width - e.Graphics.MeasureString(sPageNo, DataGridView1.Font, e.MarginBounds.Width).Width), e.MarginBounds.Top + e.MarginBounds.Height + 7)

        ' Left Align - Date/Time
        e.Graphics.DrawString(Now.ToLongDateString + " " + Now.ToShortTimeString, DataGridView1.Font, Brushes.Black, e.MarginBounds.Left, e.MarginBounds.Top + e.MarginBounds.Height + 7)

        ' Center  - Page No. Info
        e.Graphics.DrawString(sPageNo, DataGridView1.Font, Brushes.Black, e.MarginBounds.Left + (e.MarginBounds.Width - e.Graphics.MeasureString(sPageNo, DataGridView1.Font, e.MarginBounds.Width).Width) / 2, e.MarginBounds.Top + e.MarginBounds.Height + 31)

    End Sub

Will,

This is great code. Thank you!!! This works great for a straight print. I've played around with the code but can't seem to get it to work with print preview or a printdialog control. Do you have any code or have any idea on how to modofy your code so that it works with either control???

Thanks,

VB-Bandit

VB-Bandit,

The code above creates the PrintDocument now all you need to do is use it, the following code with give you a print preview!

Dim dlg As New PrintPreviewDialog()

Thanks Heaps for your code Will!!!

BTW, your code drops off the last line, it's fixed now as below:

Private nTotalWidth As Int16
Private nRowPos As Int16
Private NewPage As Boolean
Private nPageNo As Int16
Private Header As String = "Header Test"
Private sUserName As String = "Will"

Private Sub PrintDocument1_BeginPrint(ByVal sender As Object, ByVal e As System.Drawing.Printing.PrintEventArgs) Handles PrintDocument1.BeginPrint

oStringFormat = New StringFormat
oStringFormat.Alignment = StringAlignment.Near
oStringFormat.LineAlignment = StringAlignment.Center
oStringFormat.Trimming = StringTrimming.EllipsisCharacter

oStringFormatComboBox = New StringFormat
oStringFormatComboBox.LineAlignment = StringAlignment.Center
oStringFormatComboBox.FormatFlags = StringFormatFlags.NoWrap
oStringFormatComboBox.Trimming = StringTrimming.EllipsisCharacter

oButton = New Button
oCheckbox = New CheckBox
oComboBox = New ComboBox

nTotalWidth = 0
For Each oColumn As DataGridViewColumn In DataGridView1.Columns

nTotalWidth += oColumn.Width

Next
nPageNo = 1
NewPage = True
nRowPos = 0

End Sub

Private Sub PrintDocument1_PrintPage(ByVal sender As Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage

Static oColumnLefts As New ArrayList
Static oColumnWidths As New ArrayList
Static oColumnTypes As New ArrayList
Static nHeight As Int16

Dim nWidth, i, nRowsPerPage As Int16
Dim nTop As Int16 = e.MarginBounds.Top
Dim nLeft As Int16 = e.MarginBounds.Left

If nPageNo = 1 Then

For Each oColumn As DataGridViewColumn In DataGridView1.Columns

nWidth = CType(Math.Floor(oColumn.Width / nTotalWidth * nTotalWidth * (e.MarginBounds.Width / nTotalWidth)), Int16)

nHeight = e.Graphics.MeasureString(oColumn.HeaderText, oColumn.InheritedStyle.Font, nWidth).Height + 11

oColumnLefts.Add(nLeft)
oColumnWidths.Add(nWidth)
oColumnTypes.add(oColumn.GetType)
nLeft += nWidth

Next

End If

Do While nRowPos < DataGridView1.Rows.Count - 1

Dim oRow As DataGridViewRow = DataGridView1.Rows(nRowPos)

If nTop + nHeight >= e.MarginBounds.Height + e.MarginBounds.Top Then

DrawFooter(e, nRowsPerPage)

NewPage = True
nPageNo += 1
e.HasMorePages = True
Exit Sub

Else

If NewPage Then

' Draw Header
e.Graphics.DrawString(Header, New Font(DataGridView1.Font, FontStyle.Bold), Brushes.Black, e.MarginBounds.Left, e.MarginBounds.Top - e.Graphics.MeasureString(Header, New Font(DataGridView1.Font, FontStyle.Bold), e.MarginBounds.Width).Height - 13)

' Draw Columns
nTop = e.MarginBounds.Top
i = 0
For Each oColumn As DataGridViewColumn In DataGridView1.Columns

e.Graphics.FillRectangle(New SolidBrush(Drawing.Color.LightGray), New Rectangle(oColumnLefts(i), nTop, oColumnWidths(i), nHeight))
e.Graphics.DrawRectangle(Pens.Black, New Rectangle(oColumnLefts(i), nTop, oColumnWidths(i), nHeight))
e.Graphics.DrawString(oColumn.HeaderText, oColumn.InheritedStyle.Font, New SolidBrush(oColumn.InheritedStyle.ForeColor), New RectangleF(oColumnLefts(i), nTop, oColumnWidths(i), nHeight), oStringFormat)
i += 1

Next
NewPage = False

End If

nTop += nHeight
i = 0
For Each oCell As DataGridViewCell In oRow.Cells

If oColumnTypes(i) Is GetType(DataGridViewTextBoxColumn) OrElse oColumnTypes(i) Is GetType(DataGridViewLinkColumn) Then

e.Graphics.DrawString(oCell.Value.ToString, oCell.InheritedStyle.Font, New SolidBrush(oCell.InheritedStyle.ForeColor), New RectangleF(oColumnLefts(i), nTop, oColumnWidths(i), nHeight), oStringFormat)

ElseIf oColumnTypes(i) Is GetType(DataGridViewButtonColumn) Then

oButton.Text = oCell.Value.ToString
oButton.Size = New Size(oColumnWidths(i), nHeight)
Dim oBitmap As New Bitmap(oButton.Width, oButton.Height)
oButton.DrawToBitmap(oBitmap, New Rectangle(0, 0, oBitmap.Width, oBitmap.Height))
e.Graphics.DrawImage(oBitmap, New Point(oColumnLefts(i), nTop))

ElseIf oColumnTypes(i) Is GetType(DataGridViewCheckBoxColumn) Then

oCheckbox.Size = New Size(14, 14)
oCheckbox.Checked = CType(oCell.Value, Boolean)
Dim oBitmap As New Bitmap(oColumnWidths(i), nHeight)
Dim oTempGraphics As Graphics = Graphics.FromImage(oBitmap)
oTempGraphics.FillRectangle(Brushes.White, New Rectangle(0, 0, oBitmap.Width, oBitmap.Height))
oCheckbox.DrawToBitmap(oBitmap, New Rectangle(CType((oBitmap.Width - oCheckbox.Width) / 2, Int32), CType((oBitmap.Height - oCheckbox.Height) / 2, Int32), oCheckbox.Width, oCheckbox.Height))
e.Graphics.DrawImage(oBitmap, New Point(oColumnLefts(i), nTop))

ElseIf oColumnTypes(i) Is GetType(DataGridViewComboBoxColumn) Then

oComboBox.Size = New Size(oColumnWidths(i), nHeight)
Dim oBitmap As New Bitmap(oComboBox.Width, oComboBox.Height)
oComboBox.DrawToBitmap(oBitmap, New Rectangle(0, 0, oBitmap.Width, oBitmap.Height))
e.Graphics.DrawImage(oBitmap, New Point(oColumnLefts(i), nTop))
e.Graphics.DrawString(oCell.Value.ToString, oCell.InheritedStyle.Font, New SolidBrush(oCell.InheritedStyle.ForeColor), New RectangleF(oColumnLefts(i) + 1, nTop, oColumnWidths(i) - 16, nHeight), oStringFormatComboBox)

ElseIf oColumnTypes(i) Is GetType(DataGridViewImageColumn) Then

Dim oCellSize As Rectangle = New Rectangle(oColumnLefts(i), nTop, oColumnWidths(i), nHeight)
Dim oImageSize As Size = CType(oCell.Value, Image).Size
e.Graphics.DrawImage(oCell.Value, New Rectangle(oColumnLefts(i) + CType(((oCellSize.Width - oImageSize.Width) / 2), Int32), nTop + CType(((oCellSize.Height - oImageSize.Height) / 2), Int32), CType(oCell.Value, Image).Width, CType(oCell.Value, Image).Height))

End If

e.Graphics.DrawRectangle(Pens.Black, New Rectangle(oColumnLefts(i), nTop, oColumnWidths(i), nHeight))

i += 1

Next

End If

nRowPos += 1
nRowsPerPage += 1

Loop

DrawFooter(e, nRowsPerPage)

e.HasMorePages = False

End Sub

Private Sub DrawFooter(ByVal e As System.Drawing.Printing.PrintPageEventArgs, ByVal RowsPerPage As Int32)

Dim sPageNo As String = nPageNo.ToString + " of " + Math.Ceiling(DataGridView1.Rows.Count / RowsPerPage).ToString

' Right Align - User Name
e.Graphics.DrawString(sUserName, DataGridView1.Font, Brushes.Black, e.MarginBounds.Left + (e.MarginBounds.Width - e.Graphics.MeasureString(sPageNo, DataGridView1.Font, e.MarginBounds.Width).Width), e.MarginBounds.Top + e.MarginBounds.Height + 7)

' Left Align - Date/Time
e.Graphics.DrawString(Now.ToLongDateString + " " + Now.ToShortTimeString, DataGridView1.Font, Brushes.Black, e.MarginBounds.Left, e.MarginBounds.Top + e.MarginBounds.Height + 7)

' Center - Page No. Info
e.Graphics.DrawString(sPageNo, DataGridView1.Font, Brushes.Black, e.MarginBounds.Left + (e.MarginBounds.Width - e.Graphics.MeasureString(sPageNo, DataGridView1.Font, e.MarginBounds.Width).Width) / 2, e.MarginBounds.Top + e.MarginBounds.Height + 31)

End Sub

This code was a HUGE help.  Thank you...

I did add/change the following because I had a few empty cells and I was getting errors

For Each oCell As DataGridViewCell In oRow.Cells

If oCell.Value <> Nothing Then

End If

If oColumnTypes(i) Is GetType(DataGridViewTextBoxColumn) OrElse oColumnTypes(i) Is GetType(DataGridViewLinkColumn) Then

e.Graphics.DrawString(sValue, oCell.InheritedStyle.Font, New SolidBrush(oCell.InheritedStyle.ForeColor), New RectangleF(oColumnLefts(i), nTop, oColumnWidths(i), nHeight), oStringFormat)

If anyone is interested, I converted the code to C# and added a fix for correctly computing number of pages on the last page.

private StringFormat m_stringFormat;

private double m_totalWidth;

private int m_rowPos;

private bool m_newPage;

private int m_pageNo;

private string m_pageHeader = "Header";

private string m_userName = "Printed by <username>";

private ArrayList m_columnLefts = new ArrayList();

private ArrayList m_columnWidths = new ArrayList();

private int m_pageHeight = 0;

private int m_pageCount = 0;

private void printDocument1_BeginPrint(object sender, System.Drawing.Printing.PrintEventArgs e)

m_stringFormat = new StringFormat();

m_stringFormat.Alignment = StringAlignment.Near;

m_stringFormat.LineAlignment = StringAlignment.Center;

m_stringFormat.Trimming = StringTrimming.EllipsisCharacter;

foreach (DataGridViewColumn oColumn in dataGridView1.Columns)

m_newPage = true;

private void printDocument1_PrintPage(object sender, System.Drawing.Printing.PrintPageEventArgs e)

int nWidth, i;

double nRowsPerPage = 0;

int nTop = e.MarginBounds.Top;

int nLeft = e.MarginBounds.Left;

if (m_pageNo == 1)

foreach (DataGridViewColumn oColumn in dataGridView1.Columns)

double floorVal = Convert.ToDouble( oColumn.Width ) / m_totalWidth * m_totalWidth * (Convert.ToDouble( e.MarginBounds.Width) / m_totalWidth);

nWidth = Convert.ToInt32(Math.Floor(floorVal));

m_pageHeight = Convert.ToInt32(e.Graphics.MeasureString(oColumn.HeaderText, oColumn.InheritedStyle.Font, nWidth).Height) + 11;

while (m_rowPos < dataGridView1.Rows.Count )

DataGridViewRow oRow = dataGridView1.Rows[m_rowPos];

if (nTop + m_pageHeight >= e.MarginBounds.Height + e.MarginBounds.Top)

m_newPage = true;

e.HasMorePages = true;

return;

else

if (m_newPage)

// Draw Header

e.Graphics.DrawString(m_pageHeader, new Font(dataGridView1.Font, FontStyle.Bold), Brushes.Black, e.MarginBounds.Left, e.MarginBounds.Top - e.Graphics.MeasureString(m_pageHeader, new Font(dataGridView1.Font, FontStyle.Bold), e.MarginBounds.Width).Height - 13);

// Draw Columns

foreach (DataGridViewColumn oColumn in dataGridView1.Columns)

e.Graphics.FillRectangle(new SolidBrush(Color.LightGray), new Rectangle((int)m_columnLefts, nTop, (int)m_columnWidths, m_pageHeight));

e.Graphics.DrawRectangle(Pens.Black, new Rectangle((int)m_columnLefts, nTop, (int)m_columnWidths, m_pageHeight));

e.Graphics.DrawString(oColumn.HeaderText, oColumn.InheritedStyle.Font, new SolidBrush(oColumn.InheritedStyle.ForeColor), new RectangleF((int)m_columnLefts, nTop, (int)m_columnWidths, m_pageHeight), m_stringFormat);

m_newPage = false;

foreach (DataGridViewCell oCell in oRow.Cells)

string sValue = String.Empty;

if (oCell.Value != null)

e.Graphics.DrawString(sValue, oCell.InheritedStyle.Font, new SolidBrush(oCell.InheritedStyle.ForeColor), new RectangleF((int)m_columnLefts, nTop, (int)m_columnWidths, m_pageHeight), m_stringFormat);

e.Graphics.DrawRectangle(Pens.Black, new Rectangle((int)m_columnLefts, nTop, (int)m_columnWidths, m_pageHeight));

e.HasMorePages = false;

private void DrawFooter(System.Drawing.Printing.PrintPageEventArgs e, double nRowsPerPage)

if (m_pageCount == 0)

m_pageCount = Convert.ToInt32( Math.Ceiling(Convert.ToDouble(dataGridView1.Rows.Count) / nRowsPerPage) );

string sPageNo = String.Format("Page {0} of {1}", m_pageNo.ToString(), m_pageCount.ToString()).ToString();

// Right Align - User Name

e.Graphics.DrawString(m_userName, dataGridView1.Font, Brushes.Black, e.MarginBounds.Left + (e.MarginBounds.Width - e.Graphics.MeasureString(sPageNo, dataGridView1.Font, e.MarginBounds.Width).Width), e.MarginBounds.Top + e.MarginBounds.Height + 7);

// Left Align - Date/Time

e.Graphics.DrawString(DateTime.Now.ToLongDateString() + " " + DateTime.Now.ToShortTimeString(), dataGridView1.Font, Brushes.Black, e.MarginBounds.Left, e.MarginBounds.Top + e.MarginBounds.Height + 7);

// Center - Page No. Info

e.Graphics.DrawString(sPageNo, dataGridView1.Font, Brushes.Black, e.MarginBounds.Left + (e.MarginBounds.Width - e.Graphics.MeasureString(sPageNo, dataGridView1.Font, e.MarginBounds.Width).Width) / 2, e.MarginBounds.Top + e.MarginBounds.Height + 31);

Love the code!

One small change to handle dbnull:

If oCell.Value IsNot Nothing Then

or

If Not oCell.Value Is Nothing Then

Hi,

Have a look to this article 'DataGridViewPrinter Class':

http://www.codeproject.com/csharp/datagridviewprinter.asp

Salan

Hi,

Great Code! I Try to modify it because I need that it don't print a column if the property visible is set to false ... but I can't resolve the problem!

Anyone can help me?! Thanks so much :)

P.S. I Apologise for my bad english!

Hi Frankie,

Next time if you have question regarding the DataGridViewPrinter class, try to post it in the article page of that class:

http://www.codeproject.com/csharp/datagridviewprinter.asp

However, to solve your problem, just insert the below code in the beginning of the Calculate function of the class:

foreach (DataGridViewColumn col in TheDataGridView.Columns)

col.Visible = true;

Salan..

After reading this post, I decided to give it the Print Grid solution a try (by will_affinity). I was able to get it to work. The Print Preview, Print Dialog, and Page Setup all worked as advertised, but I did rub into a slight problem that I am hoping someone in this discussion board can help me with.

If I select Print Preview, then close that window and select Page Setup and Perform another Print Preview, the grid maintains the same width as in Portrait. Whereas, if I start the program over, select Page Setup, change to Landscape, select Print Preview (document looks ok), select Page Setup, select Portrait, select Print Preview (document looks good), select Page Setup, change to Landscape, select Print Preview (document has bad margins again).

I'm sure this is not the best way to discribe what is happening, but since I am not to sure what I need to look for ...Oh well. I guess I sound confused and lost because I am. I have only been using Visual Basic (VS 2005) for about 6 months now, and I know I've only scratched the surface on what this stuff is capable of. Anyway, any help, comments, or directions would be greatly appreciated. Thank you in advance for your time and effort.

hey,

i tried your code but it is giving me compiling errors

Error1Handles clause requires a WithEvents variable defined in the containing type or one of its base {ERROR OCCURED IN BTN[PREVIEW CLICK EVENT}

Error2'Printer' is a type and cannot be used as an expression.{IN THE SAME EVENT :

If IsNothing(Printer) Then

Printer = New Printer(DataGridView1, Me.Text, "shrey") 'DataGridView, Wiindow Title (as the Page Header), Username

End If

}

Error8Reference to a non-shared member requires an object reference.

Could you help me i am new at vb.

thnks in advance

Shrey Sharma

DrawFooter(e, nPageNo);

after the main row loop rather than

DrawFooter(e, nRowsPerPage);

eliminates the problem when the page has fewer than the max rows too.

How do I call this from a button?

Regards

Sabe75

Thanks Guys,

Its a really a great code. My heartful Thanks to those guys who did the program. please update for new codings and projects.

vimalbtechit2005@gmail.com

Vimal.

Dim sPageNo As String = nPageNo.ToString + " of " + Math.Ceiling(DataGridViewToPrint.Rows.Count / RowsPerPage).ToString

I changed the above code in Sub DrawFooter to:

________________________________________________________________________

Dim sPageNo As String

If blnGotNumPages = False Then

blnGotNumPages = True

sPageNo = nPageNo.ToString + " of " + Math.Ceiling(DataGridView1.Rows.Count / RowsPerPage).ToString

Else

sPageNo = nPageNo.ToString + " of " + strNumOfPages

End If

______________________________________________________________________________________________

Ofcourse I declared blnGotNumPages and strNumOfPages outside of the Sub, and made blnGotNumPages = False when the print Preview btn was clicked.

This solution will give you Page x of y correctly. Even for the last page. I hope this was helpful to some of you all.

Thomas

Hi,

Hi, I like the Code and I also saw the code project Printing class. Here is a version that uses static methods and auto generates the print document internally. This way you can just call: PrintFactory.Print() or PrintFactory.Preview() from anywhere and not worry about instances. Obviously, you can expand on this code in a million ways, but it is start for clean library for datagridview printing.

Imports System.Windows.Forms

Public Class PrintFactory

#Region "Instance"

#Region "Declerations"

Private WithEvents _printDocument As Printing.PrintDocument = _

New Printing.PrintDocument()

Private _dgv As DataGridView

Private _stringFormat As StringFormat

Private _stringFormatComboBox As StringFormat

Private _button As Button

Private _checkBox As CheckBox

Private _comboBox As ComboBox

Private _totalWidth As Int16

Private _rowPos As Int16

Private _newPage As Boolean

Private _pageNumber As Int16

Private _userName As String

Private _headerText As String

#End Region

#Region "Properties"

Private ReadOnly Property DGV() As DataGridView

Get

Return _dgv

End Get

End Property

Private Property HeaderText() As String

Get

Return _headerText

End Get

Set(ByVal value As String)

End Set

End Property

Private Property UserName() As String

Get

Return _userName

End Get

Set(ByVal value As String)

End Set

End Property

Private Property StringFormat() As StringFormat

Get

Return _stringFormat

End Get

Set(ByVal value As StringFormat)

End Set

End Property

Private Property StringFormatComboBox() As StringFormat

Get

Return _stringFormatComboBox

End Get

Set(ByVal value As StringFormat)

End Set

End Property

Private Property Button() As Button

Get

Return _button

End Get

Set(ByVal value As Button)

End Set

End Property

Private Property CheckBox() As CheckBox

Get

Return _checkBox

End Get

Set(ByVal value As CheckBox)

End Set

End Property

Private Property ComboBox() As ComboBox

Get

Return _comboBox

End Get

Set(ByVal value As ComboBox)

End Set

End Property

Private Property TotalWidth() As Int16

Get

Return _totalWidth

End Get

Set(ByVal value As Int16)

End Set

End Property

Private Property RowPos() As Int16

Get

Return _rowPos

End Get

Set(ByVal value As Int16)

End Set

End Property

Private Property NewPage() As Boolean

Get

Return _newPage

End Get

Set(ByVal value As Boolean)

End Set

End Property

Private Property PageNumber() As Int16

Get

Return _pageNumber

End Get

Set(ByVal value As Int16)

End Set

End Property

#End Region

Private Sub New(ByVal userName As String, _

ByVal headerText As String)

Me._userName = userName

Me._headerText = headerText

End Sub

Private Sub _printDocument_PrintPage(ByVal sender As Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles _printDocument.PrintPage

EndPrint(Me, e)

End Sub

#End Region

#Region "Statics"

Public Shared Function Print(ByVal dgv As DataGridView, _

ByVal userName As String, _

ByVal headerText As String) As Boolean

Dim tempPrintFactory As PrintFactory = BeginPrint(dgv, userName, headerText)

End Function

Public Shared Function Preview(ByVal dgv As DataGridView, _

ByVal userName As String, _

ByVal headerText As String) As Boolean

Dim tempPrintFactory As PrintFactory = BeginPrint(dgv, userName, headerText)

Dim tempPrintDiag As New PrintPreviewDialog()

End Function

Private Shared Function BeginPrint(ByVal dgv As DataGridView, ByVal userName As String, ByVal headerText As String) As PrintFactory

Dim printEntity As PrintFactory = New PrintFactory(userName, headerText)

printEntity.StringFormat = New StringFormat

printEntity.StringFormatComboBox = New StringFormat

printEntity.Button = New Button

printEntity.CheckBox = New CheckBox

printEntity.ComboBox = New ComboBox

For Each oColumn As DataGridViewColumn In dgv.Columns

Next

printEntity.NewPage = True

Return printEntity

End Function

Private Shared Function EndPrint(ByVal printEntity As PrintFactory, _

ByVal e As System.Drawing.Printing.PrintPageEventArgs) As Boolean

Dim oColumnLefts As New ArrayList

Dim oColumnWidths As New ArrayList

Dim oColumnTypes As New ArrayList

Dim nHeight As Int16

Dim nWidth, i, nRowsPerPage As Int16

Dim nTop As Int16 = e.MarginBounds.Top

Dim nLeft As Int16 = e.MarginBounds.Left

If printEntity.PageNumber = 1 Then

For Each oColumn As DataGridViewColumn In printEntity.DGV.Columns

nWidth = CType(Math.Floor(oColumn.Width / printEntity.TotalWidth * printEntity.TotalWidth * (e.MarginBounds.Width / printEntity.TotalWidth)), Int16)

Next

End If

Do While printEntity.RowPos < printEntity.DGV.Rows.Count - 1

Dim oRow As DataGridViewRow = printEntity.DGV.Rows(printEntity.RowPos)

If nTop + nHeight >= e.MarginBounds.Height + e.MarginBounds.Top Then

printEntity.NewPage = True

e.HasMorePages = True

Exit Function

Else

If printEntity.NewPage Then

' Draw Header

e.Graphics.DrawString(printEntity.HeaderText, New Font(printEntity.DGV.Font, FontStyle.Bold), Brushes.Black, e.MarginBounds.Left, e.MarginBounds.Top - e.Graphics.MeasureString(printEntity.HeaderText, New Font(printEntity.DGV.Font, FontStyle.Bold), e.MarginBounds.Width).Height - 13)

' Draw Columns

For Each oColumn As DataGridViewColumn In printEntity.DGV.Columns

e.Graphics.FillRectangle(New SolidBrush(Drawing.Color.LightGray), New Rectangle(oColumnLefts(i), nTop, oColumnWidths(i), nHeight))

e.Graphics.DrawRectangle(Pens.Black, New Rectangle(oColumnLefts(i), nTop, oColumnWidths(i), nHeight))

e.Graphics.DrawString(oColumn.HeaderText, oColumn.InheritedStyle.Font, New SolidBrush(oColumn.InheritedStyle.ForeColor), New RectangleF(oColumnLefts(i), nTop, oColumnWidths(i), nHeight), printEntity.StringFormat)

Next

printEntity.NewPage = False

End If

For Each oCell As DataGridViewCell In oRow.Cells

If oColumnTypes(i) Is GetType(DataGridViewTextBoxColumn) OrElse oColumnTypes(i) Is GetType(DataGridViewLinkColumn) Then

e.Graphics.DrawString(oCell.Value.ToString, oCell.InheritedStyle.Font, New SolidBrush(oCell.InheritedStyle.ForeColor), New RectangleF(oColumnLefts(i), nTop, oColumnWidths(i), nHeight), printEntity.StringFormat)

ElseIf oColumnTypes(i) Is GetType(DataGridViewButtonColumn) Then

printEntity.Button.Size = New Size(oColumnWidths(i), nHeight)

Dim oBitmap As New Bitmap(printEntity.Button.Width, printEntity.Button.Height)

printEntity.Button.DrawToBitmap(oBitmap, New Rectangle(0, 0, oBitmap.Width, oBitmap.Height))

e.Graphics.DrawImage(oBitmap, New Point(oColumnLefts(i), nTop))

ElseIf oColumnTypes(i) Is GetType(DataGridViewCheckBoxColumn) Then

printEntity.CheckBox.Size = New Size(14, 14)

printEntity.CheckBox.Checked = CType(oCell.Value, Boolean)

Dim oBitmap As New Bitmap(oColumnWidths(i), nHeight)

Dim oTempGraphics As Graphics = Graphics.FromImage(oBitmap)

oTempGraphics.FillRectangle(Brushes.White, New Rectangle(0, 0, oBitmap.Width, oBitmap.Height))

printEntity.CheckBox.DrawToBitmap(oBitmap, New Rectangle(CType((oBitmap.Width - printEntity.CheckBox.Width) / 2, Int32), CType((oBitmap.Height - printEntity.CheckBox.Height) / 2, Int32), printEntity.CheckBox.Width, printEntity.CheckBox.Height))

e.Graphics.DrawImage(oBitmap, New Point(oColumnLefts(i), nTop))

ElseIf oColumnTypes(i) Is GetType(DataGridViewComboBoxColumn) Then

printEntity.ComboBox.Size = New Size(oColumnWidths(i), nHeight)

Dim oBitmap As New Bitmap(printEntity.ComboBox.Width, printEntity.ComboBox.Height)

printEntity.ComboBox.DrawToBitmap(oBitmap, New Rectangle(0, 0, oBitmap.Width, oBitmap.Height))

e.Graphics.DrawImage(oBitmap, New Point(oColumnLefts(i), nTop))

e.Graphics.DrawString(oCell.Value.ToString, oCell.InheritedStyle.Font, New SolidBrush(oCell.InheritedStyle.ForeColor), New RectangleF(oColumnLefts(i) + 1, nTop, oColumnWidths(i) - 16, nHeight), printEntity.StringFormatComboBox)

ElseIf oColumnTypes(i) Is GetType(DataGridViewImageColumn) Then

Dim oCellSize As Rectangle = New Rectangle(oColumnLefts(i), nTop, oColumnWidths(i), nHeight)

Dim oImageSize As Size = CType(oCell.Value, Image).Size

e.Graphics.DrawImage(oCell.Value, New Rectangle(oColumnLefts(i) + CType(((oCellSize.Width - oImageSize.Width) / 2), Int32), nTop + CType(((oCellSize.Height - oImageSize.Height) / 2), Int32), CType(oCell.Value, Image).Width, CType(oCell.Value, Image).Height))

End If

e.Graphics.DrawRectangle(Pens.Black, New Rectangle(oColumnLefts(i), nTop, oColumnWidths(i), nHeight))

Next

End If

Loop

e.HasMorePages = False

End Function

Private Shared Function DrawFooter(ByVal dgv As DataGridView, _

ByVal printEntity As PrintFactory, _

ByVal RowsPerPage As Int32, _

ByVal e As System.Drawing.Printing.PrintPageEventArgs) As Boolean

Dim sPageNo As String = printEntity.PageNumber.ToString + " of " + Math.Ceiling(dgv.Rows.Count / RowsPerPage).ToString

' Right Align - User Name

' Left Align - Date/Time

e.Graphics.DrawString(Now.ToLongDateString + " " + Now.ToShortTimeString, dgv.Font, Brushes.Black, e.MarginBounds.Left, e.MarginBounds.Top + e.MarginBounds.Height + 7)

' Center - Page No. Info

End Function

Private Shared Sub Validate(ByVal dgv As DataGridView, _

ByVal userName As String, _

ByVal headerText As String)

If dgv Is Nothing Then

Throw New ArgumentNullException("dgv")

End If

If String.IsNullOrEmpty(userName) = True Then

Throw New ArgumentNullException("userName")

End If

If String.IsNullOrEmpty(headerText) = True Then

Throw New ArgumentNullException("headerText")

End If

End Sub

#End Region

End Class

I like this code but I seem to be having issues with an error. Have you experienced this one.

Index was out of range. Must be non-negative and less than the size of the collection.
The error is in the EndPrint function.

For Each oColumn As DataGridViewColumn In printEntity.DGV.Columns

Error in this line >>>> e.Graphics.FillRectangle(New SolidBrush(Drawing.Color.LightGray), New Rectangle(oColumnLefts(i), nTop, oColumnWidths(i), nHeight))

e.Graphics.DrawRectangle(Pens.Black, New Rectangle(oColumnLefts(i), nTop, oColumnWidths(i), nHeight))

e.Graphics.DrawString(oColumn.HeaderText, oColumn.InheritedStyle.Font, New SolidBrush(oColumn.InheritedStyle.ForeColor), New RectangleF(oColumnLefts(i), nTop, oColumnWidths(i), nHeight), printEntity.StringFormat)

Next

Hi,

I have tried your code. It is working very well. I wanted one enhancement in that.

I tried even but that code after modification seems to be meshy. If you please look into what is my requirement and yes how it would be adjusted in the similar code.

The requirement is : It should print the grid element like excel which means it should split the column after it reaches to page bounds.

sorry, it doesn't solve the problem.

what I do it just change a little code in "Sub Printdoc_PrintPage"

from

Do While nRowPos < DataGridViewToPrint.Rows.Count

to

Thanks to all that have contributed to this code.

I had an issue with Forkbeard's code and the hardcopy document not actually printing.

So I changed the "Print" subrouting in the above code to:-

Regards,

Scott

hellow!! I am new in VB2005 and i really have no idea about it..My on the job training superior ask me to make a program..I already finish some of the parts except the printing...I only used rich textbox, the copy/paste command the problem is the alignment.

please reply... thanks alot..godbless

Just replace

Do While nRowPos < DataGridView1.Rows.Count - 1

with

I've got a problem where one of the columns in the datagridview displays ONLY the date, but the print is printing the date plus '00:00:00'

Can anyone help me please with the code to displaying only the date ina format of 'dd/mm/yy' to the print document?

Thanks

The static approach is interesting. Buster has another approach using vb, that prints the grid as seen on the screen.

I've modified it for c# too.

hey all. after long time and nearly null results on vb2005 and datagridview printing. i found this thread.. all works ok with some minor modifications.. but one or two problems still persists.

if too many columns then it squizes everything in one page.. cant get it on a second.. (not for rows.. but for columns)

and after that. if i preview lets say 5 columns and then 2.. the width of the table gets the whole page.. although its good in the beginning..

any help would be greatly appreciated..

as for the part that wouldnt print on landscape.. had the same problem as well nd i just got

e.PageSettings.Landscape = True

thank u in advance

FTAO Will_Affinity

Your brain must be the size of a moon. I've copied your code into my program and it works perfect.

I can't thank you enough, you've saved me hours of headaches. If i could afford it i'd send you a cheque.

NoZparker

I'm still having trouble here.

The cell contents is only displaying the date format, which is what I want.

But when I do a print preview, it displays the date as well as '00:00:00'.

I'd like to remove the time.

Everything else works perfectly.

Hi folks, there is a free component that gives the printing functionality. This is something like pluggin for the DataGridView control itself - it just wraps it - also it gives you the functionalities of searching for an item in the DataGridView control, exporting datato HTML, Excel and Pdf and many more...

Check it out on http://www.completit.com/Products/DGVE/Overview.aspx

It thing that a lot ot hard work is done there.

How did you solve this problem?

I started with a need to print a DataGridView a couple of years ago and went down several pathways. However, I recently discovered a very sweet solution for printing a DataGridView and many other .Net objects. It is the Reporting Services control available for Visual Studio 2005 (Its also in 2008 but has a nasty bug!). It is an almost trivial task to construct a class to organises the DataGrid contents as a datasource to an RDL (Report Definition Language) based report. The RDL report has good capabilities for formatting, sorting, totalling, etc. Once the report is rendered to the user's screen, the user is able to print it, output to PDF or Excel. A really neat bit is the ability to created a drilldown report which puts more control back into the user's hands.

Do not get confused with server side reporting using Reporting Services. The VS control does not require any SQL Server components or licences. It is described with SQL Server Reporting Services because the RDL syntax and capabilities are almost identical.

Does anyone know how to solve the Handles PrintDocument1.PrintPage problem?

Thanks

My datagridveiw works perfect wth the above original code. except with the blank cell whicth returns an error. the above is still great

Thank you.

Hi,

Great work and really good one. But One suggetion, is it possible to convert to .NET 2.0.

Why because, Your control will be more usefull, If it is available for .NET 2.0 Applications. Please make it available, then it will be great.

How did you fix the previous Handles PrintDocument1.PrintPage problem? I've got the same message.

I am busy for a few month with a library which could help you to print DataGridView contents.

see http://www.codeplex.com/PrintDataGridViewand enjoy (I hope)

Another small fix:

' Right Align - User Name

e.Graphics.DrawString(sUserName, dgv.Font, Brushes.Black, e.MarginBounds.Left + (e.MarginBounds.Width - e.Graphics.MeasureString(sUserName, dgv.Font, e.MarginBounds.Width).Width), e.MarginBounds.Top + e.MarginBounds.Height + 7)

My friend connect . . .

i have a problem. . .

im using vb2008, and your code works great

but i have one problem with your code :

Dim psDlg As New PageSetupDialog

Dim storedPageSettings As PageSettings = New PageSettings()

psDlg.PageSettings = storedPageSettings

psDlg.ShowDialog()

that do not compile, i think there is a typo but i cannot find where . . .

the vb2008 do not even know pagesettings . . .

so this is my question

1. a) do you have an updated solution on how to print a grid from a form?
2. b) can you fix this code
3. c) how do i relate the page setupdialog with the print document?

my preview looks good, but the margings are too big, making some columns display too small

d) id there anyway to hide some columns . . .

Mr. White. . .

May be youcouldtry the solution I implemented...

http://www.codeplex.com/PrintYourGridsDotNet

Have a nice evening

I have taken snippits from all over this forum and have been successful in printing out my datagrid exactly how i want it.

i can print :-

All

Odds

Evens

Ranges

and Single Pages (all done by the coding)

However, the amount of pages i need to print out are in excess of 300 pages

When I print, the printer only seems to have enough memory for about 100 pages. I then have to start the printing again using the range of pages from say 100 on.

Alternatively in the printer set up I can set the print to print direct, This of coarse sends each page to the printer 1 at a time, which is holding up resources.

Can anyone suggest a solution so that i can print all 300 pages at the same time.

Private Sub PrintDocument1_BeginPrint(ByVal sender As Object, ByVal e As System.Drawing.Printing.PrintEventArgs) Handles PrintDocument1.BeginPrint

&

Private Sub PrintDocument1_PrintPage(ByVal sender As Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage

To solve them simply add (double click or drag and drop)a PrintDocument to your projectfound in the toolbox

For making a Page Setup, followed by a Print Preview Dialog Box that uses your input in the Page Setup you can use this...

'Place these lines after the Public Class (Name of Form)

Public DefaultPageSettings As PageSettings = New PageSettings()

Public StringPageNo As String

Public StringNumberOfPages As String

Public BooleanNumOfPages As Boolean

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

Dim PageSetupDialog1 As New PageSetupDialog

PageSetupDialog1.PageSettings = DefaultPageSettings

PageSetupDialog1.ShowDialog()

Dim PrintPreviewDialog1 As New PrintPreviewDialog()

BooleanNumberOfPages = False

PrintDocument1.DefaultPageSettings = PageSetupDialog1.PageSettings

PrintPreviewDialog1.Document = PrintDocument1

PrintPreviewDialog1.ShowDialog()

I want to know how I can call this code.

Call PrintDocument1_BeginPrint(sender, e)???

in any button

document1.print

in fact if you have the correct imports at the top just ouside the class declaration you should see a list

of items when you type document1 followed by a dot (document1.)

Hi Will-affinity

your code works great but the document is being printed on the right of the page and no footer, this hapends on a DGV that is bindet by code, if i use a DGV and Bind it by smart tag it works fine. is there a fix for this>
If i can make the default layout to Landscape that will do


thanks

Private oStringFormat As StringFormat
Private oStringFormatComboBox As StringFormat
Private oButton As Button
Private oCheckbox As CheckBox
Private oComboBox As ComboBox

Private nTotalWidth As Int16
Private nRowPos As Int16
Private NewPage As Boolean
Private nPageNo As Int16
Private Header As String = "Header Test"
Private sUserName As String = "Will"

Private Sub PrintDocument1_BeginPrint(ByVal sender As Object, ByVal e As System.Drawing.Printing.PrintEventArgs) Handles PrintDocument1.BeginPrint

oStringFormat = New StringFormat
oStringFormat.Alignment = StringAlignment.Near
oStringFormat.LineAlignment = StringAlignment.Center
oStringFormat.Trimming = StringTrimming.EllipsisCharacter

oStringFormatComboBox = New StringFormat
oStringFormatComboBox.LineAlignment = StringAlignment.Center
oStringFormatComboBox.FormatFlags = StringFormatFlags.NoWrap
oStringFormatComboBox.Trimming = StringTrimming.EllipsisCharacter

oButton = New Button
oCheckbox = New CheckBox
oComboBox = New ComboBox

nTotalWidth = 0
For Each oColumn As DataGridViewColumn In DataGridView1.Columns

nTotalWidth += oColumn.Width

Next
nPageNo = 1
NewPage = True
nRowPos = 0

End Sub

Private Sub PrintDocument1_PrintPage(ByVal sender As Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage

Static oColumnLefts As New ArrayList
Static oColumnWidths As New ArrayList
Static oColumnTypes As New ArrayList
Static nHeight As Int16

Dim nWidth, i, nRowsPerPage As Int16
Dim nTop As Int16 = e.MarginBounds.Top
Dim nLeft As Int16 = e.MarginBounds.Left

If nPageNo = 1 Then

For Each oColumn As DataGridViewColumn In DataGridView1.Columns

nWidth = CType(Math.Floor(oColumn.Width / nTotalWidth * nTotalWidth * (e.MarginBounds.Width / nTotalWidth)), Int16)

nHeight = e.Graphics.MeasureString(oColumn.HeaderText, oColumn.InheritedStyle.Font, nWidth).Height + 11

oColumnLefts.Add(nLeft)
oColumnWidths.Add(nWidth)
oColumnTypes.add(oColumn.GetType)
nLeft += nWidth

Next

End If

Do While nRowPos < DataGridView1.Rows.Count - 1

Dim oRow As DataGridViewRow = DataGridView1.Rows(nRowPos)

If nTop + nHeight >= e.MarginBounds.Height + e.MarginBounds.Top Then

DrawFooter(e, nRowsPerPage)

NewPage = True
nPageNo += 1
e.HasMorePages = True
Exit Sub

Else

If NewPage Then

' Draw Header
e.Graphics.DrawString(Header, New Font(DataGridView1.Font, FontStyle.Bold), Brushes.Black, e.MarginBounds.Left, e.MarginBounds.Top - e.Graphics.MeasureString(Header, New Font(DataGridView1.Font, FontStyle.Bold), e.MarginBounds.Width).Height - 13)

' Draw Columns
nTop = e.MarginBounds.Top
i = 0
For Each oColumn As DataGridViewColumn In DataGridView1.Columns

e.Graphics.FillRectangle(New SolidBrush(Drawing.Color.LightGray), New Rectangle(oColumnLefts(i), nTop, oColumnWidths(i), nHeight))
e.Graphics.DrawRectangle(Pens.Black, New Rectangle(oColumnLefts(i), nTop, oColumnWidths(i), nHeight))
e.Graphics.DrawString(oColumn.HeaderText, oColumn.InheritedStyle.Font, New SolidBrush(oColumn.InheritedStyle.ForeColor), New RectangleF(oColumnLefts(i), nTop, oColumnWidths(i), nHeight), oStringFormat)
i += 1

Next
NewPage = False

End If

nTop += nHeight
i = 0
For Each oCell As DataGridViewCell In oRow.Cells

If oColumnTypes(i) Is GetType(DataGridViewTextBoxColumn) OrElse oColumnTypes(i) Is GetType(DataGridViewLinkColumn) Then

e.Graphics.DrawString(oCell.Value.ToString, oCell.InheritedStyle.Font, New SolidBrush(oCell.InheritedStyle.ForeColor), New RectangleF(oColumnLefts(i), nTop, oColumnWidths(i), nHeight), oStringFormat)

ElseIf oColumnTypes(i) Is GetType(DataGridViewButtonColumn) Then

oButton.Text = oCell.Value.ToString
oButton.Size = New Size(oColumnWidths(i), nHeight)
Dim oBitmap As New Bitmap(oButton.Width, oButton.Height)
oButton.DrawToBitmap(oBitmap, New Rectangle(0, 0, oBitmap.Width, oBitmap.Height))
e.Graphics.DrawImage(oBitmap, New Point(oColumnLefts(i), nTop))

ElseIf oColumnTypes(i) Is GetType(DataGridViewCheckBoxColumn) Then

oCheckbox.Size = New Size(14, 14)
oCheckbox.Checked = CType(oCell.Value, Boolean)
Dim oBitmap As New Bitmap(oColumnWidths(i), nHeight)
Dim oTempGraphics As Graphics = Graphics.FromImage(oBitmap)
oTempGraphics.FillRectangle(Brushes.White, New Rectangle(0, 0, oBitmap.Width, oBitmap.Height))
oCheckbox.DrawToBitmap(oBitmap, New Rectangle(CType((oBitmap.Width - oCheckbox.Width) / 2, Int32), CType((oBitmap.Height - oCheckbox.Height) / 2, Int32), oCheckbox.Width, oCheckbox.Height))
e.Graphics.DrawImage(oBitmap, New Point(oColumnLefts(i), nTop))

ElseIf oColumnTypes(i) Is GetType(DataGridViewComboBoxColumn) Then

oComboBox.Size = New Size(oColumnWidths(i), nHeight)
Dim oBitmap As New Bitmap(oComboBox.Width, oComboBox.Height)
oComboBox.DrawToBitmap(oBitmap, New Rectangle(0, 0, oBitmap.Width, oBitmap.Height))
e.Graphics.DrawImage(oBitmap, New Point(oColumnLefts(i), nTop))
e.Graphics.DrawString(oCell.Value.ToString, oCell.InheritedStyle.Font, New SolidBrush(oCell.InheritedStyle.ForeColor), New RectangleF(oColumnLefts(i) + 1, nTop, oColumnWidths(i) - 16, nHeight), oStringFormatComboBox)

ElseIf oColumnTypes(i) Is GetType(DataGridViewImageColumn) Then

Dim oCellSize As Rectangle = New Rectangle(oColumnLefts(i), nTop, oColumnWidths(i), nHeight)
Dim oImageSize As Size = CType(oCell.Value, Image).Size
e.Graphics.DrawImage(oCell.Value, New Rectangle(oColumnLefts(i) + CType(((oCellSize.Width - oImageSize.Width) / 2), Int32), nTop + CType(((oCellSize.Height - oImageSize.Height) / 2), Int32), CType(oCell.Value, Image).Width, CType(oCell.Value, Image).Height))

End If

e.Graphics.DrawRectangle(Pens.Black, New Rectangle(oColumnLefts(i), nTop, oColumnWidths(i), nHeight))

i += 1

Next

End If

nRowPos += 1
nRowsPerPage += 1

Loop

DrawFooter(e, nRowsPerPage)

e.HasMorePages = False

End Sub

Private Sub DrawFooter(ByVal e As System.Drawing.Printing.PrintPageEventArgs, ByVal RowsPerPage As Int32)

Dim sPageNo As String = nPageNo.ToString + " of " + Math.Ceiling(DataGridView1.Rows.Count / RowsPerPage).ToString

' Right Align - User Name
e.Graphics.DrawString(sUserName, DataGridView1.Font, Brushes.Black, e.MarginBounds.Left + (e.MarginBounds.Width - e.Graphics.MeasureString(sPageNo, DataGridView1.Font, e.MarginBounds.Width).Width), e.MarginBounds.Top + e.MarginBounds.Height + 7)

' Left Align - Date/Time
e.Graphics.DrawString(Now.ToLongDateString + " " + Now.ToShortTimeString, DataGridView1.Font, Brushes.Black, e.MarginBounds.Left, e.MarginBounds.Top + e.MarginBounds.Height + 7)

' Center - Page No. Info
e.Graphics.DrawString(sPageNo, DataGridView1.Font, Brushes.Black, e.MarginBounds.Left + (e.MarginBounds.Width - e.Graphics.MeasureString(sPageNo, DataGridView1.Font, e.MarginBounds.Width).Width) / 2, e.MarginBounds.Top + e.MarginBounds.Height + 31)

End Sub

There's a problem with printing out the footer. It messes up the page number if the page has fewer than the max number of rows. For example, I had 38 rows spread over two pages, the first page said "Page 1 of 2" but the last one would say "Page 2 of 13" since there were only 3 rows on the final page. Either way, I've 'Option Stricted' and turned it into a class unto itself. Enjoy!

To Implement:
Private Sub btnPrintPreview_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPrintPreview.Click
If IsNothing(Printer) Then
Printer = New Printer(dgvJobs, Me.Text, gblUserName) 'DataGridView, Wiindow Title (as the Page Header), Username
End If
Printer.ShowPrintPreviewDialog()
End Sub

Private Sub btnPrint_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPrint.Click
If IsNothing(Printer) Then
Printer = New Printer(dgvJobs, Me.Text, gblUserName) 'DataGridView, Wiindow Title (as the Page Header), Username
End If
Printer.Print()
End Sub

Public Class Printer
Private oStringFormat As StringFormat
Private oStringFormatComboBox As StringFormat
Private oButton As Button
Private oCheckbox As CheckBox
Private oComboBox As ComboBox

Private nTotalWidth As Int16
Private nRowPos As Int16
Private NewPage As Boolean
Private nPageNo As Int16
Private Header As String
Private sUserName As String
Private nPageCount As Integer = 0
Private dgv As DataGridView
Private WithEvents PrintDoc As New Printing.PrintDocument
Private storedPageSettings As Printing.PageSettings = New Printing.PageSettings()

Property DataGridViewToPrint() As DataGridView
Get
Return dgv
End Get
Set(ByVal value As DataGridView)
dgv = value
End Set
End Property
Property UserName() As String
Get
Return sUserName
End Get
Set(ByVal value As String)
sUserName = value
End Set
End Property
Property HeaderText() As String
Get
Return Header
End Get
Set(ByVal value As String)
Header = value
End Set
End Property

Public Sub New(ByVal aDGV As DataGridView, ByVal aHeader As String, ByVal aUserName As String)
DataGridViewToPrint = aDGV
UserName = aUserName
HeaderText = aHeader
End Sub
Public Sub Print()
Dim psDlg As New PageSetupDialog
psDlg.PageSettings = storedPageSettings
psDlg.ShowDialog()
End Sub
Public Sub ShowPrintPreviewDialog()
Dim dlg As New PrintPreviewDialog()
dlg.Document = PrintDoc
dlg.ShowDialog()
End Sub
Private Sub PrintDoc_BeginPrint(ByVal sender As Object, ByVal e As System.Drawing.Printing.PrintEventArgs) Handles PrintDoc.BeginPrint

oStringFormat = New StringFormat
oStringFormat.Alignment = StringAlignment.Near
oStringFormat.LineAlignment = StringAlignment.Center
oStringFormat.Trimming = StringTrimming.EllipsisCharacter

oStringFormatComboBox = New StringFormat
oStringFormatComboBox.LineAlignment = StringAlignment.Center
oStringFormatComboBox.FormatFlags = StringFormatFlags.NoWrap
oStringFormatComboBox.Trimming = StringTrimming.EllipsisCharacter

oButton = New Button
oCheckbox = New CheckBox
oComboBox = New ComboBox

nTotalWidth = 0
For Each oColumn As DataGridViewColumn In DataGridViewToPrint.Columns

nTotalWidth = CShort(nTotalWidth + oColumn.Width)

Next
nPageNo = 1
NewPage = True
nRowPos = 0

End Sub

Private Sub Printdoc_PrintPage(ByVal sender As Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDoc.PrintPage

Static oColumnLefts As New ArrayList
Static oColumnWidths As New ArrayList
Static oColumnTypes As New ArrayList
Static nHeight As Int16

Dim nWidth, i, nRowsPerPage As Int16
Dim nTop As Int16 = CShort(e.MarginBounds.Top)
Dim nLeft As Int16 = CShort(e.MarginBounds.Left)

If nPageNo = 1 Then

For Each oColumn As DataGridViewColumn In DataGridViewToPrint.Columns

nWidth = CType(Math.Floor(oColumn.Width / nTotalWidth * nTotalWidth * (e.MarginBounds.Width / nTotalWidth)), Int16)

nHeight = CShort(e.Graphics.MeasureString(oColumn.HeaderText, oColumn.InheritedStyle.Font, nWidth).Height + 11)

oColumnLefts.Add(nLeft)
oColumnWidths.Add(nWidth)
oColumnTypes.Add(oColumn.GetType)
nLeft += nWidth

Next

End If

Do While nRowPos < DataGridViewToPrint.Rows.Count

Dim oRow As DataGridViewRow = DataGridViewToPrint.Rows(nRowPos)

If nTop + nHeight >= e.MarginBounds.Height + e.MarginBounds.Top Then

DrawFooter(e, nRowsPerPage)

NewPage = True
nPageNo = CShort(nPageNo + 1)
e.HasMorePages = True
Exit Sub

Else

If NewPage Then

' Draw Header
e.Graphics.DrawString(Header, New Font(DataGridViewToPrint.Font, FontStyle.Bold), Brushes.Black, e.MarginBounds.Left, e.MarginBounds.Top - e.Graphics.MeasureString(Header, New Font(DataGridViewToPrint.Font, FontStyle.Bold), e.MarginBounds.Width).Height - 13)

' Draw Columns
nTop = CShort(e.MarginBounds.Top)
i = 0
For Each oColumn As DataGridViewColumn In DataGridViewToPrint.Columns

e.Graphics.FillRectangle(New SolidBrush(Drawing.Color.LightGray), New Rectangle(CInt(oColumnLefts(i)), nTop, CInt(oColumnWidths(i)), nHeight))
e.Graphics.DrawRectangle(Pens.Black, New Rectangle(CInt(oColumnLefts(i)), nTop, CInt(oColumnWidths(i)), nHeight))
e.Graphics.DrawString(oColumn.HeaderText, oColumn.InheritedStyle.Font, New SolidBrush(oColumn.InheritedStyle.ForeColor), New RectangleF(CSng(oColumnLefts(i)), nTop, CSng(oColumnWidths(i)), nHeight), oStringFormat)
i = CShort(i + 1)

Next
NewPage = False

End If

nTop += nHeight
i = 0
For Each oCell As DataGridViewCell In oRow.Cells

If oColumnTypes(i) Is GetType(DataGridViewTextBoxColumn) OrElse oColumnTypes(i) Is GetType(DataGridViewLinkColumn) Then

e.Graphics.DrawString(oCell.Value.ToString, oCell.InheritedStyle.Font, New SolidBrush(oCell.InheritedStyle.ForeColor), New RectangleF(CSng(oColumnLefts(i)), nTop, CSng(oColumnWidths(i)), nHeight), oStringFormat)

ElseIf oColumnTypes(i) Is GetType(DataGridViewButtonColumn) Then

oButton.Text = oCell.Value.ToString
oButton.Size = New Size(CInt(oColumnWidths(i)), nHeight)
Dim oBitmap As New Bitmap(oButton.Width, oButton.Height)
oButton.DrawToBitmap(oBitmap, New Rectangle(0, 0, oBitmap.Width, oBitmap.Height))
e.Graphics.DrawImage(oBitmap, New Point(CInt(oColumnLefts(i)), nTop))

ElseIf oColumnTypes(i) Is GetType(DataGridViewCheckBoxColumn) Then

oCheckbox.Size = New Size(14, 14)
oCheckbox.Checked = CType(oCell.Value, Boolean)
Dim oBitmap As New Bitmap(CInt(oColumnWidths(i)), nHeight)
Dim oTempGraphics As Graphics = Graphics.FromImage(oBitmap)
oTempGraphics.FillRectangle(Brushes.White, New Rectangle(0, 0, oBitmap.Width, oBitmap.Height))
oCheckbox.DrawToBitmap(oBitmap, New Rectangle(CType((oBitmap.Width - oCheckbox.Width) / 2, Int32), CType((oBitmap.Height - oCheckbox.Height) / 2, Int32), oCheckbox.Width, oCheckbox.Height))
e.Graphics.DrawImage(oBitmap, New Point(CInt(oColumnLefts(i)), nTop))

ElseIf oColumnTypes(i) Is GetType(DataGridViewComboBoxColumn) Then

oComboBox.Size = New Size(CInt(oColumnWidths(i)), nHeight)
Dim oBitmap As New Bitmap(oComboBox.Width, oComboBox.Height)
oComboBox.DrawToBitmap(oBitmap, New Rectangle(0, 0, oBitmap.Width, oBitmap.Height))
e.Graphics.DrawImage(oBitmap, New Point(CInt(oColumnLefts(i)), nTop))
e.Graphics.DrawString(oCell.Value.ToString, oCell.InheritedStyle.Font, New SolidBrush(oCell.InheritedStyle.ForeColor), New RectangleF(CInt(oColumnLefts(i)) + 1, nTop, CInt(oColumnWidths(i)) - 16, nHeight), oStringFormatComboBox)

ElseIf oColumnTypes(i) Is GetType(DataGridViewImageColumn) Then

Dim oCellSize As Rectangle = New Rectangle(CInt(oColumnLefts(i)), nTop, CInt(oColumnWidths(i)), nHeight)
Dim oImageSize As Size = CType(oCell.Value, Image).Size
e.Graphics.DrawImage(CType(oCell.Value, Image), New Rectangle(CType(oColumnLefts(i), Int32) + CType(((oCellSize.Width - oImageSize.Width) / 2), Int32), nTop + CType(((oCellSize.Height - oImageSize.Height) / 2), Int32), CType(oCell.Value, Image).Width, CType(oCell.Value, Image).Height))

End If

e.Graphics.DrawRectangle(Pens.Black, New Rectangle(CInt(oColumnLefts(i)), nTop, CInt(oColumnWidths(i)), nHeight))

i = CShort(i + 1)

Next

End If

nRowPos = CShort(nRowPos + 1)
nRowsPerPage = CShort(nRowsPerPage + 1)
Loop

DrawFooter(e, nRowsPerPage)

e.HasMorePages = False

End Sub

Private Sub DrawFooter(ByVal e As System.Drawing.Printing.PrintPageEventArgs, ByVal RowsPerPage As Int32)

'Changed from Page XXX of XXX to just Page XXX because
'Math.Ceiling(DataGridViewToPrint.Rows.Count / RowsPerPage).ToString() would generate
'inaccurate page numbers on pages with less than the max number of rows (ie: the last page)
'Dim sPageNo As String = nPageNo.ToString + " of " + Math.Ceiling(DataGridViewToPrint.Rows.Count / RowsPerPage).ToString
Dim sPageNo As String = "Page " + nPageNo.ToString

' Right Align - User Name
e.Graphics.DrawString("Printed by: " + sUserName, DataGridViewToPrint.Font, Brushes.Black, e.MarginBounds.Left + (e.MarginBounds.Width - e.Graphics.MeasureString(sPageNo, DataGridViewToPrint.Font, e.MarginBounds.Width).Width), e.MarginBounds.Top + e.MarginBounds.Height + 7)

' Left Align - Date/Time
e.Graphics.DrawString(Now.ToLongDateString + " " + Now.ToShortTimeString, DataGridViewToPrint.Font, Brushes.Black, e.MarginBounds.Left, e.MarginBounds.Top + e.MarginBounds.Height + 7)

' Center - Page No. Info
e.Graphics.DrawString(sPageNo, DataGridViewToPrint.Font, Brushes.Black, e.MarginBounds.Left + (e.MarginBounds.Width - e.Graphics.MeasureString(sPageNo, DataGridViewToPrint.Font, e.MarginBounds.Width).Width) / 2, e.MarginBounds.Top + e.MarginBounds.Height + 31)

End Sub
End Class