Novata en apuros!! De Excel a Pdf
Publicado por Wita (1 intervención) el 28/11/2006 18:36:53
Buenas, tengo un pequeño problema. Estoy realizando una aplicacion en VB 2005 primero genero un EXCEL una vez creado tengo que transformarlo en tiempo de ejecucion en un PDF. Me instale el Acrobat Writer y llego a abrir el fichero pdf donde luego quiero meter los datos del excel, pero no consigo hacer esto ultimo, alguien puede dejarme un ejemplo o comentarme como hacerlo? Os dejo el codigo por si veis algo mal
Dim AcroApp As Acrobat.CAcroApp
Dim PDDoc As Acrobat.CAcroPDDoc
Dim avDoc As Acrobat.CAcroAVDoc
AcroApp = CreateObject("AcroExch.App")
PDDoc = CreateObject("AcroExch.PDDoc")
If PDDoc.Open("AcroExch.PDDoc") = 0 Then
'If PDDoc.Open(ViewPDFNow) Then
AcroApp.Show()
AcroApp.Maximize(100)
PDDoc.Open(RutaApp & "\Plantillas\pdf.pdf")
avDoc = PDDoc.OpenAVDoc(RutaApp & "\Plantillas\pdf.pdf")
Else
MsgBox("Unable to open the PDF file", vbInformation)
End If
'PDDoc.Save(1, RutaExcell)
avDoc = Nothing
PDDoc = Nothing
AcroApp = Nothing
AcroApp.CloseAllDocs()
Muchas Gracias
Dim AcroApp As Acrobat.CAcroApp
Dim PDDoc As Acrobat.CAcroPDDoc
Dim avDoc As Acrobat.CAcroAVDoc
AcroApp = CreateObject("AcroExch.App")
PDDoc = CreateObject("AcroExch.PDDoc")
If PDDoc.Open("AcroExch.PDDoc") = 0 Then
'If PDDoc.Open(ViewPDFNow) Then
AcroApp.Show()
AcroApp.Maximize(100)
PDDoc.Open(RutaApp & "\Plantillas\pdf.pdf")
avDoc = PDDoc.OpenAVDoc(RutaApp & "\Plantillas\pdf.pdf")
Else
MsgBox("Unable to open the PDF file", vbInformation)
End If
'PDDoc.Save(1, RutaExcell)
avDoc = Nothing
PDDoc = Nothing
AcroApp = Nothing
AcroApp.CloseAllDocs()
Muchas Gracias
Valora esta pregunta


0