[silver07]

Este es el código que utilizo para enviar a la impresora...

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.print;
end;