printout different on every printer?
I am having problems printing. On my machine (the one I make programs on), I
have an HP Deskjet 870. I use Printer.Print "blah blah" and Printer.Line
statements in my print procedure to print a report. On my computer, every
thing prints out with no problems. I gave the finished program to someone in
my office to test (they have a HP Laserjet 6L) and most of the lines dont print
out, but all of the text does. I tried it out on a few different printers, and
found that some printers won't print some of the lines, 4 different printouts
on 4 different printers (only one is correct, my printer). I am including a
few sample lines of the code used in printing. Any ideas??
Printer.FontSize = 12
Printer.FontBold = False
Printer.CurrentX = 16700
Printer.CurrentY = 300
Printer.Print "Page _____ of _____"
Printer.DrawWidth = 5
Printer.Line (200, 650)-(19440, 11165), , B 'Box1
Printer.Line (200, 1360)-(19440, 1360) 'H1
Printer.DrawWidth = 2
Printer.Line (200, 2100)-(19440, 2100) 'H2
Printer.CurrentX = 350
Printer.CurrentY = 880
Printer.FontSize = 8.25
Printer.Print "PRINT NAME OF"
Printer.CurrentX = 7700
Printer.CurrentY = 880
Printer.Print "TELEPHONE"
....
Printer.FontSize = 9.75
Printer.CurrentX = 17500
Printer.CurrentY = 300
Printer.Print CurrentPage
Printer.CurrentX = 2000
Printer.CurrentY = 1050
Printer.Print Name
Printer.CurrentX = 9130
Printer.CurrentY = 1050
Printer.Print Left$(TelephoneNumber, 3)
Printer.CurrentX = 10000
Printer.CurrentY = 1050
Printer.Print Mid$(TelephoneNumber, 5, 3)
Printer.CurrentX = 11100
Printer.CurrentY = 1050
Printer.Print Right$(TelephoneNumber, 4)
Printer.CurrentX = 760
Printer.CurrentY = 1800
Printer.Print Boro
This is the only way I could find out on how to print something (the PrintForm
wouldn't work because the report prints out on 8 1/2" x 14" paper, and my
clients can't see a form that size on their screen).
