Creare un Report passo passo?[vb6]

[amodio]

ecco come stampare il contenuto di una grid

Sub PrintGrid
    Dim t%, s%
    For t% = 0 To Grid1.Rows -1
        Grid1.Row = t%
        For s% = 0 To Grid1.Cols -1
            Grid1.Col = s%
            Printer.Print Grid1.Text
        Next s%
    Next t%
End Sub