Imprimir Pdf Direto Em Um Diretorio

[Jeferson Cruz]

Existe alguma maneira de imprimir o Boleto Em PDF diretamente em pastas pré configuradas no sistema, sem aparecer a telinha de impressão e escolha de local ?

 

[cbsistem]

usando o RLBoleto;

 

 

{Dados do titulo}

   with gbTitulo1 do

   begin

      NumeroDocumento := cdsTitulosNUMERODOCUMENTO.AsString+'/'+cdsTitulosPARCELA.AsString;

      SeuNumero := cdsTitulosNUMERODOCUMENTO.AsString;

      EspecieDocumento := edFatura;

      NossoNumero := cdsTitulosBOL_NUMERO.AsString;

 

      Carteira := cdsCedentesCARTEIRA.AsString;

      DataDocumento := cdsTitulosDATAEMISSAO.AsDateTime;

      DataVencimento := cdsTitulosDATAVENCIMENTO.AsDateTime;

      DataProcessamento := cdsTitulosDATADIGITACAO.AsDateTime;

      ValorDocumento := cdsTitulosVALORORIGINAL.AsCurrency;

 

      vInstrucoes := 'dados da instruções para pagamento';

 

      Instrucoes.Text := vInstrucoes;

 

      {Dados do cedente}

      with Cedente do

      begin

         if AnsiUpperCase(cdsCedentesTIPOINSCRICAO.Value) = 'F' then

            TipoInscricao := tiPessoaFisica {CPF}

         else if AnsiUpperCase(cdsCedentesTIPOINSCRICAO.Value) = 'J' then

            TipoInscricao := tiPessoaJuridica {CNPJ}

         else

            TipoInscricao := tiOutro;

 

         NumeroCPFCGC := cdsCedentesNUMEROINSCRICAO.Value;

         Nome := cdsCedentesNOMECEDENTE.Value;

         CodigoCedente := cdsCedentesCODIGOCEDENTE.Value;       //33 a 52 - Código do convênio no banco

         DigitoCodigoCedente := cdsCedentesDIGITOCEDENTE.Value;

 

         {Endereço do cedente}

         with Endereco do

         begin

            Rua := cdsCedentesRUA.AsString;

            Endereco.Numero := cdsCedentesNUMERO.AsString;

            Complemento := cdsCedentesCOMPLEMENTO.AsString;

            Bairro := cdsCedentesBAIRRO.AsString;

            Cidade := cdsCedentesCIDADE.AsString;

            Estado := cdsCedentesESTADO.AsString;

            CEP := stringreplace(cdsCedentesCEP.AsString,'-','',[rfReplaceAll]);

            Email := cdsCedentesEMAIL.AsString;

         end; {with Endereco}

 

         {Dados bancários do cedente}

         with ContaBancaria do

         begin

            Banco.Codigo  := cdsCedentesNUMBANCO.AsString;

            CodigoAgencia := cdsCedentesNUMAGENCIA.AsString;

            DigitoAgencia := cdsCedentesDIGITOAGENCIA.AsString;

            NumeroConta   := cdsCedentesNROCONTA.AsString;

            DigitoConta   := cdsCedentesDIGITOCONTA.AsString;

            // B.B.

 

            Convenio := cdsCedentesNUMCONVENIO.AsString;

         end; {with Banco}

      end; {with Cedente}

 

      {Dados do sacado do título}

      with Sacado do

      begin

         if AnsiUpperCase(qryClientesPESSOAFISJUR.AsString) = 'F' then

            TipoInscricao :=  tiPessoaFisica

         else if AnsiUpperCase(qryClientesPESSOAFISJUR.AsString) = 'J' then

            TipoInscricao := tiPessoaJuridica

         else

            TipoInscricao := tiOutro;

         NumeroCPFCGC := LimpaCGCCPF(qryClientesCGCCFO.AsString);

         Nome := qryClientesNOME.AsString + '   (' + qryClientesNOMEFANTASIA.AsString + ' ' + qryClientesCODCFO.AsString + ')';

 

         {Endereço do sacado do título}

         with Endereco do

         begin

            if not Empty(qryClientesRUAPGTO.AsString) then

            begin

              Rua := qryClientesRUAPGTO.AsString;

              Numero := qryClientesNUMEROPGTO.AsString;

              Complemento := qryClientesCOMPLEMENTOPGTO.AsString;

              Bairro := qryClientesBAIRROPGTO.AsString;

              Cidade := qryClientesCIDADEPGTO.AsString;

              Estado := qryClientesCODETDPGTO.AsString;

              CEP := stringreplace(qryClientesCEPPGTO.AsString,'-','',[rfReplaceAll]);

            end

            else

            begin

              Rua := qryClientesRUA.AsString;

              Numero := qryClientesNUMERO.AsString;

              Complemento := qryClientesCOMPLEMENTO.AsString;

              Bairro := qryClientesBAIRRO.AsString;

              Cidade := qryClientesCIDADE.AsString;

              Estado := qryClientesCODETD.AsString;

              CEP := stringreplace(qryClientesCEP.AsString,'-','',[rfReplaceAll]);

            end;

            Email := qryClientesEMAIL.AsString;

         end; {with Endereco}

 

         {Dados bancários do sacado do título}

         with ContaBancaria do

         begin

            Banco.Codigo := '';

            CodigoAgencia := '';

            DigitoAgencia := '';

            NumeroConta := '';

            DigitoConta := '';

         end; {with Banco}

      end; {with Sacado}

   end; {with Titulo}

 

       gbTitulo1.InsertRecord;

       gbTitulo1.SalvarPDF(NomeArquivoPDF);

 

 

----------------

[Juliana Tamizou]

Boa noite.

 

Basta setar a propriedade MostrarPreview como false no componente de impressão de boletos.

Você pode utilizar ainda o comando GerarPDF() do ACBrBoleto.

 

Att.