[chino150]

Empezado por Ferrari

Hola...pues simplemente en lugar de darle en QuickReport:

Código Delphi [-]Qreport.Print; cambiarlo por: QReport.Preview;

Gracias pero creo que me esplique mal cuando hablo de directamente al printer estoy diciendo al canvas, el ticket no esta ello en quick report quiero saber como mandarle los datos al quick report este es el codigo que utlizo para imprimir el ticket

Código Delphi [-]
procedure TfrmMain.BitBtn1Click(Sender: TObject);
var Fecha : String;
Ticket: TextFile;
Total, Efectivo, Cambio : Double;
xdes, xval, xtot, xpag, xcam: ShortString;
xsum: Double;
begin
    Fecha := DateToStr(Now);
     TIngresosFecha.AsString := Fecha;
     Total := TIngresosValor.Value;
     Efectivo := TIngresosEfectivo.Value;
     Cambio := Total - Efectivo;
     TIngresosCambio.Value := Cambio;
     TIngresos.Post;

     try
    AssignPrn(Ticket);
    //AssignFile(Ticket, 'LPT1');
    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: bendicionfm@hotmail.com');
    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;

esto es lo que quiero hacer pero via quick report