ayuda para poder generar al impresion de un tickes

[[Caral]]

Hola
No creo que se tenga que hacer gran cosa.
Aqui hay un reporte configurado para recibo, a ver si te sirve.
Saludos

[microbiano]

perdon caral descargue tu archivo pero la verdad no se como usarlo :-(

[[Caral]]

Hola
No es para usarlo, es un reporte de ejemplo hecho en qreport.
En base a este te puedes dar una idea de como hacer uno similar.
Este es uno de los que uso para hacer tickets de caja.
Saludos

[microbiano]

ya pude abrir tu archivo jejeje hasta ahora en la oficina pero la verdad no tengo idea que te parece impresion con el canvas?, o alguna idea de como pasar lso datos del StrinGrid al quickReport?

[[Caral]]

Hola
Me imagino que el stringrid lo cargas con los datos de la bd usando ado.
Pues es lo mismo en el qreport, se cargan los datos con ado.
No se que mas decirte.
Saludos

[microbiano]

si lo se pero por ejemplo en el TStringGrid tengo datos calculado por ejemplo el total por articulo, entonces eso es lo que no se como enviarlo al quick report en unos minutos te paso un codigo que quise intentar y no me sale :-(

[[Caral]]

Hola
Vale, lo espero a ver si entiendo.
Saludos

[microbiano]

les comento como esta resulta que puse un Reporte con lo siguiente

1 banda de tipo : rbColumnHeader
1 banda de tipo: rbDetail
1 banda de tipo: rbTitle

el reporte esta enlazado a un adoquery, de tipo dinamico

bueno pues en la banda de tipo detalle puse un componente QRDTExt de nombre txtcantidad.

ahora bien en un boton para imprimir pongo el siguiente codigo.

Código Delphi [-]
procedure TFfactura.btn3Click(Sender: TObject);
begin

 if wfactura_a_imprimir<>0 then
  begin
    Application.CreateForm(TFticket, Fticket);
    Fticket.show;
   with Fticket.Qry_ticket do
    begin
      sql.Clear;
      SQL.Add('select * from facturaItem');
      sql.Add('where nofac=factura');
      Parameters.ParamByName('pfactura').Value:=wfactura_a_imprimir;
      try
       Open;
       if not Fticket.Qry_ticket.IsEmpty then
         begin
           while not Fticket.Qry_ticket.Eof do
           begin
            Fticket.txtcantidad.Caption:=FieldByname('cantidad').AsVariant;
            Fticket.Refresh;
             Next;
           end;
          Fticket.Preview;
          Fticket.Free;
         end;
       except
        on E:EOleException do
         begin
          MessageDlg(Format('Error: %s    Codigo: %d', [E.Message, E.ErrorCode]), mtError, [mbOK], 0);
         end;
       end;
    end;  
  end;  
end;

se supone tendria que actualizar los datos del reporte pero me muestra el reporte en blanco