打印Datagrid的代码.再问个问题!

Private Sub Command1_Click()
    Dim i As Integer
    Dim j As Integer
    Dim iRowCount As Integer
    Dim iColCount As Integer
    iRowCount = dbg.ApproxCount
    iColCount = dbg.Columns.Count
    Dim iRowCountVisible As Integer
    Dim iColCountVisible As Integer
    iRowCountVisible = dbg.VisibleRows   
    iColCountVisible = dbg.VisibleCols
    Dim iLineCount As Integer
    Dim iCurRecord As Integer
    Dim iRecordCount As Integer
    iRecordCount = dbg.ApproxCount
    Dim bLast As Boolean
    bLast = True
    Do While bLast
        If dbg.VisibleRows = 0 Then
            bLast = False
            Exit Do
        End If
            
        If dbg.VisibleRows < 16 Then
            bLast = False
        End If
        
        For i = 0 To iRowCountVisible - 2
            dbg.Row = i
            For j = 0 To iColCount - 1
                dbg.Col = j
                If dbg.Columns(j).Visible = True Then
                    Debug.Print " |" & dbg.Text;
                End If
                iLineCount = iLineCount + 1
            Next
            Debug.Print
        Next
        dbg.Scroll 0, dbg.VisibleRows - 1
        iCurRecord = iCurRecord + iRowCountVisible - 1
    Loop
    'Debug.Print iLineCount
End Subdbg为DataGrid,与ado(ADODC)关联.ado的数据库为vb自带的NWIND.MDB,CommandType为2,RecordSource为Products.dbg可见行为16(即可以显示出来16行).
打印的最后有问题,重复打印出了部分记录,麻烦帮忙改正一下!问题似乎主要在dbg.Scroll 0, dbg.VisibleRows - 1这一句,急!!各位帮忙!