Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit
GELÖST

Excel 2010, PDF-Hyperlinks drucken

Frage Microsoft Microsoft Office

Mitglied: Nichita

Nichita (Level 1) - Jetzt verbinden

22.08.2014, aktualisiert 14:12 Uhr, 1983 Aufrufe, 4 Kommentare

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
Mitglied: colinardo
LÖSUNG 22.08.2014, aktualisiert um 20:09 Uhr
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...
01.
Dim strValue, arrSubKeys, strKeyPath, sk, oReg, fso, iResult 
02.
set fso = CreateObject("Scripting.Filesystemobject") 
03.
Const HKEY_LOCAL_MACHINE = &H80000002 
04.
Set oReg = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv") 
05.
strKeyPath = "SOFTWARE\Adobe\Adobe Acrobat" 
06.
iResult = oReg.EnumKey(HKEY_LOCAL_MACHINE, strKeyPath, arrSubKeys) 
07.
 
08.
If iResult = 0 Then 
09.
	For Each sk In arrSubKeys 
10.
		oReg.GetStringValue HKEY_LOCAL_MACHINE,strKeyPath & "\" & sk & "\InstallPath","",strValue 
11.
		If strValue <> "" And fso.FileExists(strValue & "\Acrobat.exe") Then 
12.
	   		strPathAcrobat = strValue & "\Acrobat.exe" 
13.
			Exit For 
14.
		End If 
15.
	Next 
16.
End If 
17.
 
18.
' Für einen Test den ausgelesenen Pfad anzeigen 
19.
if strPathAcrobat <> "" then 
20.
   MsgBox strPathAcrobat 
21.
else 
22.
  MsgBox "Acrobatpfad wurde nicht gefunden!",vbExclamation 
23.
end if
Grüße Uwe
Bitte warten ..
Mitglied: Nichita
22.08.2014 um 13:20 Uhr
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
Bitte warten ..
Mitglied: colinardo
22.08.2014, aktualisiert um 13:23 Uhr
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 ...
Bitte warten ..
Mitglied: Nichita
22.08.2014 um 14:12 Uhr
Tut mir Leid Fehlalarm! Der Kollege hatte mir verheimlicht das er kein Acrobat auf dem Rechner hat.
Funktioniert super Danke!
Bitte warten ..
Neuester Wissensbeitrag
Windows 10

Sticky Notes - Autostart unterbinden

Tipp von Pedant zum Thema Windows 10 ...

Ähnliche Inhalte
Microsoft Office
gelöst Email-Adresse aus Adressbuch-String in Excel 2010 herausschneiden (4)

Frage von rudeboy zum Thema Microsoft Office ...

Microsoft Office
PIVOT-CHART IN EXCEL 2010

Frage von MiSt zum Thema Microsoft Office ...

Microsoft Office
Excel 2010 Doc Properties ohne Makros (1)

Frage von arduino zum Thema Microsoft Office ...

Microsoft Office
Excel 2010 unter Windows 10pro (1)

Frage von MiSt zum Thema Microsoft Office ...

Heiß diskutierte Inhalte
Batch & Shell
gelöst Base64 Decode (Batch,VBS) (26)

Frage von clragon zum Thema Batch & Shell ...

Flatrates
DeutschlandLAN der Telekom - welche internen IPs? (19)

Frage von qualidat zum Thema Flatrates ...