Print grid (VB3, 4)

I found this method to prind a 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
Nex s%
Next t%
End Sub

But with this method, the printer prints all the contents
of one row in one column under each other

The grid looks e.g. like this:
Name Name2 Birth XYZ

And the printer prints it in this way:
Name
Name2
Birth
XYZ

Is there a better method ?

Thanks for some help, Matt :)
I hope you understand my (german) english!