RLPreview do Fortes

[Carlos Stclara]

Boa noite, galera. Ao gera um relatório com o Fortes, ele traz um menu superior com imprimir, salvar, etc. Quando utilizo um RLPreview ele abre o relatório dentro do componente mas não traz este menu. Como proceder para aparecer o menu?

 

[]ś

 

[Juliomar Marchetti]

Adicionei um componente

RLPreviewSetup

[Carlos Stclara]

Salve, Juliomar.

Estou fazendo assim:

- frmRel com o RLReport;

- frmPrincipal com RLPreview e RLPreviewSetup;

- button no frmPrincipal:  frmRel.RLReport1.Preview(frmPrincipal.RLPreview1); 

Mas aparece o relatório maximizado sem o menu.. 

[Juliomar Marchetti]

Anexe um projeto de exemplo para que possamos testar

[Carlos Stclara]

Segue

fortes.rar

[Juliomar Marchetti]

Bom dia

entendi o que necessita, neste caso não vai aparecer mas tu tem como colocar os botões ou melhor montar um preview como você desejar e chamar os eventos que estão todos presentes no RLPreview mas a barra de tarefas mesmo não vai exibir

[Carlos Stclara]

Obrigado, Juliomar. Até peguei um exemplo com preview customizado do fortes que é bem antigo. Só que nesta rotina ele reclama que falta o PrintParams:

procedure TFrmViewRelat.BtnImprimirClick(Sender: TObject);
var
  dlg: TRLPrintDialog;
begin
  inherited;

  // Seta parametros do dialogo de impressao
  with PrintParams do
  begin
    FromPage := rlViewer.Pages.FirstPageNumber;
    ToPage := rlViewer.Pages.LastPageNumber;
    MinPage := FromPage;
    MaxPage := ToPage;
    Filter := nil;
    Copies := 1;
    Apply;
  end;

 

Com as mudanças de versão do fortes, também houve alguma alteração com o PrintParams?

 

 

[Juliomar Marchetti]

Sim houve.

bastante mudanças foram aplicadas.

[jarbasdsw]

Em 12/01/2018 at 09:35, Carlos Stclara disse:

Obrigado, Juliomar. Até peguei um exemplo com preview customizado do fortes que é bem antigo. Só que nesta rotina ele reclama que falta o PrintParams:

procedure TFrmViewRelat.BtnImprimirClick(Sender: TObject);
var
  dlg: TRLPrintDialog;
begin
  inherited;

  // Seta parametros do dialogo de impressao
  with PrintParams do
  begin
    FromPage := rlViewer.Pages.FirstPageNumber;
    ToPage := rlViewer.Pages.LastPageNumber;
    MinPage := FromPage;
    MaxPage := ToPage;
    Filter := nil;
    Copies := 1;
    Apply;
  end;

 

Com as mudanças de versão do fortes, também houve alguma alteração com o PrintParams?

 

 

Conseguiu resolver? Estou com o mesmo problema. Fui atualizar e estou com esse erro.

[Juliana Tamizou]

Boa tarde.

Este tópico está inativo a algum tempo e por isso será fechado, caso necessário favor criar um novo tópico.

Att.