Bericht als PDF Speichern

[J.D]

Hi Leute,
lange nicht mehr da gewesen, aber nun habt ihr mich zurück...

Ich habe da folgendes problem das der Bericht zwar aufgeht mit dem richtigen Datensatz (soll er eigentlich nicht) aber egal... nur kommt immer ein RUNTIME 2501 - The OutputTo action was canceled

Code [Auswählen] Erweitern

Private Sub Command190_Click()
   Dim strBericht  As String
    Dim strWHERE    As String
    Dim strDatei    As String
    ' Local
    strBericht = "Checkliste"
    strWHERE = "[Rechnung_ID] =" & Me![ID] & ""
    strDatei = "C:\TEMP\""[Rechnung_ID] =" & Me![ID] & """.pdf"
    DoCmd.OpenReport strBericht, acViewPreview, , strWHERE, acHidden
    DoCmd.OutputTo acOutputReport, strBericht, acFormatPDF, strDatei, False
    DoCmd.Close acReport, strBericht
    ' Server
End Sub
please help!!!

grüsse J.D.

[andyfau]

Hallo,

der Aufbau der Variable strDatei ergibt keinen gültigen Dateinamen. Das verursacht den Fehler 2501.

Gruß
Andreas

[Beaker s.a.]

Und, falls du noch drauf gekommen bist, - Debug.Print ist deshalb dein Freund.

[ebs17]

Gegenfrage: Nach welchen Regeln baust Du den String so zusammen, wobei insbesondere das Einmischen von Anführungszeichen zu beschreiben wäre?

Code [Auswählen] Erweitern

strDatei = "C:\TEMP\""[Rechnung_ID] =" & Me![ID] & """.pdf"Wie dann schon geschrieben ist es oft hilfreich, das anzuschauen und zu überprüfen, was als Ergebnis eigenen Tuns herauskommt.

[J.D]

ok, danke für den wink mit dem dolch...

hab es hinbekommen, war echt dumm

grüsse J.D.