Abrir Arquivo Pdf

[Angelo Augusto]

Pessoal , como faço para poder abrir um arquivo em PDF .

So quero abrir e mostra -lo no mo modo de visualização de impresão !

So consegui fazer isso com o documeto Word, Vai o codigo!

Dim word As Object

Set word = CreateObject("Word.Application")

'Abre o documento
word.Documents.Open "C:\Nome documento.doc"
'mostra o documento para usuario
word.Visible = True
'Modo de visualização de impressão
word.Documents("Nome documento.doc").PrintPreview

Agora no PDF, é muito diferente!!!

alguém me ajuda!

Muito Obrigado

[Lucas Phillip]

Opa.. beleza?

tente fazer assim:

Set gAcro = CreateObject("AcroExch.app")
Set newPD = CreateObject("AcroExch.PDDoc")
Set newAV = CreateObject("AcroExch.AVDoc")

`Para abrir o PDF
OK=newPD.open(nomeArquivo)
if not OK then
msgbox "Não foi possivel abrir o arquivo"
exit sub
endif

eu tirei esse código de algum lugar da net ai alguma vez, mas eu não cheguei a testá-lo, então não sei se realmente funciona. :rolleyes:

então da um retorno ai ok? ;)

falou

[Angelo Augusto]

Amigos , tentei o codigo passado. Não deu erro nenhum , mas também não abriu nenhum arquivo !!!

O que será que pode estar de errado no codigo ???

Pessoal ! consegui resolver o problema ,

faltava duas linhas de codigos, vou colocar o exemplo ai !!!

valewwwssss pela ajuda masi uma vez!

Set gAcro = CreateObject("AcroExch.app")
Set newPD = CreateObject("AcroExch.PDDoc")
Set newAv = CreateObject("AcroExch.AVDoc")
'Abri o Acrobat
gAcro.Show

'Para abrir o PDF
OK = newPD.Open("NOME DO ARQUIVO")
If Not OK Then
    MsgBox "Não foi possivel abrir o arquivo"
Exit Sub
End If
'título do aquivo
Set newAv = newPD.openAVDoc("TITULO DO ARQUIVO")

[Chiron]

Pessoal , como faço para poder abrir um arquivo em PDF .

So quero abrir e mostra -lo no mo modo de visualização de impresão !

So consegui fazer isso com o documeto Word, Vai o codigo!

Dim word As Object

Set word = CreateObject("Word.Application")

'Abre o documento
word.Documents.Open "C:\Nome documento.doc"
'mostra o documento para usuario
word.Visible = True
'Modo de visualização de impressão
word.Documents("Nome documento.doc").PrintPreview

Amigos, ainda na questao do Word, creio que o amigo que postou essa citação clica num botao e abre o documento word, aqui tambem uso ese codigo e funciona beleza, porem não consigo colocar o if / end if para fazer abrir outros documentos word. OU seja o caminho do documento é uma variavel. Como abrir esses documentos ao clicar no botao?

[kuroi]

chiron, se isso referente ao seu otro tópico, não poste nessa sala. o q você ta usando é visual basic .net (e aqui é a sala de visual basic 6 ou versoes anteriores), então os codigos daqui não são os mesmos q você vai usar.

mas se o caminho ta na variavel, não é so passar a variavel em vez da string??

bom, de qualquer forma responda no otro tópico: http://scriptbrasil.com.br/forum/index.php?showtopic=134653

q esse aqui eu to fechando.

se alguém quiser q eu abra de novo me manda uma mensagem pessoal.