有没有高手可以解决这个问题阿，菜鸟请勿打扰，谢谢

'要试用本例请在窗体加一个FlexGrid和一个按钮,然后在代码粘贴如下代码
'本例只是示意,具体细节如页高等问题就留给你自己啦
Private Sub Command1_Click()
    Dim lngRow As Long
    Dim lngCol As Long
    
    '打文本内容
    For lngRow = 1 To grdTest.Rows - 1
        grdTest.Row = lngRow
        
        For lngCol = 1 To grdTest.Cols - 1
            grdTest.Col = lngCol
            Printer.CurrentX = grdTest.CellLeft
            Printer.CurrentY = grdTest.CellTop
            Printer.Print grdTest.TextMatrix(lngRow, lngCol)
        Next
    Next
    
    '画横线
    grdTest.Col = 1
    For lngRow = 1 To grdTest.Rows - 1
        grdTest.Row = lngRow
        Printer.Line (0, grdTest.CellTop + grdTest.CellHeight)-(grdTest.Width, grdTest.CellTop + grdTest.CellHeight)
    Next
    
    '画竖线
    grdTest.Row = 1
    For lngCol = 1 To grdTest.Cols - 1
        grdTest.Col = lngCol
        Printer.Line (grdTest.CellTop + grdTest.CellHeight, 0)-(grdTest.CellTop + grdTest.CellHeight, grdTest.Height)
    Next
    
    Printer.EndDoc
End Sub