ARQUIVOS PDF

USUARIO.EXCLUIDOS 08/03/2005 15:20:10
#71743
Aqui no site tem exemplos (e muito bons) que mostram como abrir um arquivo PDF ....... Tem como, quando abrir o arquivo PDF, ele já salvar em uma pasta no micro ???????
THIAGO.CESAR 08/03/2005 15:26:32
#71745
é só na hora que vc abrir você dar um FileCopy(Origem,Destino)
USUARIO.EXCLUIDOS 08/03/2005 15:33:02
#71749
mas o problema é que quando ele abre ele ainda não esta salvo .... portanto não "existe"
THIAGO.CESAR 08/03/2005 15:41:03
#71752
Você está editando um PDF???
De onde vc tira ele para exibir na tela?
USUARIO.EXCLUIDOS 08/03/2005 15:43:57
#71753
1 - Abre um arquivo PDF que serve com Modelo
2 - Mescla os dados de um arquivo .ini como os campos do PDF:
Se o campo Nome do PDF for igual a tag Nome do arquivo INI, o valor do campo da PDF vai ser o valor da TAG (Ex: DENNYSFL)
3 - Abre o PDF
THIAGO.CESAR 08/03/2005 16:07:03
#71761
Desculpe a minha ignorà¢ncia, mas você tá falando de PDF mesmo? (Portable Document File) Esses da Adobe ou tá falando de DBF?

Como está trabalhando com o arquivo, como está abrindo, mesclando, etc...??
USUARIO.EXCLUIDOS 08/03/2005 16:16:50
#71763
ADOBE ..... PDF ......
Segue o código:

  
Private Sub Command1_Click()

Dim formApp As AFORMAUTLib.AFormApp
Dim acroForm As AFORMAUTLib.Fields
Dim field As AFORMAUTLib.field
Dim mostra As Acrobat.CAcroApp
Dim avDoc As CAcroAVDoc
Dim myField As AFORMAUTLib.field
Dim Cont As Integer
Dim NomeModeloPdf As String
Dim teste As Acrobat.CAcroPDDoc
Dim savePos As Integer
Dim pos As Integer


Cont = Len(Modelo)
While Cont <> 0
If Mid(Modelo, Cont, 1) <> "\" Then
    NomeModeloPdf = NomeModeloPdf & Mid(Modelo, Cont, 1)
    Else
        NomeModeloPdf = StrReverse(NomeModeloPdf)
        GoTo SaiDoNomePdf
End If
Cont = Cont - 1
Wend
SaiDoNomePdf:

Set mostra = CreateObject("AcroExch.App")

Set avDoc = CreateObject("AcroExch.AVDoc")

avDoc.Open "c:\modelo.pdf", "Modelo.pdf"

Set formApp = CreateObject("AFormAut.App")

Set acroForm = formApp.Fields
                    
avDoc.BringToFront

avDoc.SetViewMode (1)

Dim parametros As Variant
    
Dim pasta As String
pasta = "D:\Documents and Settings\Administrador\Meus documentos\Medicos.ini"
parametros = GetInitEntry(pasta, "Medico", vbNullString)
            
PrimeiraVez = True

pos = InStr(1, parametros, vbNullChar)

Do While pos > 0
    If PrimeiraVez Then
        parametroatual = Mid(parametros, 1, pos - 1)
        PrimeiraVez = False
    Else
        parametroatual = Mid(parametros, savePos + 1, (pos - 1) - savePos)
    End If
    Dim valor As String
    valor = GetInitEntry(pasta, "Medico", parametroatual)

    If valor = "[vazio]" Then
        valor = ""
    End If

             For Each myField In acroForm

                    If UCase(parametroatual) = UCase(myField) Then
                        myField.Value = valor
                    End If

             Next myField


    savePos = pos
    pos = InStr(pos + 1, parametros, vbNullChar)
    
Loop

mostra.Show
mostra.Maximize 800
End Sub
Tópico encerrado , respostas não são mais permitidas
Voltar