PDF aus einer Userform öffnen
05.03.2004 12:40:43
Peter
ich möchte ein ausgewähltes PDF-Dokument aus einer Userform starten.
Habe dazu folgendes Makro zusammengeschustert.
Hat auch eine ganze Weile geklappt.
Nun habe ich aber den Adobe Reader 6.0 installiert und die geht nicht mehr.
Hat jemand eine Idee woran das liegen kann ?
Private Sub CommandButton7_Click()
Dim meld
Dim Pdf1
On Error GoTo meldung
bilder.Pdf1.Visible = True
If bilder.Pdf1.LoadFile("//Intra/Bildkatalog/" & "B" & ActiveCell & ".pdf") = False Then
meld = MsgBox("Keine Montageanleitung verfügbar!(Beispiel 44568760)", vbInformation, ("Sie haben Artikel" & " " & ActiveCell & " " & "ausgewählt!"))
Exit Sub
Else
bilder.Pdf1.LoadFile ("//Intra/Bildkatalog/" & "B" & ActiveCell & ".pdf")
With bilder
.Caption = "Montageanleitung"
End With
With bilder.Pdf1
.Height = Application.Height
.Width = Application.Width
End With
End If
Exit Sub
meldung:
Beep
meld = MsgBox("Keine Datenanzeige!" & vbCr _
& " " & vbCr _
& "Mögliche Ursache:" & vbCr _
& "Es ist kein Acrobat Reader auf Ihrem System installiert!", vbCritical, "Fehlermeldung (Montageanleitung)")
'MsgBox "Ist ein Acrobat Reader auf Ihrem System installiert?"
End Sub
Danke für jede Hilfe
Gruss
Peter