tf: textfile;
begin
  AssignFile(tf, DM.PrinterName);
  Rewrite(tf);
  Writeln(tf, ' ');
  Writeln(tf, '                ' + DM.AQ.FieldByName('DeptName').AsString + '结帐预览');
  Writeln(tf, '-----------------------------------------------');
  Writeln(tf, '   帐单号:' + AccountID);
  Writeln(tf, '   餐桌名:' + Frm_CheckOut.LB_Table.Caption);
  Writeln(tf, '-----------------------------------------------');
  Writeln(tf, '     菜品名称          单价     数量     金额  ');
  Writeln(tf, '-----------------------------------------------');
  CloseFile(tf);
end
打印机是epson1600K
打印的汉字全是乱码
如果我将打印机属性中的打印处理器改成:winprint里面的text象就可以正常打印,
但打印机是按A4的长度走纸的,我要得是自己控制打印长度
谢谢各位,帮帮忙吧