Visual Interdev - Novata en apuros!! De Excel a Pdf

 
Vista:

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
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Novata en apuros!! De Excel a Pdf

Publicado por raul parra (1 intervención) el 15/05/2007 16:51:43
te cuento que yo lo estoy empezando a realizar y tengo una idea de como hacerlo, y cuando termine te aviso, que sera en esta semana.

me avisas como avisarte.

saludos.

raul.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar