title image


Smiley Im Prinzip so....


Private Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" _

(ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, _

ByVal lpFileName As String) As Long



Public Function SetPDFCreatorFileName(FullPath As String)

Dim F As String, Path As String, FName As String, I As Long

I = InStrRev(FullPath, "\")

FName = Mid(FullPath, I + 1)

Path = Left(FullPath, I)

I = InStrRev(FName, ".")

If I > 0 Then FName = Left(FName, I - 1)

F = GetSpecFolder(CSIDL_APPDATA) & "\PDFCreator\PDFCreator.INI"

WritePrivateProfileString "Options", "AutosaveDirectory", Path, F

WritePrivateProfileString "Options", "AutosaveFilename", FName, F

End Function





Du musst allerdings den PDFCreator so einstellen, dass er auch die Einstellungen auswertet (also "benutze automatisches Speichern" einschalten).


Gruß aus dem Norden
Reinhard


Bitte immer die Access-Version angeben!
DB-Wiki


Wie man Fragen richtig stellt

YaccessAccess-FAQUnd ansonsten: Wikipedia




geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: