Crystal Reports Delphi 2005

[jodycom]

bueno he conseguido que al final funcione, solo habia que incluir un Refresh tras el load, envio codogo ejemplo:


// reportDocument1
//
Self.reportDocument1.PrintOptions.PaperOrientation := CrystalDecisions.Shared.PaperOrientation.DefaultPaperOrientation;
Self.reportDocument1.PrintOptions.PaperSize := CrystalDecisions.Shared.PaperSize.DefaultPaperSize;
Self.reportDocument1.PrintOptions.PaperSource := CrystalDecisions.Shared.PaperSource.EnvManual;
Self.reportDocument1.PrintOptions.PrinterDuplex := CrystalDecisions.Shared.PrinterDuplex.Default;
Self.reportDocument1.PrintOptions.PrinterName := 'Display';
Self.reportDocument1.Load(PathInforme + Informe);
Self.reportDocument1.Refresh;
Self.reportDocument1.SetParameterValue('Param', valorParametro);
Self.reportDocument1.SetDatabaseLogon('sa','sa','ServidorSQL', 'BBDD');
//
// CrystalReportViewer1
//
Self.CrystalReportViewer1.ActiveViewIndex := -1;
Self.CrystalReportViewer1.CausesValidation := False;
Self.CrystalReportViewer1.DisplayGroupTree := False;
Self.CrystalReportViewer1.Location := System.Drawing.Point.Create(0, 0);
Self.CrystalReportViewer1.Name := 'CrystalReportViewer1';
Self.CrystalReportViewer1.ReportSource := Self.reportDocument1;
Self.CrystalReportViewer1.SelectionFormula := '{Formula} =' +
valor;
Self.CrystalReportViewer1.Size := System.Drawing.Size.Create(472, 272);

espero esto ayude

Salu2;