YO UTILIZO DELPHI 7 Y CRYSTAL 10, PARA LO CUAL NECESITAS EL VCL QUE PROPORCIONA CRYSTAL PARA DELPHI
UN EJEMPLO DE CODIGO:
function TFRPRUEBAS.ImprimeCR10( fcReporte: string; fsNameFormula,fsFormulas: array of string; fcRepTit: string = ''; fcRepSubTit: string = ''; fcFormula: string = '' ): Boolean;
VAR
liI, liMax,liMax2: Integer;
lcFile: string;
BEGIN
lcFile := 'D:\PRUEBAS\REPORTES\' + fcReporte + '.rpt';
//REPORTE, SERVIDOR Y BASE DE DATOS
CR_IMPRIME.ReportName:= lcFile;
CR_IMPRIME.Connect.ServerName:= TRIM(EDIT1.Text);
CR_IMPRIME.Connect.DatabaseName:= TRIM(EDIT2.Text);
//PARAMETROS
CR_IMPRIME.ParamFields.Items[0].CurrentValue := 'DE PRUEBA';
CR_IMPRIME.ParamFields.Items[1].CurrentValue := UpperCase(fcReporte);
CR_IMPRIME.ParamFields.Items[2].CurrentValue := 'LA CASA DE LOS DEPORTES';
CR_IMPRIME.ParamFields.Items[3].CurrentValue := fcRepTit;
CR_IMPRIME.ParamFields.Items[4].CurrentValue := fcRepSubTit;
//FORMULA DE SELECCION
CR_IMPRIME.Selection.Formula.Clear;
CR_IMPRIME.Selection.Formula.Text:= fcFormula;
IF NOT CR_IMPRIME.Selection.Check THEN BEGIN
ShowMessage('ERROR DE SELECCION');
EXIT;
END;
//FORMULAS POR REPORTE
CR_IMPRIME.Formulas.Clear;
liMax := High(fsFormulas);
IF liMax >= 0 THEN BEGIN
LIMAX2:= LIMAX;
FOR liI := 0 TO liMax DO
IF fsNameFormula[liI]= '' THEN
LIMAX2:=LIMAX2-1;
IF liMax2 >= 0 THEN
FOR liI := 0 TO liMax2 DO
CR_IMPRIME.FormulaByName(fsNameFormula[liI]).Formula.Text:=fsFormulas[liI];
END;
CR_IMPRIME.WindowStyle.Title:= fcRepTit;
CR_IMPRIME.Execute;
CR_IMPRIME.SetFocus;
END;
Espero te sirva, mis correos para comunicacion son:
ricardo@gacse.com (messenger)
ricardolopeztrejo@mexico.com
ricardolopeztrejo@clubdelphi.zzn.com