impresion directa de una tabla
No tengo ningun Maestro/Detalle, es una sola tabla la que tengo y de ahi imprimo la "orden" seleccionada, lo que hago es lo siguiente...
procedure TfrmOrdenes.imgReporteClick(Sender: TObject);
begin
frmOrdenesReporte := TfrmOrdenesReporte.Create(Self);
frmOrdenesReporte.qrReporte.PreviewModal;
end;
y en el evento de del quickreport...
procedure TfrmOrdenesReporte.qrReportePreview(Sender: TObject);
begin
frmVerEnPantalla := TfrmVerEnPantalla.Create(Self);
frmVerEnPantalla.qrPrvPreliminar.QRPrinter := Sender as TQrPrinter;
frmVerEnPantalla.ShowModal;
end;
llamo a un formulario que contiene QrPreview.
Es lo que tengo de codigo para la impresion del registro que selecciono.
Gracias.
__________________
Cesar Ruiz
|