COMO ABRIR ARQUIVOS PDF NO VB

GESSINGER 27/03/2011 21:55:23
#369373
Ola meu irmãos como faço para ao clicar num botão abra um pagima em pdf ? Obrigado
FNANDOOD 28/03/2011 00:18:30
#369379
Descobri uma maneira fácil de embarcar um leitor de pdf em uma instalação:
Eu gero meus relatórios em arquivos pdf e visualizo eles em um form.

Siga os passos abaixo:
Desta forma o computador do cliente não precisa ter adobe acrobat instalado na máquina.

Em anexo envio o FoxitReaderOCX.ocx

Para que ele funcione faça o seguinte:
Coloque o componente em um form

Copie o FOXIT READER - versão PORTABLE
http://www.baixaki.com.br/download/foxit-pdf-reader-portable.htm

O programa é composto de um arquivo FOXITREADER.EXE com 5 MB.

para que o componente funcione, NA PRIMEIRA instalação do programa, voce deve abrir qualquer arquivo pdf com o foxit reader, somente uma vez para que a extenção pdf fique vinculada ao foxit.

depois é só colocar o componente no form esse comando que você poderá visualizar

FoxitReaderOCX1.OpenFile [Ô]C:\A.PDF[Ô]

Coloque o foxitreader.exe e foxireaderocx.ocx junto na instalação que funcionará como um visualisador de relatório em pdf.
MARCELO.TREZE 28/03/2011 06:16:46
#369384
se deseja apenas abrir um arquivo pdf sugiro isso


insira um módulo no projeto e cole


Public Const SW_SHOW As Long = 5
Declare Function ShellExecute Lib [Ô]shell32.dll[Ô] Alias _
        [Ô]ShellExecuteA[Ô] (ByVal hwnd As Long, ByVal _
        lpOperation As String, ByVal lpFile As String, _
        ByVal lpParameters As String, ByVal lpDirectory _
        As String, ByVal nShowCmd As Long) As Long


depois no form

Private Sub Command1_Click()
  Dim Caminho As String
  Caminho= [Ô]c:\pasta\arquivo.pdf[Ô]
  Dim i&
  i& = ShellExecute(0, [Ô]open[Ô], Caminho, [Ô][Ô], [Ô][Ô], SW_SHOW)
End Sub
Tópico encerrado , respostas não são mais permitidas
Voltar