Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

Printing on EPSON LX-300 dot-matrix printer?

372 views
Skip to first unread message

HarisCo

unread,
Jul 1, 2008, 5:38:39 AM7/1/08
to
Hello

I use Delphi 6 and need print reports on EPSON LX-300 dot matrix printer. Do
I need special component or I must use Printers in uses clause? I must
define font size and spacing ...

Thank you


Michael Philippenko

unread,
Jul 9, 2008, 4:59:04 AM7/9/08
to
Send text with ESC-commands to printer.

Or do you need printing in graphic mode?

"HarisCo" <jah...@gmx.net> wrote:
news:4869...@newsgroups.borland.com...

--
Best regards,
Michael Philippenko mailto:mic...@fast-report.com
Fast Reports - cross-platform multi-language solutions for developers
http://www.fast-report.com

HarisCo

unread,
Jul 14, 2008, 4:17:29 AM7/14/08
to
I need to print exlusive in text mode, please can you send me detailed
example how to implement ESC commands in Delphi 6 (ex. Font Size, Bold, Font
Spacing)?

Thank you


Luis

unread,
Jul 15, 2008, 2:19:53 PM7/15/08
to
Hi, Here is a extract of how to print in dos mode with an Epson LX-300:

procedure TReciboForm.PrintRecibo(nCopias: Integer);
var
F: TextFile;
i: integer;
t: integer;
begin
AssignFile(F,ComboBox1.Text); //or 'LPT1:' if you want to print on this
port
Reset(F);
Rewrite(F);
// Some character control
Write(F,#27#70#120#0);
Write(F,#27#67#36);
Write(F,#27#33#1);

for i:= 1 to nCopias do
begin
Writeln(F,'');
WriteLn(F,Space(77)+IntToStrZero(Centro,4)+'-'+IntToStrZero(NroRecibo,8));
Writeln(F,'...some text');
end;
CloseFile(F);
end;

If you don't have the character control for LX-300 printer please e-mail me
and I can send to you.
I hope that this will be useful.
Luis

"HarisCo" <jah...@gmx.net> wrote in message
news:487b0ba4$1...@newsgroups.borland.com...

0 new messages