不知道这个问题是不是太简单拉,没人回答。Printer.EndDoc命令后可以不换页吗?谢拉。。(200分)

  • 主题发起人 主题发起人 kuikui
  • 开始时间 开始时间
K

kuikui

Unregistered / Unconfirmed
GUEST, unregistred user!
Printer.EndDoc命令后可以不换页吗?怎么做阿?求教。。
 
当然换页的。若不换页,可以用printer.newpage强制换页
 
可是我不想让它自动换页阿。。
 
将Printer.EndDoc 放在整个打印处理的最后一句(所有的打印语句都在这句以前)。不就可以了吗 ?
 
to forlook:
因为我想及时打印,我都不知道什么时候打印下一个内容,而每次即时打印内容都很少,
不需要换页!
 
我也在找这方面的资料帮你提前吧。不过我真没心思了
 
不行
不能不换页
 
真的不行拉阿?难道是DELPHI的缺陷?
 
不是Delphi的问题
Windows系统API的EndDoc就是这样的,Delphi的EndDoc只是系统API的包装
 
若想不换页,你可以按每次打印大小自定义纸张,可使用通常打印函数,否则只能用行打印
不能用通常函数
 
Printer.Abort不知道行不行...
 
这个问题我在做打印及时告警时遇到过,看了所有资料都不行。
而后没办法,采用了低级简单办法,只能打印单色文本文件,
不知你需不需要。
 
To:Hello_90
多谢阿,看样子我们遇到同样的问题拉,可以EMAIL给我看看吗?luchengkui@fcsh.com.cn
 
其实很简单,在dos下:
type a.txt > prn
是不是把a.txt内容输出到打印机上,而不换行?
如果是,那就成功了一半,如果不是我也不行。
最后在程序中调用dos命令成功解决。
 
只能打印文本,或者自己发送打印机控制命令打印复杂图形,通过直接写lpt口,不通过windows的打印驱动
var
f: TextFile;
begin
AssignFile(f,'lpt1:');
Rewrite(f);
Write(f,'abcdef/r/n');
CloseFile(f);
end;
 
我试过CloseFile(f)则会进页
 
一般的针式或者喷墨打印机就不会,激光的就不行了
 
一般的针式或者喷墨打印机只需要自定义纸张大小就行了,打到哪里就停在哪里,不用换页
 
多人接受答案了。
 

Similar threads

S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
D
回复
0
查看
2K
DelphiTeacher的专栏
D
D
回复
0
查看
2K
DelphiTeacher的专栏
D
D
回复
0
查看
1K
DelphiTeacher的专栏
D
后退
顶部