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