Printer Error 482

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

Jim K - 19 Jun 2005 13:34 GMT

I have done 2 things to my computer and I am not able to print the
following code without a 482 error. The first thing is I upgraded from
Win 98 to Win XP. The 2nd thing is I installed a new Epson printer and
driver (C66). All other print programs work (Notes, Word, etc. so it is
not the printer). The following code worked before but errors out
(482)now as soon as it hits the first Printer.Print " " line.

Can anyone help? Thanks in advance.

Private Sub cmdPrint_Click()

Dim PrinterFont, x
Printer.Print " "
Printer.Print
PrinterFont=Printer.Font
Printer.Font = ""
Printer.FontSize = "12"
Printer.Font = "Courier New"
Printer.Print " "
Printer.Print Spc(10); "This is a test!"
Printer.EndDoc

End Sub

Jim K
Las Vegas, Nevada

Reply to this Message

Christian Hubert-Hugoud - 19 Jun 2005 14:54 GMT

Hi,

Why this line ? :
Printer.Font = ""

Maybee it creates a problem...

Christian

>I have done 2 things to my computer and I am not able to print the
> following code without a 482 error. The first thing is I upgraded from
[quoted text clipped - 24 lines]
>
> *** Sent via Developersdex http://www.developersdex.com ***

Reply to this Message

Jim K - 19 Jun 2005 15:30 GMT

This program was written in 1999. As I remember, it just allows the
resetting of the font. Nevertheless, if removed it still errors at the
first line of Printer.Print code.

Thanks,

Jim K
Las Vegas, Nevada

Reply to this Message

Christian Hubert-Hugoud - 19 Jun 2005 15:46 GMT

Maybe you can try in the very first things to do...

1) Pinter.Print
2) Printer.CurrentX = 1 (the same with CurrentY)

> This program was written in 1999. As I remember, it just allows the
> resetting of the font. Nevertheless, if removed it still errors at the
[quoted text clipped - 6 lines]
>
> *** Sent via Developersdex http://www.developersdex.com ***

Reply to this Message

VB Forum / COM / June 2005

Printer Error 482