VB 6.0 - how to print datagrid in vb6?

try this

Private Function PrintDataGrid(ByVal g As Graphics) As Boolean
  Dim sf As StringFormat = New StringFormat
  PageCounter = PageCounter + 1
  'if we want to print the grid right to left
  If (bRightToLeft) Then
    CurrentX = PrintDoc.DefaultPageSettings.PaperSize.Width_
               - PrintDoc.DefaultPageSettings.Margins.Right
    sf.FormatFlags = StringFormatFlags.DirectionRightToLeft
  Else
    CurrentX = PrintDoc.DefaultPageSettings.Margins.Left
  End If

  Dim i As Integer
  For i = CurrentRow To PrintGrid.Rows - 1
    Dim j As Integer
    For j = 0 To PrintGrid.Columns - 1
      'set cell alignment
      Select Case (PrintGrid.Cell(i, j).Alignment)
        'left
        Case HorizontalAlignment.Left
          sf.Alignment = StringAlignment.Near
        Case HorizontalAlignment.Center
          sf.Alignment = StringAlignment.Center
        'right
        Case HorizontalAlignment.Right
          sf.Alignment = StringAlignment.Far
      End Select

      'advance X according to order
      If (bRightToLeft) Then
        'draw the cell bounds (lines) and back color
        g.FillRectangle(New SolidBrush(PrintGrid.BackColor), _
            CurrentX - PrintGrid.Cell(i, j).Width, CurrentY, _
            PrintGrid.Cell(i, j).Width, PrintGrid.Cell(i, j).Height)
        g.DrawRectangle(New Pen(PrintGrid.LineColor), _
            CurrentX - PrintGrid.Cell(i, j).Width, CurrentY, _
            PrintGrid.Cell(i, j).Width, PrintGrid.Cell(i, j).Height)

        'draw the cell text
        g.DrawString(PrintGrid.Cell(i, j).CText, _
            PrintGrid.Cell(i, j).Font, New SolidBrush(PrintGrid.ForeColor),_
            New RectangleF(CurrentX - PrintGrid.Cell(i, j).Width, _
            CurrentY, PrintGrid.Cell(i, j).Width, _
            PrintGrid.Cell(i, j).Height), sf)

        'next cell
        CurrentX -= PrintGrid.Cell(i, j).Width
      Else
        'draw the cell bounds (lines) and back color
        g.FillRectangle(New SolidBrush(PrintGrid.BackColor), _
          CurrentX, CurrentY, PrintGrid.Cell(i, j).Width, _
          PrintGrid.Cell(i, j).Height)
        g.DrawRectangle(New Pen(PrintGrid.LineColor), CurrentX, _
          CurrentY, PrintGrid.Cell(i, j).Width, _
          PrintGrid.Cell(i, j).Height)
        'Draw text by alignment
        g.DrawString(PrintGrid.Cell(i, j).CText, _
          PrintGrid.Cell(i, j).Font, New SolidBrush(PrintGrid.ForeColor),_
          New RectangleF(CurrentX, CurrentY, _
          PrintGrid.Cell(i, j).Width, PrintGrid.Cell(i, j).Height), sf)

        'next cell
        CurrentX += PrintGrid.Cell(i, j).Width
      End If
    Next

    'reset to beginning
    If (bRightToLeft) Then
      'right align
      CurrentX = PrintDoc.DefaultPageSettings.PaperSize.Width_
                 - PrintDoc.DefaultPageSettings.Margins.Right
    Else
      'left align
      CurrentX = PrintDoc.DefaultPageSettings.Margins.Left
    End If

    'advance to next row
    CurrentY += PrintGrid.Cell(i, 0).Height
    CurrentRow += 1
    'if we are beyond the page margin (bottom)
    'then we need another page,
    'return true
    If (CurrentY > PrintDoc.DefaultPageSettings.PaperSize.Height_
              - PrintDoc.DefaultPageSettings.Margins.Bottom) Then
      Return True
    End If
  Next
  Return False
End Function

http://www.codeproject.com/KB/printing/DataGrid_Printing_Class.aspx

Private Sub Command2_Click()
Dim i As Integer
For i = 0 To DataGrid1.Columns.Count - 1
DataGrid1.Col = i
printer.Print DataGrid1.Text
Next
End Sub
printer.enddoc

Thanks and Regards,
http://www.CodeCollege.NET
http://www.InterviewsGuru.info

Private Sub btnPrint_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPrint.Click
        Dim stringWrite As New System.IO.StringWriter()
        Dim htmlWrite As New System.Web.UI.HtmlTextWriter(stringWrite)
        Dim w As System.Web.UI.WebControls.Unit
        w.Pixel(400)
        DataGrid1.Width = w
        Dim scr As String = "<script>function window.onafterprint(){history.back(1);}</script>"

        htmlWrite.Write(scr)
        Dim str As String = "" '"<div align=center id=titl1><h3><Font face=Verdana>Your DataGrid:</font></h3></div>"
        htmlWrite.Write(str)
        DataGrid1.RenderControl(htmlWrite)
            Dim strHTML As String = stringWrite.ToString()
        Response.Clear()
       ' you could send it to Excel, too....
        'Response.ContentType = "application/vnd.ms-excel"

        Response.ContentType = "text/HTML"
        Response.Write(strHTML)
        Response.Write("<script>window.print();</script>")
        Response.End()
    End Sub