"Neo.dk" <neo___dk@hotmail.removethis.com> skrev i en meddelelse
news:3e193c33$0$47072$edfadb0f@dtext02.news.tele.dk...
> > Er der en derude som har en stump kode til at åbne en PDF fil med Adobe
> > acrobat reader, fra Visual basic 6.0 ?
> >
> > Med venlig hilsen
> > Dennis Bay
>
>
> Hmm .. når nu der ikke er andre der tilbyder hjælp, vil jeg da godt
forsørge
>
>
> Smid følgende i en form med en command button (Command1)
>
> Option Explicit
> Public What as String
>
> Private Sub Command1_Click()
>
> What = App.Path & "\" & "filnavn" & ".pdf"
>
> If Dir(What) = "" Then
> Call FilFejl 'kalder "filfejl" hvis filen ikke findes
> Exit Sub
> End If
>
> Dim x As Long
> x = ShellExecute(0, "open", What, "", "", SW_SHOWNORMAL)
>
> End Sub
>
> Private Sub FilFejl()
> Dim svar
> svar = MsgBox(prompt:="An error has occoured - the requested document
"
> & What & " is missing !", Title:="Error", Buttons:=vbOKOnly +
vbExclamation)
> End Sub
>
> Smid følgende i et modul
>
> ' ShellExecute
> Public Const SW_SHOWNORMAL = 1
> Public Const SW_SHOWNOACTIVATE = 4
> Public Const SW_SHOWNA = 8
> Public Const SW_SHOWMINNOACTIVE = 7
> Public Const SW_SHOWMINIMIZED = 2
> Public Const SW_SHOWMAXIMIZED = 3
> Public Const SW_SHOWDEFAULT = 10
> Public Const SW_SHOW = 5
>
> Public Declare Function ShellExecute Lib "shell32.dll" _
> Alias "ShellExecuteA" (ByVal hwnd As Long, _
> ByVal lpOperation As String, ByVal lpFile As String, _
> ByVal lpParameters As String, ByVal lpDirectory As String, _
> ByVal nShowCmd As Long) As Long
>
>
> Dette fungerer her hos mig, men om det er den bedste måde at gøre det på,
> tjaa ....
>
> Mvh Neo
>
Når Acrobat Reader er installeret, er der adgang til en ocx, kaldet --
PDF.OCX.
Med den kan du lave din egen form med en Acrobat control på eller printe
eller .....
Jan