请问如何让打印机打完以后打印纸能多出来一点! ( 积分: 100 )

  • 主题发起人 主题发起人 gbyang
  • 开始时间 开始时间
G

gbyang

Unregistered / Unconfirmed
GUEST, unregistred user!
现在打印完之后纸并没有全部出来留在里边一部分这样每次打印后都要转一下打印机!比较麻烦!!!
 
现在打印完之后纸并没有全部出来留在里边一部分这样每次打印后都要转一下打印机!比较麻烦!!!
 
通过打印机面板上的按钮设置(参照说明书),一般在套打时会用到
 
程序能不能控制呀,我这里是套打,而且是那种带孔的连在一起的纸!!
 
我这里是EPSON 300K的打印机,好像没什么可设置的啊!!
 
什么自动切纸、自动分页之类的,你看看说明书,上面有怎么设置
 
晕死,打印机的自动切纸功能可以了。
按着字体健开打印机可以了。然后根据打印出来的内容进行设置,记住,开机前先三页A4纸。
 
设置了一下,好像还是有点短,撕起来不方便!!!
 
我以前做的时候是发相关的指令的。
你看看使用说明说上有没有相关的指令!
不知道能不能帮助你!
 
var F:TextFile;
begin
assignfile(f,'lpt1');
//*********************************************打印:
rewrite(f);
writeln(f,' ');
writeln(f,' ');
writeln(f,' ');
writeln(f,' ');
writeln(f,' ');
writeln(f,icnum+inttostr(id+1)+' '+ Trim(OilType)+ ' '+ floattostr(lit) +''+floattostr(money)+' '+' '+ datetimetostr(now) );
writeln(f,' ');
writeln(f,' ');
writeln(f,' '+datetimetostr(now));
writeln(f,' ');
writeln(f,' ');
closefile(f);
end;

要多走几行,可以在后面多加几行 writeln(f,'')的
 
我用的是quickreport这个东东写到那个事件里呀!
 
关键是怎么向打印机发送呀,我是菜鸟,各位老大帮个忙!!!
 
参考rixwy的代码
procedure TForm1.Button1Click(Sender: TObject);
var
F:TextFile;
begin
assignfile(f, 'lpt1');
rewrite(f);
writeln(f, ' ');
writeln(f, ' ');
closefile(f);
end;
 
如果用quickreport好像不能这样用,是不是只能用打印对象!
 
F:TextFile,这个东东在quickreport中怎么写呀~!!!!
 
在你的打印按钮的单击事件中或者在QuickRep1AfterPrint事件中写
 
简单的办法就是设置QR的长度比实际内容长一些就可以了
 
但是他是有连打的呀,就是有连着打两张的,如果设置大的话就串纸了!!!
 
多人接受答案了。
 
后退
顶部