Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Impresión (https://www.clubdelphi.com/foros/forumdisplay.php?f=4)
-   -   Pre visualizar e imprimir Gráfico en FastReport (https://www.clubdelphi.com/foros/showthread.php?t=94125)

novato_erick 14-08-2019 18:55:38

Pre visualizar e imprimir Gráfico en FastReport
 
Hola Chicos Bendiciones a Todos:

necesito pre visualizar en FastReport un Gráfico mostrado desde Delphi TChart en buscado ayuda en fastreport y muestra esto:

Código Delphi [-]
procedure TForm1.frxReport1BeforePrint(Sender: TfrxReportComponent);
begin
if Sender.Name = 'Picture1' then
   TfrxPictureView(Sender).Picture.Assign(
     Chart1.TeeCreateMetafile(False, //Chart1 do esta declarado en mi dmReporte
       Rect(0, 0, Round(Sender.Width), Round(Sender.Height))));
end;
asi que se me ocurrio esto
Código Delphi [-]
//Cree un procedimiento simple
procedure TfrmReporteClienteFrecuente.GuardaGraficoComoImagen;
begin
  MetaGrafico := DBChartAfiliadosxdia.TeeCreateMetafile // MetaGrafico: TMetaFile; es la variable declarada privadamente en mi formulario de gráficos
  (True, DBChartAfiliadosxdia.ClientRect);
end;


if DBChartAfiliadosxdia.Visible = True then
   begin
       GuardaGraficoComoImagen;
//aqui no se como enviar esto a Fastreport
        dmFidelizaCliente.frxReportAfiliadoxDia.ShowReport(True);
       end;

Alguien tiene alguna idea? se les agradece

Saludos

novato_erick


La franja horaria es GMT +2. Ahora son las 16:05:08.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi