Ref. a Número de Copias Impressas

[Leandro Vignoto]

Bom Dia !

   Utilizando a última versão do fortes baixada em 14/09/2016 e Delphi 7

   Quando envio mais de uma cópia (no exemplo 5) é impresso as 5 cópias corretamente

   Se enviar as mesmas 5 copias, SEM VISUALIZAR O DOCUMENTO (impressão direta), é impresso SOMENTE 1 COPIA.

   Em anexo as imagens.

Att.

Leandro Vignoto

 

 

 

Exemplo Número de Copias.docx

[Leandro Vignoto]

Alguém conseguiu simular a situação ?

Att.

Leandro

[Leandro Vignoto]

Boa Tarde !

  Para informação, atualizei novamente o fortes e o acbr e a situação continua.

Att.

Leandro

[Juliomar Marchetti]

Boa tarde

e tentou debugar e achar o problema? se ele tem! e sugerir uma correção!!

vamos lá! lembre-se  a força está contigo! e os fontes disponível também.

[Leandro Vignoto]

Bom Dia !

   Na unit ACBrNFeDANFeRL, nesse ponto:

Citar

      if FNumCopias > 0 then
        RLPrinter.Copies := FNumCopias
      else
        RLPrinter.Copies := 1;

  É utilizando para quando diretamente no componente eu passo o número de cópias, que não é o caso. Nesse momento vem com padrão 1.

  Eu acredito que a questão é do printDialog para frente e ai eu não consegui depurar (não sei como)

  Pois aqui:

Citar

        if FMostrarPreview then
          Report.PreviewModal          (se chama o printDialog pelo botão do previewModal, funciona)
        else
          Report.Print;                        (se chama o printDialog sem passar pelo previewModal, NÃO funciona)

 Daqui para frente não sei como olhar

 

Att.

Leandro

 

Consegui ir mais um pouco.

Talvez o problema esteja nessa função da unit RLReport

Citar

function TRLCustomReport.ShowPrintDialog: Boolean;
var
  Dialog: TRLPrintDialog;
begin
  Dialog := TRLPrintDialog.CreateNew(nil);
  try
    Dialog.HelpContext := Self.HelpContext;
    if Dialog.HelpContext <> 0 then
      Dialog.Options := Dialog.Options + [rpoHelp];
    if Self.ReportState = rsReady then
      Dialog.MaxPage := Self.Pages.PageCount;
    Dialog.Orientation := Self.PageSetup.Orientation;
    Dialog.Copies := RLPrinter.Copies;
    Result := Dialog.Execute;
    if Result then
    begin
      Self.DialogParams.FromPage1 := Dialog.FromPage;
      Self.DialogParams.ToPage1 := Dialog.ToPage;
    end;
  finally
    Dialog.Free;
  end;
end;

Observe que no if Result não tem o número de cópias, somente das páginas FROM / TO, mas também não vi opção para isso

Att.

Leandro

Editado 8 Fevereiro, 2017 por Leandro Vignoto