Dúvida sobre PDF

[JoséQuintas]

Uso o zebrado nos relatórios.
O esquisito é que em algumas impressoras Laser isso não aparece.
Alguma dica?

Abaixo como aparece no leitor de PDF o zebrado.

pdf.png (1.92 KiB) Exibido 694 vezes

[Kapiaba]

Bom dia, qual é Leitor de .PDF que usas? Abs.

[JoséQuintas]

Antes era o Foxit Reader, até fazer boletos, e aparecerem deformados.
Agora é o Acrobat Reader.

Por falar nisso, no Harbour 3.4 agora tem duas versões da harupdf.
A nova diz ser muitas vezes mais rápida que a anterior, mas não cheguei a olhar se depende de alguma configuração no HBP.

[Kapiaba]

Tente com o SUMATRAPDF.EXE, programa leve e fácil de controlar internamente em seu sistema.

http://www.sumatrapdfreader.org/free-pdf-reader-pt.html

http://www.sumatrapdfreader.org/manual-pt.html

http://forums.fofou.org/sumatrapdf/

Veja com eu faço:

Código: Selecionar todos

   // USando o SUMATRAPDF.EXE
   REDEFINE BUTTON oVisualPDF ID 301 OF oDlgEnv ;
            ACTION ( VISUALIZAR_PDF_CCE( cAlias ) ) CANCEL

   oVisualPDF:cToolTip := OemToAnsi( "Visualizar o Arquivo *.PDF da CC-e em C:\NFEPDF Usando o SumatraPDF" )


FUNCTION VISUALIZAR_PDF_CCE( cAlias )

   LOCAL NFEVisualSUM, nNumNfeSUM, nRecNo, lSucesso := .F.

   IF .NOT. FILE( cDirExe+"SUMATRA\SUMATRAPDF.EXE" )

      MsgStop( OemToAnsi( "ATEN€ÇO USUµRIO:                    " )+CRLF+ ;
               OemToAnsi( "O PROGRAMA DA NOTA FISCAL ELETRâNICA" )+CRLF+ ;
               OemToAnsi( "DETECTOU A FALTA DE UM COMPONENTE   " )+CRLF+ ;
               OemToAnsi( "NECESSµRIO PARA SE PODER VISUALIZAR " )+CRLF+ ;
               OemToAnsi( "O ARQUIVO NO FORMATO *.PDF.         " )+CRLF+ ;
               OemToAnsi( "POR FAVOR, ENTRE EM CONTATO.        " )+CRLF+ ;
               OemToAnsi( "INFORME QUE FALTA O SUMATRAPDF.EXE  " )+CRLF+ ;
               OemToAnsi( "NA PASTA, C:\INST_NFE\SUMATRA\      " ),      ;
               OemToAnsi( "Faltando Componente de Visualiza‡Æo." ) )

      RETURN NIL

   ENDIF

   nRecNo     := ( cAlias )->( RecNo() ) //-> CCE.DBF
   GoTo( nRecNo )

   nNumNfeSUM := VAL( SUBSTR( ( cAlias )->CHAVE, 29, 6 ) )

   // Modificado em: 09/12/2013 Nao funcionava em rede, ALLTRIM no lugar errado.
   // Mostrava um espaco em Branco no numero da NFe, somente em Rede.
   NFEVisualSUM := "C:\NFEPDF\"+"CCE"+ALLTRIM( STR( nNumNfeSUM ) )+".PDF"

   MsgWait( "LOCALIZANDO O ARQUIVO DA CARTA DE CORRECAO", ;
            "AGUARDE UM MOMENTO POR FAVOR...           ", 1.5 )

   IF .NOT. FILE( NFEVisualSUM )  // VISUALIZAR ARQUIVO NO SUMATRAPDF.EXE

      MsgStop( OemToAnsi( "ATEN€ÇO USUµRIO:                          " )+CRLF+ ;
               OemToAnsi( "ARQUIVO *.PDF DA CC-e DA NF-e: "+STR( nNumNfeSUM ) )+CRLF+ ;
               OemToAnsi( "NAO FOI LOCALIZADO NO DIRETàRIO C:\NFEPDF " )+CRLF+ ;
               OemToAnsi( "PROVAVELMENTE A CC-e NÇO FOI IMPRESSA, OU " )+CRLF+ ;
               OemToAnsi( " MUITO ANTIGA.  REIMPRIMA A CARTA DE     " )+CRLF+ ;
               OemToAnsi( "CORREۂO DESTA NOTA FISCAL, PARA GERAR O  " )+CRLF+ ;
               OemToAnsi( "ARQUIVO *.PDF DESTA CARTA DE CORREۂO.    " )+CRLF+ ;
               OemToAnsi( "ASSIM, VOCÒ PODE ENVIAR O *.PDF DA CC-e,  " )+CRLF+ ;
               OemToAnsi( "PARA O SEU CLIENTE, VIA EMAIL...          " )+CRLF+ ;
               OemToAnsi( "TECLE <ENTER> PARA CONTINUAR...           " ),      ;
               OemToAnsi( "ARQUIVO *.PDF NÇO LOCALIZADO EM: C:\NFEPDF" ) )

      RETURN NIL

   ENDIF

   // Dispara para o SUMATRAPDF como o Numero da NFE.  10/10/2013
   // MYRUN...
   WinExec( cDirExe+"sumatra\sumatrapdf.exe -reuse-instance -lang pt "+NFEVisualSUM)   //-restrict -fullscreen

RETURN NIL

Abs.

[Kapiaba]

Correção: A versão 3.0 que está disponivel, não está do jeito que está a minha, não entendi o q houve, mas não está aparecendo os menus do visualizador. Estou pondo em em anexo, a versão que uso atualmente.

[JoséQuintas]

O resultado foi o mesmo, não saiu o zebrado.

Aqui uso assim: ShellExecuteOpen( "arquivo.pdf" )

Isso abre o leitor padrão, não importa qual seja.
A função é só pra ter menos digitação. Faz uso da função da hbwin.
Vale pra qualquer tipo de documento, PDF, XLS, HTML, DOC, etc.

Código: Selecionar todos

FUNCTION ShellExecuteOpen( cFileName, cParameters, nShow )
   nShow := iif( nShow == NIL, SW_SHOWNORMAL, nShow )
   WAPI_ShellExecute( NIL, "open", cFileName, cParameters,, nShow )
   RETURN NIL

Depois vou testar com boleto. Valeu.

Nota: Quando do seu último post, já tinha baixado e instalado a versão 3.0 do site, em EXE, com 4.5mb. Mostrou o menu completo.

[Kapiaba]

Ok, entendi. Então o problema não está no visualizador e sim faltando algum comando no seu programa. abs.