[julyus]

este es el codigo que tengo:
a ver si me podeis orientar
//-----------PREVIEW DEL REPOTE BALANCE GENERAL------------------

Código Delphi [-]
procedure TConsultaBalGeneralForm.AccprintExecute(Sender: TObject);
begin
   ReportPrinterDialog1.PreviewReport(RUTA_REPORTES+'IB_BALANCE_GENERAL.QR2');
end;

procedure TConsultaBalGeneralForm.ReportPrinterDialog1BeforeOpenDataset(DataSet: TDataSet);
begin
if DataSet is TQuery then
 begin
   If TQuery(DataSet).ParamCount>0 Then
      begin
        TQuery(DataSet).Params.ParamByName('ID_EMPRESA').asstring :=DBLookupEMPRESA.KeyValue;
        TQuery(DataSet).Params.ParamByName('ID_SUCURSAL').asstring :=DBLookupSucursal.KeyValue;
        TQuery(DataSet).Params.parambyname('FECHA_CORTE').AsDATETIME :=INT(FechaF.Date);
        TQuery(DataSet).Params.parambyname('FECHA_CORTE_ANT').AsDATETIME :=INT(FechaI.Date);
        IF RadioClase.Checked THEN
        TQuery(DataSet).Params.ParamByName('NIVEL_CUENTA').Asstring :='1';
        IF RadioGrupo.Checked THEN
        TQuery(DataSet).Params.ParamByName('NIVEL_CUENTA').Asstring :='2';
        IF RadioCuenta.Checked THEN
        TQuery(DataSet).Params.ParamByName('NIVEL_CUENTA').Asstring :='3';
        IF RadioSubCuenta.Checked THEN
        TQuery(DataSet).Params.ParamByName('NIVEL_CUENTA').Asstring :='4';
        IF RadioAuxiliar.Checked THEN
        TQuery(DataSet).Params.ParamByName('NIVEL_CUENTA').Asstring :='5';
      end;
  end;
end;

gracias........