nichita

Excel 2010, PDF-Hyperlinks drucken

Hallo!

Ich habe eine Exceldatei (MS 2010, Win 7 32-Bit, VB 6) in der verschiedene Hyperlinks, die auf PDF´s verweisen, liegen. Es sollen mit Hilfe einer Schaltfläche diese gedruckt werden. So weit auch kein Problem. Leider soll die Datei von mehreren Usern genutzt werden. Diese unterscheiden sich sowohl in der Version des Acrobat als auch dem Betreibssystem. Hier wird Win7 32-Bit und 64-Bit genutzt. Hat jmd eine Ahnung wie man das ganze lösen kann?

LG
Auf Facebook teilen
Auf X (Twitter) teilen
Auf Reddit teilen
Auf Linkedin teilen

Content-ID: 247145

Url: https://administrator.de/forum/excel-2010-pdf-hyperlinks-drucken-247145.html

Ausgedruckt am: 13.05.2025 um 09:05 Uhr

colinardo
Lösung colinardo 22.08.2014 aktualisiert um 20:09:55 Uhr
Goto Top
Moin,
könntest du mit dem Auslesen des Pfades aus der Registry machen:
habe im Moment keine ältere Acrobat Version da, musst du halt mal testen...
Dim strValue, arrSubKeys, strKeyPath, sk, oReg, fso, iResult
set fso = CreateObject("Scripting.Filesystemobject")  
Const HKEY_LOCAL_MACHINE = &H80000002
Set oReg = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv")  
strKeyPath = "SOFTWARE\Adobe\Adobe Acrobat"  
iResult = oReg.EnumKey(HKEY_LOCAL_MACHINE, strKeyPath, arrSubKeys)

If iResult = 0 Then
	For Each sk In arrSubKeys
		oReg.GetStringValue HKEY_LOCAL_MACHINE,strKeyPath & "\" & sk & "\InstallPath","",strValue  
		If strValue <> "" And fso.FileExists(strValue & "\Acrobat.exe") Then  
	   		strPathAcrobat = strValue & "\Acrobat.exe"  
			Exit For
		End If
	Next
End If

' Für einen Test den ausgelesenen Pfad anzeigen  
if strPathAcrobat <> "" then  
   MsgBox strPathAcrobat
else
  MsgBox "Acrobatpfad wurde nicht gefunden!",vbExclamation  
end if
Grüße Uwe
Nichita
Nichita 22.08.2014 um 13:20:04 Uhr
Goto Top
Hallo Uwe,

Danke erstmal! Auf einem 32-Bit-System funktioniert das super auch mit verschiedenen Versionen von Acrobat. Auf einem 64-Bit Rechner funktioniert das leider nicht. Ich bekomme die Fehlermeldung "Typen unverträglich". Hast du noch eine Idee?

LG Alisa
colinardo
colinardo 22.08.2014 aktualisiert um 13:23:34 Uhr
Goto Top
Zitat von @Nichita:
Danke erstmal! Auf einem 32-Bit-System funktioniert das super auch mit verschiedenen Versionen von Acrobat. Auf einem 64-Bit
Rechner funktioniert das leider nicht. Ich bekomme die Fehlermeldung "Typen unverträglich". Hast du noch eine Idee?
läuft hier problemlos auf einem Win7 64Bit-Rechner ...
Nichita
Nichita 22.08.2014 um 14:12:28 Uhr
Goto Top
Tut mir Leid Fehlalarm! Der Kollege hatte mir verheimlicht das er kein Acrobat auf dem Rechner hat.
Funktioniert super Danke!