Ler e imprimir um PDF

Alexandre Silva · Mensagem por **Alexandre Silva** » 09 Set 2016 18:39

Pessoal,
Existe no harbour funcao para ler e imprimir uma arquivo PDF ?
Usava o sumatrapdf muito bom , pois aceita comandos de linha..com opcao de mostrar na tela ou imprimir..
mas hj em 2 clientes, que já usavam, começou a dar Acesso Negado

Ai o suporte de rede fez varias mudançaas de direitos etc, baixamos a ultima versao. mas nao resolveu..

Imagino que no harbour dever ter uma funcao ..

Obrigado

Mensagem por **JoséQuintas** » 09 Set 2016 22:07

O que seriam os PDFs? arquivos gerados pelo aplicativo?
Se for isso, salve em pasta temporária do Windows.
(se o acesso negado for ao arquivo PDF).

Alexandre Silva · Mensagem por **Alexandre Silva** » 09 Set 2016 22:10

Os pdf sao gerados pelo aplicativo.. e salvos.. eles existem..podem ser abertos com acrobat reader por exemplo
Apenas que o sumatrapdf esta com acesso negado..
Por isso pensei em uma solucao nativa , sem depender ter programas externos

Mensagem por **Kapiaba** » 12 Set 2016 09:59

Use o meu, funciona normal, se der acesso negado, ou o arquivo está corrompido ou tiraram as permissões de rede(Server) ou você está passando a linha de comando interna do seu programa erroneamente. Avise.

Abs.

Mensagem por **Kapiaba** » 12 Set 2016 10:11

Código: Selecionar todos

   WinExec( cDirExe+"sumatra\sumatrapdf.exe -reuse-instance -lang br "+gravaPDF)             // com preview

   ou:

   WinExec(PastaSistema+"\sumatrapdf.exe -print-to "+nPrn+" -reuse-instance -lang br "+cArq) // sem preview

Abs.

Alexandre Silva · Mensagem por **Alexandre Silva** » 12 Set 2016 12:08

Eu agradeço..
Mas nao ocorre o seguinte, já uso há mais 3 anos , do nada 3 empresas começaram a dar acesso negado...
Coloquei sua versao atual e tb nao adiantou.
Vejam no anexo que se executado via windows dá a mensagem de acesso negado..

O pessoal de rede nao mudou nada, mas deu um algumas maquinas outras nao..
tb nao é anti virus, desativei para testar

Eu uso esse comando para chamar, sei que nao é esse o erro..

Código: Selecionar todos

 if vtpsaida='1' // mostra
      vcomando:='sumatrapdf '+cFilePdf
      bb_run(vcomando)
   elseif vtpsaida='2' //
      vcomando:='sumatrapdf -print-dialog -exit-on-print '+cFilePdf
      hb_run(vcomando)
   endif

Eu realmente queria uma solucao sem depender de externos.
Vi aqui o objeto OPDF, mas nao vi uma opcao ler o arquivo e imprimir..

Obrigado

Mensagem por **Kapiaba** » 12 Set 2016 12:30

Não é acesso negado, é o caminho(PATH) que não está sendo mostrado ao windows, ou a pasta não está compartilhada. Eu acho...

Alexandre Silva · Mensagem por **Alexandre Silva** » 12 Set 2016 12:42

O aplicativo está local em cada pasta...

Independente disso .. quando vou na pasta onde extrai teu anexo, nao consegue rodar o sumatra.exe

Mensagem por **Kapiaba** » 12 Set 2016 13:06

você está dizendo, que se for na pasta ex: c:\sumatra e digitar: SUMATRAPDF, não aparece esta imagem?

rossine · Mensagem por **rossine** » 12 Set 2016 13:11

Olá Alexandre,

Aqui em um cliente também ocorreu este mesmo problema.

Lá ele tem o antivirus AVG instalado. Estou verificando se é ele o culpado pelo travamento. (hehe)

T+

Alexandre Silva · Mensagem por **Alexandre Silva** » 12 Set 2016 13:14

Olha que coisa que me aconteceu...
Coloquei uma versao 3.1.2 e o mesmo programa com nome sumatrapdf.exe nao roda Nao abre
Se mudar o nome para sumatrapdf2.exe ele abre essa sua janela sua ai.. coisa de louco

O que pode ser ?

Mensagem por **Kapiaba** » 12 Set 2016 14:13

Anti virus bloqueou.

Se AVG:-> Configurações Avançadas - Exceções. Ou Quarentena,

Mensagem por **Kapiaba** » 12 Set 2016 15:11

Usando o seu comando:

Código: Selecionar todos

   vcomando:='c:\sumatra\sumatrapdf '+cFilePDF

   WinExec(vcomando)

Abs