如何直接对打印机编程实现打印，而无需安装打印驱动程序？

[lauweiaaa]

邮箱
[e-mail]

[lauweiaaa]

兄弟， 你这不跟没说一样嘛。。。

[aiirii]

打印机ESC控制字符的使用

以下纯属举例，我几年前做过Unix下的打印，知道过程应该是这样的，但举例用的换码序列一定是不确切的，需要用你从手册上查出来的来替代：
-----------------------
比方说，手册上说明:
^[1B 粗体
^[0B 正常字体
你想打印字符串：
I am a hero.
其中，“am”为粗体，其他部分为正常字体，在Delphi中代码是：
assignfile(f,'lpt1');//"把这个直接输出到操作系统的打印虚拟文件"

s := 'I ' + #27'1B' + 'am' + #27'0B' + ' a hero.';
writeln(f,s);

closefile(f);

[WWWWA]

如你的打印机有硬字库的话：
var
F:TEXTFILE;
BEGIN
ASSIGNFILE(F,'LPT1');
REWRITE(F);
WRITELN(F,chr(27) '@'); //initial the printer
WRITELN(F,'TEST1 FIRST LINE');你的内容
WRITELN(F,chr(12)); // move the paper to a new page
CLOSEFILE(F);

[konhon]

直接写打印端口。

var
F:TEXTFILE;
BEGIN
ASSIGNFILE(F,'LPT1');
REWRITE(F);
WRITELN(F,chr(27) '@'); //initial the printer
WRITELN(F,'TEST1 FIRST LINE');你的内容
WRITELN(F,chr(12)); // move the paper to a new page
CLOSEFILE(F);
end;

[VeryOldMan]

直接对端口写一些二进制串，且这些串恰好是打印机所能识别的控制命令，那么恭喜你！

如果操作系统不允许你直接写端口，或你写的串恰好打印机不认识，则：革命商未成功，同志请继续努力.....