Impressão De Dacte

[luiz.encode]

Boa noite,

 

Alterei algumas linhas da unit ACBrCTeDACTeQR na procedure Imprimir, apenas para estética.

 

Quando visualizava o DACte a tela era pequena e mostrava ShowSearch e ShowThumbs.

 

Estava assim:

 

        if APreview then
         begin
           QRCTe.PrinterSettings.Copies := FNumCopias;

         {$IFDEF QReport_PDF}
            Comentado por Luiz Carvalho em 19/12/2013
            QRCTe.PrevShowSearch      := False;
            QRCTe.PrevShowThumbs      := False;
            QRCTe.PreviewInitialState := wsMaximized;
            QRCTe.PrevInitialZoom     := qrZoomToWidth;

           // Incluido por Italo em 14/02/2012
           // QRCTe.PreviewDefaultSaveType := stPDF;
           // Incluido por Italo em 16/02/2012
           QRExportFilterLibrary.AddFilter(TQRPDFDocumentFilter);
         {$ENDIF}
 

Mudei para:

 

        if APreview then
         begin
           QRCTe.PrinterSettings.Copies := FNumCopias;

 

           QRCTe.PrevShowSearch      := False;
           QRCTe.PrevShowThumbs      := False;
           QRCTe.PreviewInitialState := wsMaximized;


         {$IFDEF QReport_PDF}
           QRCTe.PrevInitialZoom     := qrZoomToWidth;

           // Incluido por Italo em 14/02/2012
           // QRCTe.PreviewDefaultSaveType := stPDF;
           // Incluido por Italo em 16/02/2012
           QRExportFilterLibrary.AddFilter(TQRPDFDocumentFilter);
         {$ENDIF}

           QRCTe.Prepare;

 

>>>>>>>>>>>>>>>>>>

 

Só não consegui unit a propriedade PrevInitialZoom.

 

Como deve proceder? 

 

Faço Commit dessa alteração?

 

Ou é muito simples e não requer atualização?

 

 

Agradeço desde já a orientação.

 

Luiz Carvalho

 

[Juliomar Marchetti]

Se queres contribuir anexa os fontes ao tópico ele será avaliado e posteriormente subido ao svn por um dos commiters

[luiz.encode]

Segue anexo a unit. ACBrCTeDACTeQR.pas

[Italo Giurizzato Junior]

Bom dia Luiz,

 

A sua alteração foi testada com a versão 3.0 do Quick Report?

 

Ela compilou com as linhas abaixo fora do: {$IFDEF QReport_PDF} ?

 

           QRCTe.PrevShowSearch      := False;
           QRCTe.PrevShowThumbs      := False;
           QRCTe.PreviewInitialState := wsMaximized;
 

[luiz.encode]

Bom dia Italo,

 

Sim, ela compilou com a versão 3.0.