|
Hola
Yo normalmente llamo al reporte por medio de un form en el que especifico los factores que quiero que se vean, con esto practicamente con el mismo formulario de Qreport hago varios reportes diferentes.
este es un codigo que utilizo para llamar a un reporte (X) desde este form.
If Reporte = 'ComprasXProveedor' then
begin
ShortDateFormat := '#yyyy/mm/dd#';
try
QRComprasXCliente:=TQRComprasXCliente.Create(self);
QRComprasXCliente.ADOQuery1.SQL.Add(' WHERE CxPagar.TipoTransac="FA" ');
QRComprasXCliente.ADOQuery1.SQL.Add(' AND FechaTransac >= '+DateToStr(DTP1.Date)+' AND FechaTransac <= '+DateToStr(DTP2.Date));
QRComprasXCliente.ADOQuery1.SQL.Add(' AND Proveedores.CodProve >= '+Edit3.Text+' AND Proveedores.CodProve <= '+Edit4.Text);
QRComprasXCliente.ADOQuery1.SQL.Add(' ORDER BY CodProveedor, FechaTransac;');
QRComprasXCliente.ADOQuery1.Open;
ShortDateFormat := 'dd/mm/yyyy';
QRComprasXCliente.Titulo.text := 'Compras Realizadas a Proveedores';
QRComprasXCliente.QRLblDesde.Caption := DateToStr(DTP1.Date);
QRComprasXCliente.QRLblHasta.Caption := DateToStr(DTP2.Date);
If RadioGroup1.ItemIndex = 0 then QRComprasXCliente.Print
else QRComprasXCliente.Preview;
finally
QRComprasXCliente.Free;
con esto se presenta un pre- reporte en pantalla y escojo la impresora en la que quiero imprimir, siempre que voy a cambiar de impresora, indico que me lo muestre por pantalla antes, de lo contrario me lo envia a la inpresora predeterminada.
espero te sirva
Saludos
|