Option Explicit

Private Sub Command1_Click()

Dim I As Long, J As Long, K As Long

Dim PrintString As String

For I = 0 To Data1.Recordset.RecordCount - 1

If K = DBGrid1.VisibleRows Then

DBGrid1.Scroll 0, DBGrid1.VisibleRows

K = 0

End If

For J = 0 To DBGrid1.Columns.Count - 1

PrintString = PrintString &

DBGrid1.Columns(J).CellText(DBGrid1.RowBookmark(K)) & "/"

Next

Printer.Print PrintString

PrintString = ""

K = K + 1

DoEvents

Next

End Sub

 

Private Sub Form_Activate()

Data1.Recordset.MoveLast

Data1.Recordset.MoveFirst

End Sub