Erro NumCopias não encontrado - ACBrGNReGuiaRL.pas

[sergiom]

NumCopias não encontrado.  Alterei para FNumCopias e compilou.  Anexo a unit alterada.

 

with Create(AOwner) do
    try
      FGNRe := AGNRe;
      FEmail := AEmail;
      FNumCopias := ANumCopias;
      FMargemSuperior := AMargemSuperior;
      FMargemInferior := AMargemInferior;
      FMargemEsquerda := AMargemEsquerda;
      FMargemDireita := AMargemDireita;
      FImpressora := AImpressora;

      if FImpressora > '' then
        RLPrinter.PrinterName := FImpressora;

      if RLPrinter.Copies <> NumCopias then
      begin
        RLPrinter.Copies := NumCopias;
      end;

      RLGNRe.PrintDialog := APrintDialog;
      if APreview = True then
        RLGNRe.PreviewModal
      else
        RLGNRe.Print;
    finally
      Free;
    end;
  

 

Atenciosamente

Sérgio

ACBrGNReGuiaRL.pas

[Juliomar Marchetti]

Boa tarde

no caso não era só acrescer o F na frente e deixar o restante igual?

subi ao svn a correção da quebra de compilação