怎么来实现打印停段?(12分)

K

ksaiy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-22

• #1

printer.BeginDoc;
Printer.Canvas.TextOut(10,10,'大富翁论坛');
Printer.EndDoc;
怎么来实现打印停段?就像打印票据一样打印完一张票据就停止!谢谢

 

Y

yanghai0437

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-22

• #2

在dos下就可以，在windows98下好像不能打印中文，我曾经试过也可以停
就是直接写到打印机

 

K

ksaiy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-22

• #3

var
FileStr: TextFile;
begin
AssignFile(FileStr,'Lpt1');
Rewrite(FileStr);
Write(FileStr,' '+'收费总额：'+JCFFrm.Edit14.text+#13+#10);
CloseFile(FileStr);
end;
但我这样往端口写数据出现的是乱码?