Office: (Office 2010) Bericht als pdf.file speichern, mit der ID aus dem Bericht und Pfad als Dateiname

Hallo,

ich möchte gerne ein erstellten Bericht speichern, mit der ID aus dem Bericht und einem definierten Speicherpfad im Dateinamen.

Leider funzt mein Code überhaupt nicht.


Private Sub Berichtspeichern_Click()
Dim strDatei As String
strDatei = "C:\Users\Argo\Documents" & "" & [ID] & ".pdf"
DoCmd.OutputTo acOutputReport, "rptLiniensteckbrief", acFormatPDF,_
strDatei, False
End Sub


Kann mir vielleicht jemand auf die Sprünge helfen? *eek.gif*

Ist es zusätzlich möglich vorab ein Kontrollkästchen aus dem Bericht auszuwerten und je nachdem ob "ja" oder "nein" zutrifft einen entsprechend unterschiedlichen Speicherpfad anzugeben?

:)

 

Hallo,
wo befindet sich der Button Berichtspeichern, wo wird der
Code ausgeführt? Direkt im Bericht selbst?
Lass dir deinen Pfad mal per Debug.Print im Direktfenster (Strg + G) ausgeben, dann siehst du, ob der so in Ordnung ist.
Die Variable strPfad kannst du abhängig vom Kontrollkästchen mit einer If ... then ... else Bedingung füllen.
maike

 

Hallo,
der Button "Berichtspeichern" befindet sich im Bericht.
Ich habe jetzt noch eine Abfrage für die Auswahl des Speicherortes hinzugefügt.



Private Sub Berichtspeichern_Click()
Dim strDatei As String
Dim strPfad As String

If Reports!Rep_Bedienung_Einzelbericht!beschlossen = True Then
strPfad = "C:\Users\Kohla\Documents\beschlossen\"
Else
strPfad = "C:\Users\Kohla\Documents\nicht beschlossen\"
End If

strDatei = Reports!Rep_Bedienung_Einzelbericht!ID

DoCmd.OutputTo acOutputReport, "rptLiniensteckbrief" & strDatei, acFormatPDF, strPfad & ".pdf"

End Sub

Beim ausführen gibts in der letzten Zeile den Laufzeitfehler 2059 "Access kann das Objekt '|1 nicht finden".

Kann mir jemand sagen, woran das liegt?

 

Hallo,
ein vollständiger Dateiname besteht aus Pfad und Datei.
Versuche es daher mal so:
Code:

Lasse Dir vor dem OutputTo Befehl mal den zusammengesetzten String im Direktbereich mal anzeigen.

Debug.Print strPfad & strDatei & ".pdf"
Stop ' dann im Direktbereich nachsehen.

 

Hallo,

ich habe den Code angepasst, aber der Laufzeitfehler "2059 - Access kann das Objekt '|1 nicht finden" tritt immer noch auf.

Irgendwie funktioniert die Anzeige im Direktbereich auch nicht.
Wenn ich den Debug.Print ausführen möchte, dann ploppt ein Makro-Fenster auf, in das ich einen Makronamen eingeben soll?!?

 

Hallo,
zeige bitt mal den vollständigen Code, mit dem Debug.Print

 

Hallo,

der Debug.Print strPfad & strDatei & ".pdf" funktioniert.

Im Direktbereich wir folgendes angezeigt:

C:\Users\Kohla\Documents\beschlossen\5.pdf


Aber wieso entsteht immer noch der Laufzeitfehler 2059?

 

Moin,

warum ist es denn so schwer auf die Bitte vollständig zu antworten?

 

Hallo,

es ist natürlich nicht schwer vollständig zu antworten.*Smilie

Ich hab den vollständigen Code deshalb weggelassen, weil sich im nachhinein
herausgestellt hat, dass der o. a. Debug.Print doch funktioniert hat.

Hier ist der vollständige Code:

Private Sub Berichtspeichern_Click()

Dim strDatei As String
Dim strPfad As String

If Reports!Rep_Bedienung_Einzelbericht!beschlossen = True Then
strPfad = "C:\Users\Kohla\Documents\beschlossen\"
Else
strPfad = "C:\Users\Kohla\Documents\nicht beschlossen\"
End If

strDatei = Reports!Rep_Bedienung_Einzelbericht!ID

Debug.Print strPfad & strDatei & ".pdf"

DoCmd.OutputTo acOutputReport, "rptLiniensteckbrief", acFormatPDF, strPfad & strDatei & ".pdf"

End Sub

 

die Ausgabe per debug.print gibt aber nur einen Teil der Anweisung wieder. Deshalb ist der vollständige Code auch wichtig. btw - Code bitte zur besseren Lesbarkeit in Code-Tags setzen.

Code:

Der Code (oben etwas angepasst) sollte laufen. Kannst du mal eine Beispieldatei mit Spieldaten hochladen?

 

hab gerade nochmal getestet - der Fehler tritt auf wenn der Bericht nicht vorhanden ist.