怎么样实现即打即停，就像Pos打印机似的？？？救命 ( 积分: 100 )

M

merry_bip

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-06-03

• #1

怎么样实现即打即停，就像Pos打印机似的？？
我用的是FastReport控件，针式打印机，有没有兄弟做过，帮帮我哈
就是在打印后，还要走空白的纸，怎么控制不要空白走纸？？？
分不够还可以加！！！

 

M

merry_bip

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-06-03

• #2

怎么样实现即打即停，就像Pos打印机似的？？
我用的是FastReport控件，针式打印机，有没有兄弟做过，帮帮我哈
就是在打印后，还要走空白的纸，怎么控制不要空白走纸？？？
分不够还可以加！！！

 

M

merry_bip

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-06-03

• #3

怎么没有人理我

 

B

bloodymary

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-06-03

• #4

我也想知道，但是，建议你看看Printers单元
uses Printers，然后看看里面的函数

 

J

jake502010

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-06-03

• #5

pos机小票編程
打印代码}
procedure TForm1.Button1Click(Sender: TObject);
var
RPrinter:TextFile;
i:integer;
begin

{设置打印机}
Assignfile(RPrinter,'lpt1');

{准备写文件}
Rewrite(RPrinter);

{打印}
for i := 0 to memo1.lines.Count - 1do
Writeln(RPrinter,memo1.lines);
{向后倒纸}
Writeln(RPrinter,chr($b)+chr(27)+'K'+chr(40));

{向前进纸}
Writeln(RPrinter,chr($b)+chr(27)+'J'+chr(140));

{开钱箱}
writeln(f,CHR(27)+CHR(112)+CHR(0)+CHR(17)+CHR(8));
write(f,CHR(27)+CHR(112)+CHR(0)+CHR(17)+CHR(8));
Chr(27)+'p'+chr(0)+chr(60)+chr(255)
{关闭打印机}
CloseFile(RPrinter);
end;