Ayuda urgente sobre ticket

[chino150]

Gracia ya encontre la solucion

Codigo Delphi[-]

AssignPrn(Ticket);
Rewrite(Ticket);
Writeln(Ticket,#27#64);
Writeln(Ticket,'MINISTERIO BENDICION INC.');
Writeln(Ticket,'C/Ambar No.109 Ens. Papagayo');
Writeln(Ticket,'La Romana RD. 22000');
Writeln(Ticket,'Tel: 809-556-4914');
Writeln(Ticket,'Tel: 809-550-8266');
Writeln(Ticket,'RNC: #4-12-02047-1');
Writeln(Ticket,'E-Mail: [email protected]');
Writeln(Ticket,'Website: www.bendicionfm.com');
Writeln(Ticket,'');
Writeln(Ticket,'Fecha: '+DateToStr(Now));
Writeln(Ticket,'Recibo: '+DBText1.Caption+'');
Writeln(Ticket,'Colaborador: '+ QConsulta.FieldByName('Nombre').asString);
Writeln(Ticket,'');
QConsulta.Close;
QConsulta.SQL.Clear;
QConsulta.SQL.ADD('Select * From Ingresos where NoRecibo='+DBText1.Caption);
QConsulta.Open;
Writeln(Ticket,'-------------------------------');
Writeln(Ticket,'Descripcion Valor ');
Writeln(Ticket,'-------------------------------');
xsum := 0;
QConsulta.Close;
QConsulta.SQL.Clear;
QConsulta.SQL.Add('Select * from Ingresos where NoRecibo='+DBText1.Caption);
QConsulta.Open;
QConsulta.First;
while not QConsulta.Eof do
begin
xdes := copy(QConsulta.fieldbyname('desc').AsString,1,20);
xval := format('%8.2f',[QConsulta.fieldbyname('valor').asFloat]);
xsum := xsum + QConsulta.fieldbyname('valor').AsFloat;
Writeln(Ticket,xdes+' '+xval);
QConsulta.Next;
end;
Writeln(Ticket,'-------------------------------');
xtot := FloatToSTR(xsum);
xpag := FloatToSTR(Efectivo);
xcam := FloatToSTR(Cambio);
Writeln(Ticket,'Total: RD$'+xtot);
Writeln(Ticket,'Efectivo: RD$'+xpag);
Writeln(Ticket,'Cambio: RD$'+xcam);
Writeln(Ticket,'-------------------------------');
Writeln(Ticket,'Dios les Bendiga');
Writeln(Ticket,'');
Writeln(Ticket,'');
Writeln(Ticket,'');
Writeln(Ticket,'');
Writeln(Ticket,'');
Writeln(Ticket,'');
Writeln(Ticket,'');
Writeln(Ticket,'');
Writeln(Ticket,'');
Writeln(Ticket,#27#105); // Cortar
finally
CloseFile(Ticket);
end;
end;