1. You need to use EndDoc method to print, i.e
Code:
Printer.Print "This is a test"
Printer.EndDoc
2. You can substitute tabs with spaces:
Code:
Dim strText

strText = Replace(Text1.Text, Chr(9), "    ")
Printer.Print
Printer.EndDoc

Note: must have VB6 installed in order to use Replace function. If you have earlier version then you would have to parse the string manually to change the it.

[Edited by Serge on 05-01-2000 at 08:25 PM]