Printing the contents of a access table

[peet]

Private Sub Command1_Click()
    Dim p As Printer
    p.Print "blabla"
    p.Print "some more blabla"
    p.EndDoc
End Sub