Euro-character on epson 
Author Message
 Euro-character on epson

Hi,
I'm trying to make a program that prints the euro-symbol on my printer
(Epson Stylus 440)
There is no such symbol in the standard characterset, so I have to create
it.
I have some succes with it.
In the program below I give at the end the instruction to print the
euro-symbol 10 times.
But there is the problem: my printer prints it only one time, and then a few
marks on my paper.
So there is something wrong.

May be there is someone who can help me?
Wim

The program is:
program euro;
uses printer;
const
EuroArr:Array[1..108] of byte = (
0,0,0, 0,0,0, 0,68,0, 0,204,0, 0,204,0, 0,204,0, 0,252,0, 1,254,0, 3,255,0,
15,205,128, 28,204,192, 24,204,96, 48,204,112, 48,204,48, 96,204,48,
96,204,24, 96,204,24,
64,204,24, 192,204,8, 192,204,12, 192,204,12, 192,204,12, 192,204,12,
192,204,12, 192,204,12,
192,204,8, 64,204,24, 96,200,24, 96,192,24, 96,192,56, 48,128,48, 56,0,112,
24,0,0,
16,0,0, 0,0,0, 0,0,0);

esc= #27;

var i: integer;

begin
write(lst,esc,'%0'); {ROM}
write(lst,esc,'x1'); {LQ mode}
write(lst,esc,':'#0#0#0); {copy ROM to RAM}

write(lst,ESC, '&'#0#85#85#0#36#0); {teken toevoegen}
for i:=1 to 108 do write(lst,chr(EuroArr[i]));
write(lst,esc,'%0',esc,'t2'); {copy to upper part of characterset}
for i:=1 to 10 do writeln(lst,#213);
end.



Sun, 20 Jun 2004 17:45:30 GMT  
 
 [ 1 post ] 

 Relevant Pages 

1. Printing the Euro character ...

2. Euro Character in TurboPascal

3. Euro character

4. converting string characters to char characters

5. Epson ESC kodovi...

6. Printing with Epson Stylus 400 & error 160

7. Epson printers

8. Help, Epson -> Fax

9. LQ printing of screen on 24pin Epson

10. Landscape with Epson stylus

11. screen dump to either HP or EPSON-PRINTER

 

 
Powered by phpBB® Forum Software