Anybody knows the code to PRINT TO LPT1

[JuanjoZun]

Hello...

I just forget the Code to Print to LPT1 Port... you know,
I need to send text to a printer connected in LPT1 port...

Please Help me.


Thanks
Juanjo



Follow the dark side, so you can reach the light.

 

[LorenPechtel]

You can actually worry about sending it to the port but I would recommend against this unless you have good reason. It's a lot simpler to simply send it to a text file opened to LPT1. That makes it a lot easier for network redirection and the like.

 

[Bertv100]

If you include the unit printer, there is a predefined text file variable lst you can use:

USES printer;
BEGIN
  write(lst,'Hello printer!#12'); {Send a string followed by a FF}
END.

If you want to write to a specific port, you can try this:

VAR prn : text;
BEGIN
  assign(prn,'LPT1'); {Other ports may be LPT2, ..., COM1, COM2, ...}
  rewrite(prn);
  write(prn,'Hello printer!#12'); {Send a string followed by a FF}
  close(prn);
END.

Regards,
Bert Vingerhoets
vingerhoetsbert@hotmail.com

http://student.vub.ac.be/~bvingerh/

Don't worry what people think about you. They're too busy wondering what you think about them.

 

[JuanjoZun]

Thank you very much!! It's the thing I wanted to know...

Thanks

Regards
Juanjo

Follow the dark side, so you can reach the light.