PDF-Drucker: Speicherpfad und Dateiname

[Luk90]

Guten Morgen liebe Access-Freunde

ich habe ein kleines Problem zur VBA-Programmierung bei dem ich nicht weiter komme:
(erstmal vorweg: ich bin absoluter VBA-Neuling, also bitte verzeiht es mir wenn ich "dumme" Fragen stelle)

Hier mein Problem: ich möchte ein Pdf eines bestimmten Berichts automatisiert erstellen. Dabei möchte ich allerdings nicht auf den integierten Pdf-Creator von Access zurückgreifen, da dieser fehlerhafte Zeichen wiedergibt sondern auf den von Adobe.

Ich habe dazu einen Button erstellt, der den Bericht über den Adobe Pdf Creator "drucken" soll, das klappt schon mal ganz gut (man muss nur Dateiname und Speicherpfad manuell angeben)
Allerdings soll dieses PDF nun auch automatisch auf einem bestimmten Pfad abgespeichert werden und einen vorher festgelegten Dateinamen erhalten.
Ich habe bisher leider keinen Weg gefunden, wie man dies bewerkstelligen kann

Edit: Evtl wäre es ja auch möglich das ganze ohne den "Drucken" Umweg zu lösen? also durch direkte Einbindung des Adobe PDF Creators??

Das hier ist mein bisheriger Code:

Code [Auswählen] Erweitern

Private Sub Befehl7_Click()
DoCmd.OpenReport "Anforderung Stichproben", acViewPreview, , , acHidden

Set Screen.ActiveReport.Printer = Printers("Adobe PDF")
    Screen.ActiveReport.Printer.Orientation = 2
     
DoCmd.PrintOut
       
End Sub


Vielen Lieben Dank für Eure Hilfe

[DF6GL]

Hallo,


die Frage geht eher an Adobe (-PDF-Drucker)  als an Access..  Wenn der PDF-Drucker von Adobe keine (VBA-) Einstellmöglichkeit für die Dateinamen in seinen Eigenschaften hat, sehe ich da etwas schwarz. Möglicherweise hat das Printer-Objekt für den Adobe-PDF-Drucker passende Einstellmöglichkeiten.

[Luk90]

Wo würde man diese Einstellmöglichkeit denn finden? ist das sowas wie printtofile ?? (wie gesagt, bin Anfänger )

Habe eine Möglichkeit mit Sendkey (Enter) gefunden, aber das würde ich eigl gerne vermeiden.

Vielen Dank für deine Hilfe

[el_gomero]

Moin,

schau dir mal OutputTo an, das könnte bei dir passen, evtl so

Code [Auswählen] Erweitern


DoCmd.OutputTo acOutputReport, "deinBericht", acFormatRTF, "Ausgabename.pdf", True


[Luk90]

Hallo el_gomero,

leider bekomme ich damit die Fehler Meldung, dass Adobe PDF die Datei nicht öffnen konnte, da es kein unterstützter Dateityp ist, oder es beschädigt ist.

[el_gomero]

hatte einen Fehler bei der Übernahme aus der OH - richtig sollte sein

Code [Auswählen] Erweitern


DoCmd.OutputTo acOutputReport, "deinBericht", acFormatPDF, "Ausgabename.pdf", True


selbst mitdenken ist aber ausdrücklich erlaubt ...

[DF6GL]

Hallo,


outputto kommt doch nicht in Frage... das produziert doch die fehlerhaften Zeichen....

Es muss das Printer-Objekt auf den Adobe-Printer (aus der Printers-Auflistung) gesetzt  und von diesem Printer-Objekt die Eigenschaften ermittelt werden  (siehe VBA-Hilfe) .

[el_gomero]

outputto kommt doch nicht in Frage... das produziert doch die fehlerhaften Zeichen....

danke, Franz ... doch besser, wenn man den ganzen Text liest

[DF6GL]

Hi Jürgen,

hatte ja im Vorfeld schon auf freeaccess das Crossposting-Vergnügen...

[el_gomero]

das Thema kam mir gleich bekannt vor - auf MS-Office-Forum ist er auch damit unterwegs. Ein Fall für die Blacklist 

[Luk90]

Hey Leute, wie bereits gesagt der Crosspost tut mir echt leid.

Ich hoffe ihr seit mir deswegen nicht böse. Ich wusste nicht, dass sowas nicht erwünscht ist.
Ich werde ab sofort nur noch auf diesem Forum posten.

Ich bin euch wirklich dankbar für eure Hilfe. Bin in diesem Gebiet (ebenso wie das Verhalten in Foren) ein absoluter Neuling.

Wollte wirklich niemanden auf den Schlips treten

[DF6GL]

Hallo,

alles halb so schlimm,  sonst gäbe es hier keine Antwort(en).

Ich denke mal, die  Verwendung einer funktionierenden alternativen Schriftart (Font) wäre für Dich der einfachste Weg.  Warum ist man denn so erpicht auf diesen unumstößlichen Font?

[Luk90]

Ok, dann bin ich ja beruhigt Und nochmals vielen Dank für die Geduld mit mir

Es ist halt die Standart-Schriftart des Unternehmens. Und es ist auch noch nicht einmal eine außergewöhnliche Schriftart. Ändern ist leider nicht möglich, da der Bericht als offizielles Dokument verwendet werden soll.

Ich hatte wirklich gehofft das Problem durch Einlesen in VBA und programmieren eines Buttons der über den der Bericht per PDF-Drucker automatisch "gedruckt" wird zu lösen.

Ich hatte einen anderen Post gefunden, der ein ähnliches Problem per Sendkey{ENTER} löst. Drauf wollte ich aber eigl nur zur Not zurückgreifen. Denke das ist keine wirklich saubere Lösung oder?

Ich lese nachher nochmal nach wie man die Eigenschaften von Adobe PDF ausliest, wie du es meintest, evtl. gibt es ja da eine Möglichkeit.

[markusxy]

Einfach unter PDF Ausgabeordner einen fixen Ordner hinterlegen, statt der Eingabeaufforderung für den Namen. Sobald das Dokument gedruckt ist, dieses dorthin verschieben, wo es erwünscht ist. Allerdings muss bei der Programmfortsetzung eine Pause vorgesehen werden, das das Dokument nicht sofort greifbar ist. Eventuell eine Schleife, da die Verzögerung nicht sicher vorhersehbar ist.

[Luk90]

Vielen Dank für deine Antwort,

aber könntest du das evtl nochmal genauer erläutern, verstehe nicht ganz, wie du das meinst

VG
Luk