Office: (Office 2003) Beschriftung (Caption) eines Berichts mit VBA ändern

Ich möchte beim Öffnen eines Berichts diesem eine Beschriftung zuweisen, die verwendet wird, wenn der Bericht als PDF abgelegt wird (FreePDF verwendet als Default-Namen für die erzeugte Datei die Beschriftung des Berichts.) Damit soll die PDF-Datei eindeutig identifizierbar gemacht werden.
Wer kann mit einem Code helfen??

:)

 

Probiere es mit:
Code:

und einem Ereignis wie z.B. "Beim Öffnen".

 

Code:

 

Hallo Arne,
vielen Dank für den Tipp, leider löst er mein Problem noch nicht.
In meiner Datenbank werden mittels eines Berichts Verträge erstellt, die als PDF auf der Festplatte abgelegt werden sollen. FreePDF verwendet für den Dateinamen den Titel (Caption) des Berichts. Damit ich also die Verträge unterscheiden kann, muß ich vor der PDF-Erstellung dem Bericht eine entsprechende Beschriftung verleihen. Soviel zum Hintergrund. In der angefügten Datei ist eine Beispieldatenbank. Vielleicht kannst Du ja die Lösung dort integrieren. Vielen Dank im Voraus, Gruß, Lutz.

 

Ich verwende auf meinen Rechner FreePDF XP 3.01. Hier erscheint nach der Druckerauswahl ein Auswahldialog für
(1) PDF- Qualität
(2) PDF- Dateiname
(3) PDF öffnen / PDF verschlüsseln
(4) Behandlung PDF
- per E-Mail versenden
- Ablegen (als Datei)
- auf Desktop
- MultiDoc

Somit ist die Vergabe des Dateinamens frei und nicht an einen Titel gebunden.

 

Nachtrag: Ich habe mich vergangene Woche mit Stephan Lebans ReportToPDF angefreundet. Hiermit entstehen (was mich besonders freut) sehr kompakte, also sehr kleine PDF-Dateien.
Pfad und Dateinamen des neuen PDF-Dokuments kann man frei zusammenstellen und beim Aufruf der Funktion übergeben. Vielleicht eine überlegenswerte Sache, zumal man die zwei benötigten DLL´s mit der Anwendung mitgeben kann und beim Anwender nicht zwangsläufig ein bestimmtes Programm zur PDF-Erstellung voraussetzen muss.

 

Entferne aus dem Bericht jeglichen Code.
Im Formular habe ich zur Befehlsschaltfläche folgenden Code eingegeben:
Code: