'This is a very easy way to print a grid if you want it to go directly to the
printer
'Prints a grid with 11 rows and 7 columns

Private Sub mnuFilePrint_Click()

        Dim iRow As Integer

        For iRow = 0 To 10      ' (Only prints 11 rows) if you know the number
of rows                                           ' replace the 10. If you keep
track of the rows when                                              ' filling
the grid relpace the 10
                Printer.Print Spc(5); _   'Start 5 spaces from edge of paper
                        flxgrdMyGrid.TextMatrix(iRow, 0); Tab(20); _
                        flxgrdMyGrid.TextMatrix(iRow, 1); Tab; _
                        flxgrdMyGrid.TextMatrix(iRow, 2); Tab; _
                        flxgrdMyGrid.TextMatrix(iRow, 3); Tab; _
                        flxgrdMyGrid.TextMatrix(iRow, 4); Tab; _
                        flxgrdMyGrid.TextMatrix(iRow, 5); Tab; _
                        flxgrdMyGrid.TextMatrix(iRow, 6)
                Printer.Print    'Prints blank line for double spacing
        Next iRow
        Printer.EndDoc

Exit Sub