Code funkt nicht beim Einfügen in andere Datei
30.09.2005 12:42:58
BEATE
Hab mal wieder ein Problem und vielleicht kann mir jmd. helfen.
Habe einen Code- liebenswerterweise von Nepumuk, mit dem ich ein Pdf-Drucken kann - Quelle für Dateiname und Verzeichnis aus Zellen. Funkt echt super.
Habe ein 2. Datei wo ich ein paar makros geschrieben habe.
Wenn ich nun, mit berücksichtigung aller Einträge, wie Verzeichnisse, richtige Benennung des KLassenmoduls usw. den Code in diese 2. Datei kopiere dann bekomm ich eine Fehlermeldung und ich weiss leider nicht warum.
Woran könnte das liegen?
Vielen Dank für Eure Hinweise...
LG BEATE
Sub Open_PDF(strPath As String, strFile As String)
'by Nepumuk
Dim strShortPath As String
strShortPath = Space(MAX_PATH)
GetShortPathName strPath & strFile, strShortPath, MAX_PATH
Fehler >>>strShortPath = Left$(strShortPath, InStr(1, strShortPath, vbNullChar) - 1)
ShellExecute GetActiveWindow, "open", strShortPath, "", strPath, SW_MAXIMIZE
End Sub