I’m using VB.Net 2008 application program.

I’m using DataGridView. I have a Print Preview option where i need to print the DataGridView.

Using "DataGridView1.Rows.Add" i’m adding rows to datagridview.

I’m using this code for Print Preview.

Dim MyDataGridViewPrinter As DataGridViewPrinter


    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

        PrintDocument1.PrinterSettings = MyPrintDialog.PrinterSettings
        PrintDocument1.DefaultPageSettings.Margins = New Margins(10, 10, 10, 10)

        MyDataGridViewPrinter = New DataGridViewPrinter(DataGridView1, PrintDocument1, False, True, "Manager", New Font("Tahoma", 18, FontStyle.Bold, GraphicsUnit.Point), Color.Black, True)

        Return True
    End Function

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

        more = MyDataGridViewPrinter.DrawDataGridView(e.Graphics)
        If more Then e.HasMorePages = True
    End Sub


    ' The Print Preview Button
    Private Sub btnPrintPreview_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPrintPreview.Click
        If SetupThePrinting() Then
            Dim MyPrintPreviewDialog As PrintPreviewDialog = New PrintPreviewDialog()
            MyPrintPreviewDialog.Document = PrintDocument1
            MyPrintPreviewDialog.ShowDialog()
        End If
    End Sub

I searched a lot, but I couldn’t find it.

If you know how i can Save Print Preview inside text file or Excel, please help me. If you can provide an example, that will be so helpful.

Thanks in advance.

Instead of using a PrintPreview you can

A) Take a Direct Print Screen of the DataGrid and Save it as JPG

Dim bt As New Bitmap(DataGridView1.Width, DataGridView1.Height)
Dim gr As Graphics = Graphics.FromImage(bt)

bt.Save("D:\Demot.jpg")

Or

B) Export the DataGridView Directly to a CSV Format or Text Format

Dim strW As New StreamWriter(SaveFileDialog1.FileName)
strW.WriteLine("Sr,Name,Phone Number,Email ID,Date of Birth")
For i As Integer = 0 To DataGridView1.Rows.Count - 1
strW.WriteLine(String.Format("{0},{1},{2},{3},{4}" , i + 1, DataGridView1.Rows(i).Cells(1).Value, DataGridView1.Rows(i).Cells(2).Value, DataGridView1.Rows(i).Cells(3).Value, DateTime.Parse(DataGridView1.Rows(i).Cells(4).Valu e).ToString("dd-MMM-yyyy")))
Next
strW.Close()

Please note
The 2nd Line defines the Columns you want..

strW.WriteLine("Sr,Name,Phone Number,Email ID,Date of Birth")