Impressão Direta

[softcom.wendel]

Bom dia.

 

Existe alguma forma de enviar os boletos diretamente para uma determinada impressora, sem precisar passar pelo preview?

 

Agradeço a Atenção

[Juliomar Marchetti]

Boa noite

Sim desabilite o mostrarpreview e informe uma impressora !

[softcom.wendel]

Bom Dia

 

Tentei fazer da seguinte forma mas ele não obedeceu...seria esta a propriedade correta mesmo?

 

 

  //Seta a impressora padrao para Boletos Neste Computador
  if ( Nome_Impressora <> '' ) then
    begin
      Boleto_Impressao.PreparedReport.PrintOptions.Printer := Nome_Impressora;
      Boleto_Impressao.MostrarPreview := False;
      Boleto_Impressao.MostrarSetup := False;
    end
    else begin
      Boleto_Impressao.MostrarPreview := True;
      Boleto_Impressao.MostrarSetup := True;
    end;
 

[Fenix]

Boa tarde Wendel

 

No Acbrboleto não havia a opção para definir a impressora, como estava no mesmo impasse que você, adicionei o recurso.

Só definir a impressora em ACBrBoletoFCFR1.Impressora := ImpressoraPadrao();

 

Adiciono a impressora padrão com o função abaixo:

uses Printers;

function ImpressoraPadrao() : string;
begin
  Printer.PrinterIndex := -1;
  Result := Printer.Printers.Strings[Printer.PrinterIndex];
end;

Moderador, por favor, avalie a alteração e se estiver ok, envia para o repositório, segui o padrão.

ACBrBoletoFCFR.zip

[Juliomar Marchetti]

Boa tarde

alteração disponível !

Obrigado pela colaboração