Feldinhalt als Dateiname

[MzKlMu]

Hallo,
Du musst in der Seiteneinrichtung den "Speziellen Drucker" einstellen. Dazu gibt es einen Menüpunkt. Kann ich Dir nicht genauer beschreiben, da ich kein A2007 habe.

[DF6GL]

Hallo,


Für outputto:

1)wie heißt denn der Code nun aktuell?

2)steht im Berichtsentwurf unter Seite einrichten/Seite ein Haken bei Standard-Drucker?


für PrintOut:
1) im Berichtsentwurf unter Seite einrichten/Seite einen Haken bei "Spezieller Drucker" setzen und den FreePDF-Drucker angeben.

[database]

Hallo,

Ich hab das Addin installiert und den Code auf deinen Vorschalg abgeändert. Access will aber immer noch den normalen Drucker ansprechen...

Ja sicher, die Methode zum AUSDRUCKEN habe ich im Codebeispiel ja nicht entfernt - aber kommentiert.
setze vor diese Zeile ein Hochkomma, dann wird nicht auf dem Standarddrucker ausgedruckt.
DoCmd.PrintOut acPrintAll

DoCmd.OutputTo verwendet keinen Drucker

[carman0103]

Also momentan sieht der Code so aus:

Code [Auswählen] Erweitern

Private Sub druckpdf_Click()
    Dim BerichtsName As String
    Dim Filter As String, Pfad As String, Dateiname As String
   
    Pfad = "[pfad]"
    Dateiname = Pfad & Me![Bericht] & ".PDF"
    BerichtsName = "Datenblatt"
    Filter = "[Datensatz] = " & Me![Datensatz]
    DoCmd.OpenReport BerichtsName, acPreview, , Filter
    Reports(BerichtsName).Caption = Me![Bericht]
    'Bericht ausdrucken
    DoCmd.PrintOut acPrintAll
    DoCmd.Close acReport, BerichtsName
End Sub

Das Häkchen ist bei "spezieller Drucker" gesetzt. Ich habe es mit und ohne dem von Peter erwähnten Hochkomma versucht. Ich habe auch mein Free-PDF und den Adobe PDF Drucker versucht. beides funktioniert leider nicht. Was mache ich denn falsch?

[database]

Hallo,

du hast das AddIn installiert - JA
du hast meinen Codevorschlag ausprobiert - NEIN 

In dem von dir im letzten Posting gezeigten Code fehlt die Ausgabe als PDF!

ich stelle daher den passenden (hoffe ich zumindest) Code nochmals rein:

Code [Auswählen] Erweitern


[size=10pt]
Private Sub druckpdf_Click()
    Dim BerichtsName As String
    Dim Filter As String, Pfad As String, Dateiname As String
   
    Pfad = [pfad]
    Dateiname = Pfad & Me!Bericht & ".PDF"
    BerichtsName = "Datenblatt"
    Filter = "[Datensatz] = " & Me![Datensatz]
    DoCmd.OpenReport BerichtsName, acPreview, , Filter
    Reports(BerichtsName).Caption = Me!Bericht
    'Bericht ausdrucken Hochkomma beim nachfolgenden Befehl entfernen
    'DoCmd.PrintOut acPrintAll
    'Bericht als PDF ablegen
    DoCmd.OutputTo acOutputReport, BerichtsName, "PDF", Dateiname
    DoCmd.Close acReport, BerichtsName
End Sub

[/size]


KOPIERE nun den ganzen Code, so wie er ist ins Klick-Ereignis deines Button (klick oben auf '[Auswählen]').
Es sollte nun KEIN Ausdruck erfolgen aber die Ablage des Berichts unter dem angegebenen Dateinamen
im angegebenen Verzeichnis sollte funktionieren.
Steht der Speicherpfad ebenfalls in einem Formularfeld, dann ändere diese Zeile auf...
Pfad = Me![pfad]
Und beachte bitte unbedingt, dass die Pfadangabe in der Form erfolgen MUSS   X:\Verzeichnis\

[carman0103]

Genau so funktioniert der Code. Den Pfad habe ich auch in einem Feld und habe die entsprechende Zeile geändert. Klappt einwandfrei.

VIELEN DANK AN ALLE

[database]

Na also ... 
Dann kann ich mich wieder dem Bergisel-Springen widmen