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
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
( orderrepprint.html )- by Paolo Puglisi
- Modifica del 17/12/2023