PrintGrid1

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