E
ego
Unregistered / Unconfirmed
GUEST, unregistred user!
纸张是自定义的12cm * 13.8cm，我用以下的代码控制LQ-300K打印机换页，结果走纸走了两页多，为什么？
var
MyFile:TEXTFILE;
strTemp: string;
begin
Assignfile(MyFile,'lpt1');
Rewrite(MyFile);
Writeln(MyFile,chr(27)+'@');
writeln(MyFile, char(12));
System.CloseFile(MyFile);
end
var
MyFile:TEXTFILE;
strTemp: string;
begin
Assignfile(MyFile,'lpt1');
Rewrite(MyFile);
Writeln(MyFile,chr(27)+'@');
writeln(MyFile, char(12));
System.CloseFile(MyFile);
end
]