Impressão Danfe com margem negativa (Fast Report)

[C4Dev]

Boa tarde pessoal,

 

Estou com a seguinte situação, impressão de Danfe simplificado utilizando o componente ACBrNFeDANFEFR.

Nas propriedades de margem do componente permite informar margem (esquerda) negativa, porém ao executar a função de impressão, quando chega na procedure TACBrNFeFRClass.AjustaMargensReports só é aplicada a margem caso seja maior que zero.

procedure TACBrNFeFRClass.AjustaMargensReports;
var
  Page: TfrxReportPage;
  I: Integer;
begin
  for I := 0 to (frxReport.PreviewPages.Count - 1) do
  begin
    Page := frxReport.PreviewPages.Page[I];
    if (DANFEClassOwner.MargemSuperior > 0) then
      Page.TopMargin := DANFEClassOwner.MargemSuperior;
    if (DANFEClassOwner.MargemInferior > 0) then
      Page.BottomMargin := DANFEClassOwner.MargemInferior;
    if (DANFEClassOwner.MargemEsquerda > 0) then
      Page.LeftMargin := DANFEClassOwner.MargemEsquerda;
    if (DANFEClassOwner.MargemDireita > 0) then
      Page.RightMargin := DANFEClassOwner.MargemDireita;
    frxReport.PreviewPages.ModifyPage(I, Page);
  end;
end;

 

E no meu caso eu preciso que seja negativa, porque zero está cortando lateral na impressora. Por este motivo gostaria que permitissem a utilização de margem negativa.

É possível liberar essa alteração?

[Victor H. Gonzales - Panda]

18 minutos atrás, C4Dev disse:

Boa tarde pessoal,

 

Estou com a seguinte situação, impressão de Danfe simplificado utilizando o componente ACBrNFeDANFEFR.

Nas propriedades de margem do componente permite informar margem (esquerda) negativa, porém ao executar a função de impressão, quando chega na procedure TACBrNFeFRClass.AjustaMargensReports só é aplicada a margem caso seja maior que zero.

procedure TACBrNFeFRClass.AjustaMargensReports;
var
  Page: TfrxReportPage;
  I: Integer;
begin
  for I := 0 to (frxReport.PreviewPages.Count - 1) do
  begin
    Page := frxReport.PreviewPages.Page[I];
    if (DANFEClassOwner.MargemSuperior > 0) then
      Page.TopMargin := DANFEClassOwner.MargemSuperior;
    if (DANFEClassOwner.MargemInferior > 0) then
      Page.BottomMargin := DANFEClassOwner.MargemInferior;
    if (DANFEClassOwner.MargemEsquerda > 0) then
      Page.LeftMargin := DANFEClassOwner.MargemEsquerda;
    if (DANFEClassOwner.MargemDireita > 0) then
      Page.RightMargin := DANFEClassOwner.MargemDireita;
    frxReport.PreviewPages.ModifyPage(I, Page);
  end;
end;

 

E no meu caso eu preciso que seja negativa, porque zero está cortando lateral na impressora. Por este motivo gostaria que permitissem a utilização de margem negativa.

É possível liberar essa alteração?

Verifique o berço da impressora.

a propriedade está aceitando somente porque não é cardinal ou byte, a validação está na regra de negócios.

mas no próprio gerenciado do FR você não consegue inserir valores negativos, portanto, verifique o berço

[C4Dev]

A principio isso resolveria meu problema com essa alteração solicitada, conforme img abaixo:

Desculpe minha ignorância, mas o que seria o "berço da impressora"?

 

 

[C4Dev]

Pode encerrar o tópico.

[Alexandre de Paula]

Obrigado por reportar.

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

[Victor H. Gonzales - Panda]

Em 11/10/2023 at 15:28, C4Dev disse:

A principio isso resolveria meu problema com essa alteração solicitada, conforme img abaixo:

 

Desculpe minha ignorância, mas o que seria o "berço da impressora"?

 

 

Berço é onde é alocado a bobina.