OrderRepPrint

Dim SQL$
Dim rs As Recordset
SQL$ = "SELECT * FROM " & yourtable
SQL$ = SQL$ & " ORDER BY " & yoursortingfield
Set rs = OpenRecordset(SQL$)
Do While Not rs.EOF
'print all

rs.MoveNext
Loop
rs.Close