ayuda para poder generar al impresion de un tickes

[microbiano]

bueno mi estimado amigo CARAL. gracias por la ayuda hasta ahora prestada de verdad y gracias por comparit la aplicacion de facturacion me sivio de mucho te comento que si tengo enlazados los QRDBTExt al query sin embargo no lo hacia sabes que tuve que hacer volverlos a enlazar por medio de codigo como aqui te muestro y tambien tuve que cambiar la manera de asignar el campo.

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

 if wfactura_a_imprimir<>0 then
  begin
   Application.CreateForm(TFticket, Fticket);
   //Fticket.Dataset:= Fticket.Qry_ticket;
   with Fticket.Qry_ticket do
    begin
      sql.Clear;
      SQL.Text:= 'select * from facturaItem where nofac = :Tfactura';
      Parameters.ParamByName('Tfactura').Value:=wfactura_a_imprimir;
      Open;
      try
      if not Fticket.Qry_ticket.IsEmpty then
      begin
      Fticket.DataSet:=Fticket.Qry_ticket;
      Fticket.txtcantidad.DataSet:=Fticket.Qry_ticket;
      Fticket.txtcantidad.DataField:=('cantidad');
      Fticket.txtdescripcion.DataSet:=Fticket.Qry_ticket;
      Fticket.txtdescripcion.DataField:=('preciounitario');
      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;

aun asi muchas gracias mi estimado amigo, te molestare en cuanto se me vuelva a atravesar el chamaco jejeje