Pesquisar na Comunidade

Bom dia senhores, estou utilizando o Delphi 2010 com IntraWeb junto com o ACBr para emissão de boletos e notas de serviço, porém estou passando por um erro chato e intermitente ao gerar o PDF do boleto, no método TACBrBoleto.GerarPDF as vezes retorna o erro "There is no default printer currently selected". O problema é que não ocorre sempre, pelo que entendi, o ACBr não se comporta muito bem com o IntraWeb, creio que o ACBr esteja tentando acessar diretamente a impressora, porém no servidor onde está rodando a aplicação possui uma impressora PDF instalada e o fato do erro ser intermitente me deixa ainda mais confuso. Caso alguém já tenha passado por esse erro ou tenha alguma pista por favor me ajudem, estou enlouquecendo já rsrsrs. Obrigado.

Bom dia...tudo bem? Existe alguma maneira eu definir o nome do arquivo PDF antes de gerar? sempre gerar como: "boleto.pdf" teria como definir o nome antes de gerar? exemplo: BOL102.PDF? Muito Obrigado...

Olá galera, estou recebendo um erro de "Access violation" quando tento gerar pdf separados de boletos. Tenho uma instancia do ACBrBoleto para o uso geral, e criei uma instancia separada do ACBrBoleto para dar loop na lista geral e ir imprimindo um por um. Porém quando efetuo o "Clear" ao final do ACBrBoleto ele dispara o erro. Tem algo a ver as duas instancias ? mesmo separadas ? Trecho do Código: ACBrAux := TACBrBoleto.Create(nil); try try ACBrAux.Cedente := Titulo.Cedente; ACBrAux.Banco := Titulo.Banco; ACBrAux.ACBrBoletoFC := BoletoFortesReport; for i := 0 to Pred(Titulo.ListadeBoletos.Count) do begin ACBrAux.ListadeBoletos.Add(Titulo.ListadeBoletos.Objects[i]); ACBrAux.ACBrBoletoFC.NomeArquivo := 'BO' + ACBrAux.ListadeBoletos.Objects[0].NossoNumero + '-' + BancoAux + '.PDF'; ACBrAux.GerarPDF; RedirecionaArquivo(ACBrAux.ACBrBoletoFC.NomeArquivo, XTelaPrincipalF.Dir_Boletos + 'Boletos Emitidos\BO' + ACBrAux.ListadeBoletos.Objects[0].NossoNumero + '-' + BancoAux + '.PDF'); DeleteFile(ACBrAux.ACBrBoletoFC.NomeArquivo); ACBrAux.ListadeBoletos.Clear; end; except on e: Exception do begin TMsgGen.MsgAviso('Erro: ' + e.Message); Exit; end; end; finally dmCadastroF.QryConfiguracoes.Close; end; end; except on e: Exception do begin TMsgGen.MsgAviso('Erro: ' + e.Message); Exit; end; end; finally Titulo.ListadeBoletos.Clear;

Não estou conseguindo gerar o PDF com o componente .. não dá nenhum erro simplesmente não faz nada. ACBrBoletoFCQuick1.NomeArquivo := 'C:\Livre\rel\BoletoPDF\'+'Boleto'+inttostr(I)+'.pdf'; ACBrBoleto.GerarPDF; Ja a opção de imprimir funciona;

Boa noite, Estou a 3 dias procurando algum tópico informando como que eu oculto a statusbar que aparece ao gerar boleto pelo ACBrBoleto do Fortes. Agradeço imensamente a quem puder me ajudar, e se já existir um tópico sobre este, favor divulgar! Desde já obrigado.