Cita:
Código Delphi [-]procedure TFrmConsReportes.Button5Click(Sender: TObject); begin dmodulo.AQactividades.Close;
dmodulo.AQactividades.Sql.Clear;
dmodulo.AQactividades.SQL.Add('SELECT * FROM ACTIVIDADES WHERE EMPRESA LIKE'+ #39 + Combobox1.Text + #39);
dmodulo.AQactividades.Open; if dmodulo.AQactividades.EOF then
begin showmessage('Registro no existe');
end
else QRepActividades.PreviewModal;
end;
|
Por una parte haz este cambio, para comprobar que hay datos en la vista previa y así descartar o no que la impresora por algún motivo no imprima.
Por otra ten en cuenta lo que te ha dicho Caral, es decir que tienes un Dataset conectado con la consulta y además enlazado al objeto QuickRep.
Para tener la certeza de que la consulta está funcionando símplemente arrastra una rejilla al formulario y conéctala con el conjunto de datos así puedes comprobar de manera visual que es lo que está haciendo o no la consulta.
Un Saludo.