打印机的驱动是内置在打印机里的,直接发送数据到并口即可Var F:TextFile;
Str:string;
Begin
try
Str:='欢迎使用票据打印机!'+Chr(13) + chr(10);AssignFile(F, 'LPT1');Rewrite(F);
Printer.Canvas.Font.Size :=22;
Write(F, Str);
CloseFile(F);
Except
Messagedlg('数据发送失败!',mterror,[mbok],0);
End;
如果要控制打印字符的字体如何控制?再有怎么打印图形?
Str:string;
Begin
try
Str:='欢迎使用票据打印机!'+Chr(13) + chr(10);AssignFile(F, 'LPT1');Rewrite(F);
Printer.Canvas.Font.Size :=22;
Write(F, Str);
CloseFile(F);
Except
Messagedlg('数据发送失败!',mterror,[mbok],0);
End;
如果要控制打印字符的字体如何控制?再有怎么打印图形?
Printer 能帮我输出的 LPT1 吗?如果有LPT1,LPT2都用连接有打印机,怎么指定Printer输出到的对象?