delphi 如何直接打印字符到打印机? ( 积分: 50 )

H

hhi179

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-03-24

• #1

我知道VB的这些以下语句打可以直接打印字符串(如POS的小票打印机):
Open "LPT1:" For Binary Access Write As #1 ' 打开打印机端口
Put #1, , "打印输出的内容"
Close #1 '关打印端口
但在Delphi我不知道如何写,请教各位.

 

D

delhpi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-03-24

• #2

向打印口写命令:
Writeln(code_bar1,#10); //换行
Writeln(code_bar1,#12) //换页

 

3

3304xfq

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-03-24

• #3

openfile('PRN',)
write(....

 

草

草原骏马

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-03-24

• #4

procedure TForm1.Button1Click(Sender: TObject);
var
TxtFile : TextFile;
i : integer;
begin
AssignFile(TxtFile, 'LPT1');
ReWrite(TxtFile);
Writeln(TxtFile, 'ABCDEFGHIJKLMNOPQRST1234567890');
CloseFile(TxtFile);
end;

 

J

JohnSun2002

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-03-24

• #5

楼上的可以，模拟文件操作，用Writeln就行了

 

H

hhi179

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-03-30

• #6

谢了