codice:
Dim r
Dim c
 With MSFlexGrid1
        For r = 0 To .Rows - 1
            For c = 1 To .Cols - 1
                Printer.Print .TextMatrix(r, c) & vbtab & vbtab
            Next c
            Printer.Print
        Next r
    End With
    Printer.EndDoc