打印机的驱动是内置在打印机里的,直接发送数据到并口即可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;
如果要控制打印字符的字体如何控制?再有怎么打印图形?