Puedes hacer algo sencillo con el Printer, ejemplo:
Private Sub CMDIMPRIMIR_Click()
Dim i As Integer
Dim p As Integer
encab
With MSFsistema
For i = 0 To MSFsistema - 1
Printer.Print Tab(5); .TextMatrix(i, 0);
Printer.Print Tab(10); .TextMatrix(i, 1);
Printer.Print Tab(15); .TextMatrix(i, 2);
Printer.Print Tab(20); .TextMatrix(i, 3);
Printer.Print Tab(25); .TextMatrix(i, 4);
Printer.Print Tab(30); .TextMatrix(i, 5);
p = p + 1
If p > 60 Then
Printer.NewPage
encab
p = 0
End If
Next
Printer.EndDoc
End Sub
Private Sub encab()
hoja = hoja + 1
Printer.Font.Bold = True
Printer.Print Tab(30); "venta de blocks"
Printer.Print Tab(25); "Blockreto del pacifico"
Printer.Print Tab(60); "hoja #:";
Printer.Print Tab(75); hoja
Printer.Print Tab(5); ""
End Sub