Writeln(F,'点单打印');

    Writeln(F,chr($1b) + chr($61) + '0');  //取消居中打印
    //Writeln(F, '点单号：' + fGroupID);    //显示帐单号，房号
    //Writeln(F, '房  号：' + RmName);
     Writeln(F, '点单号：' + '23232');    //显示帐单号，房号
    Writeln(F, '房  号：' + 'ereer');
    Writeln(F,chr($1c) + chr($21) + '0');
    Writeln(F,'打印时间：' + datetimetostr(Now));
    Writeln(F,'----------------------------------------');
    Writeln(F,'  商品名称      数量  单价  单位  合计');
    Writeln(F,'----------------------------------------');

    //打印尾标
    Writeln(F,'----------------------------------------');
   // writeln(F,'                          合计：' + CurrToStr(fTotalSum) + '元');
    writeln(F,'                          合计：' +  '25元');
    //打印完毕，切纸
    Writeln(F,chr($1d)+ 'V' + chr(66) + chr(0));  //切纸
  finally
    closefile(F);
  end;