FastReport mudar as margens via codigo

[Isabelle Oliveira]

Olá,

Preciso salvar as margens desejadas via códigos (estou fazendo isso salvando em uma tabela do mysql antes), logo depois quero que essas margens sejam aplicadas a todos os relatórios da minha aplicação.

Sou nova com Delphi e principalmente com FastReport, alguem pode em ajudar... >_<

[Juliomar Marchetti]

Boa tarde

tentou o google?

veja

https://www.fast-report.com/en/forum/index.php?showtopic=1029

 

[Miro Callai]

Olá Isabelle, apesar do Post ser antigo, deixo aqui minha contribuição.

 

Para alterar as margens em Run Time você pode fazer assim:

1º É necessário ter o Fast Report Edição Professional ou Enterprise, pois com a Edição Standart (que vem junto com o DELPHI) não é possível.  

 

2º Codigo:

frxReport1.Variables['MARGEM_ESQ']  := '0.00';

frxReport1.Variables['MARGEM_SUP']  := '0.00';

frxReport1.PrepareReport();

frxReport1.ShowReport;

 

3º No arquivo Report > Aba Codigo 

Page1.LeftMargin := <MARGEM_ESQ>;

Page1.TopMargin  := <MARGEM_SUP>;                                            
 

[João Carlos Gielow]

Bom dia, tudo bem?

Eu passei pela mesma dificuldade e abaixo o código que solucionou isso sem mexer no FR3, caso sei que o tópico foi aberto há muito tempo, mas se mais alguém passar por essa dificuldade, está aqui:

 

for I := 0 to (frxReport.PreviewPages.Count - 1) do begin
  Page := frxReport.PreviewPages.Page[I];

  Page.TopMargin    := MargemSuperior;
  Page.BottomMargin := MargemInferior;
  Page.LeftMargin   := MargemEsquerda;
  Page.RightMargin  := MargemDireita;

  frxReport.PreviewPages.ModifyPage(I, Page);
end;

[Juliomar Marchetti]

Obrigado por reportar.

Fechando. Para novas dúvidas, criar um novo tópico.