PDF-Datei öffnen

Forumthread: PDF-Datei öffnen

PDF-Datei öffnen

18.06.2008 12:07:00

Engin

Hallo zusammen,
Wie kann ich eine PDF-Datei per Makro öffnen?
Danke

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: PDF-Datei öffnen

18.06.2008 12:14:13

Ramses
AW: PDF-Datei öffnen

18.06.2008 14:05:00

Engin
AW: PDF-Datei öffnen

18.06.2008 14:45:46

Ramses
AW: PDF-Datei öffnen

18.06.2008 15:36:42

Engin
AW: PDF-Datei öffnen

18.06.2008 16:00:25

Ramses
Liest du eigentlich die Antworten?

18.06.2008 12:19:11

Matthias

AW: PDF-Datei öffnen

18.06.2008 12:14:13

Ramses

Hallo
am einfachsten so
Option Explicit
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


Sub pdfAufruf(strDatei As String)
'2002-02-20, Michael Scheffler, IMA
' Ruft PDF-Datei auf
Dim strTemp
strTemp = Space(Len(strDatei))
strTemp = strDatei
ShellExecute 0, "Open", strDatei, "", "", SHOWMAXIMIZED
End Sub


Der Aufruf aus dem Makro erfolgt dann mit

pdfAufruf("C:\Ordner\Deine_Datei.pdf")

Gruss Rainer

AW: PDF-Datei öffnen

18.06.2008 14:05:00

Engin

Hi, Sorry aber ich hab es nicht verstanden .
ich möchte es per Button aktivieren,
1. wo kommt der erste Teil des Codes hin und wo der zweite
2.wo muss ich den Pfad einfügen
Danke

AW: PDF-Datei öffnen

18.06.2008 14:45:46

Ramses

Hallo
Sorry, aber Grundkenntnisse sollten schon vorhanden sein, wenn man sowas machen will
Das gehört in Modul deiner Mappe
Option Explicit
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
Sub pdfAufruf(strDatei As String)
'========================================================================================
'2002-02-20, Michael Scheffler, IMA
' Ruft PDF-Datei auf
'========================================================================================
Dim strTemp
strTemp = Space(Len(strDatei))
strTemp = strDatei
ShellExecute 0, "Open", strDatei, "", "", SHOWMAXIMIZED
End Sub

Das gehört zum Button den du erstellst


Private Sub Commanbutton1_Click()
pdfAufruf("C:\Ordner\Deine_Datei.pdf")
End Sub

Gruss Rainer

AW: PDF-Datei öffnen

18.06.2008 15:36:42

Engin

Hi,
ja, hab ich ja gemacht es funktioniert nicht.

AW: PDF-Datei öffnen

18.06.2008 16:00:25

Ramses

Hallo
ich bin kein Hellseher
Bei mir funktioniert das.
Wenn du Hilfe brauchst, dann musst du schon mit etwas mehr infos rüberkommen, ansonsten ist hier fertig.
Gruss Rainer

Liest du eigentlich die Antworten?

18.06.2008 12:19:11

Matthias

Hallo Engin,
hier:
https://www.herber.de/forum/messages/986184.html
Gruß Matthias

Forumthread: PDF-Datei öffnen

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread