Printing--Think I'm Using The Wrong Code

[flame_211]

I Am having trouble with this code:

Dim Response, xpos
If Text1 = "" Then
MsgBox "You Need To Have A Recipe In The Text Box."
Else
Response = MsgBox("Are You Sure You Wanna Print?", vbYesNo, "Print...")
If Response = vbYes Then
Timer1.Enabled = True
xpos = 10
Printer.ScaleLeft = xpos
Printer.Print Text1
cancelprint.Enabled = True
End If
End If

Can Anyone see anything wrong with the code, i try
to print and then the printer keeps reading spooling.
And when i press stop on the play stop thing at the top, it starts printing.

any help will be greatly appreciated,

Flame

[Edited by flame_211 on 10-09-2000 at 10:23 PM]

[kokopeli]

you need

Printer.EndDoc

put that after Printer.Print

[flame_211]

then it will stop spooling and start printing?

[kokopeli]

I commented out your cancelprint call and put the Printer.Endoc there and it worked. You need a space between your double quotes too.Text1.Text = " " like this. you have "". That didn't work. You wont get the message box to put a recipe in if you dont.