Correções na impressão da GNRE (FastReport)

[João Paulo Müller]

Olá pessoal, 

Estou utilizando o FastReport para imprimir as guias e encontrei alguns "Erros".

Fazendo os testes aqui percebi que as propriedades na qual informa as configurações de impressão (NumCopias, Impressoras) não estavam sendo utilizadas para configurar a impressão do report, então realizei a seguinte alteração (Me corrijam se não for o local mais adequado, ou se já é feito essa configuração em outro local):

UNIT ACBrGNREGuiaFR;

procedure TACBrGNREGuiaFR.ImprimirGuia(GNRE: TGNRERetorno);
begin
  if PrepareReport(GNRE) then
  begin
    if MostrarPreview then
      dmGuia.frxReport.ShowPreparedReport
    else
    begin
      dmguia.frxReport.PrintOptions.Printer    := Impressora; // Adicionado
      dmGuia.frxReport.PrintOptions.Copies     := NumCopias;  // Adicionado
      dmguia.frxReport.PrintOptions.ShowDialog := ShowDialog; // Adicionado 
      dmGuia.frxReport.Print;
    end;
  end;
end;

Adicionei também a seguinte propriedade:

UNIT ACBrGNREGuiaFR;

FShowDialog:boolean;

Property ShowDialog:boolean read FShowDialog write FShowDialog;

Na hora de imprimir a guia seta essa propriedade para a configuração do pré envio.

 

 

Editado 24 Março, 2016 por joaomiler

[Juliomar Marchetti]

Sugestões favor anexar as units alteradas!

[João Paulo Müller]

2 minutos atrás, Juliomar Marchetti disse:

Sugestões favor anexar as units alteradas!

Opa, segue em anexo.

 

ACBrGNREGuiaFR.pas

[Juliomar Marchetti]

Obrigado no svn!