Come creare un PDF da Visual Basic

[natasha]

Buonasera a tutti,
vorrei aggiungere ad un progetto Visual Basic un pulsante "Crea PDF" che mi permetta di creare un file PDF dai dati che normalmente visualizzerei in un'anteprima di stampa. Per essere più chiari, vorrei un modo per creare un file PDF che riproduca quello che vedrei facendo l'anteprima di stampa. E' possibile?
Kisses,

Nat

[cirmon]

Certo che è possibile!Se mi posti l'e@mail ti invio un esempio di progetto!! ;-))

:metallica

[Johnny_Depp]

sposto sul forum "Visual Basic".

[cirmon]

Ok Johnny_Deep!! ;-))

:metallica

[natasha]

natasha73@caltanet.it

[yyzyyz]

Originariamente inviato da cirmon
Certo che è possibile!Se mi posti l'e@mail ti invio un esempio di progetto!! ;-))

:metallica

saresti cosi gentile da postarlo sul forum, altrimenti ke ci vengo a fare qui :quipy:

[stefano80super]

farebbe piacere anche a me saperlo

[yyzyyz]

Originariamente inviato da cirmon
Certo che è possibile!Se mi posti l'e@mail ti invio un esempio di progetto!! ;-))

:metallica

:metallica mi sa di s******a

[Grunt]

Anche a me servirebbe!
Grazie ancora!

[Boromir]

Private Sub Command1_Click()
Dim AcroApp As CAcroApp
Dim AVDoc As CAcroAVDoc
Dim PDDoc As CAcroPDDoc
Dim IsSuccess As Boolean
Dim infile As String
Dim outfile As String

infile = App.Path & "\l.tif"


Set AcroApp = CreateObject("AcroExch.App")
Set AVDoc = CreateObject("AcroExch.AVDoc")
'AcroApp.Show
Call AVDoc.Open(infile, "")
Set AVDoc = AcroApp.GetActiveDoc
If AVDoc.IsValid Then

For i = 0 To 10
outfile = App.Path & "\" & i & "target.pdf"
Set PDDoc = AVDoc.GetPDDoc
If PDDoc.Save(1 Or 4 Or 32, outfile) <> True Then
strSuccessful = False
Else
strSuccessful = True
End If
Next i

PDDoc.Close
AVDoc.Close True
'AcroApp.Exit
Set PDDoc = Nothing
Set AVDoc = Nothing
Set AcroApp = Nothing

End If

End Sub



questo codice l'ho utilizzato per delle cose mie ... gestisciti da solo la routine ! Cmq fondamentalmente apri la tif con l'oggetto e lo salvi come pdf