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
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
( printgrid1.html )- by Paolo Puglisi
- Modifica del 17/12/2023