Bericht als .pdf mit Rechnungsnummer

Computer: Software & Programmierung Microsoft Access
#1

Hallo zusammen,

gibt es die Möglichkeit aus A00 eine pdf-Datei zu „drucken“ (PDF-Creator 0.9.8), die den Dateinamen automatisch aus dem Berichtsnamen (hier: RECHNUNG) und der Rechnungs-Nummer zusammensetzt?
Beispiel: „RECHNUNG_090807.pdf“

Danke im voraus:

Dirk

#2

Hallo,

gibt es die Möglichkeit aus A00 eine pdf-Datei zu „drucken“
(PDF-Creator 0.9.8), die den Dateinamen automatisch aus dem
Berichtsnamen (hier: RECHNUNG) und der Rechnungs-Nummer
zusammensetzt?
Beispiel: „RECHNUNG_090807.pdf“

  1. die Ini-Datei des PDF-Creators (falls vorhanden) manipulieren.

2)Den Bericht per VBA aus einem Form heraus mit Übergabe des gewünschten Namens im Openargs-Parameter als Vorausschau öffnen und im Open-Ereignis diesen Namen der Berichts-Bezeichnung (Caption) zuweisen. Mit Printout den bericht drucken.

Viele Grüße vom Bodensee
Franz , DF6GL

PS: Feedback erwünscht!

#3

Hallo Franz,

Erste Variante geht nicht, da alle Rechnungen individuell sind.

Zweite Variante ist recht interessant, komme aber mit der caption-Anweisung im OpenReport nicht klar:

Report.Caption = „RECHNUNG_“ & RECHNUNGS_NUMMER

ergibt einen Fehler. Ist Rechnungs_Nummer vielleicht bei OpenReport noch nicht bekannt?

Zusatzfrage: Eine direkte Ausgabe aus dem Formular, welches die Rechnungsnummer bereits enthält gibt es wohl nicht (ohne Umweg über die Vorschau)?

Gruß

Dirk

#4

Hallo,

es sollte so sein (Error-Trap sollte noch dazu):

Private Sub Drucken_Click()
Dim RNR as String

RNR = „RECHNUNG_090807“ ’ woher auch immer diese Nummer kommt
DoCmd.Echo False
DoCmd.OpenReport „rpt_Rechnung“, acPreview, , , , RNR DoCmd.PrintOut
DoCmd.Close acReport, „rpt_Rechnung“, acSaveNo
DoCmd.Echo True

End Sub

Private Sub Report_Open(Cancel As Integer)
If not isnull( Me.Openargs) Then Me.Caption = Me.OpenArgs
End Sub

Viele Grüße vom Bodensee
Franz , DF6GL

PS: Feedback erwünscht!

#5

Hallo Franz,

habe die Antwort mir selbst gegeben mit:

Report.Caption = „RECHNUNG_“ & Forms![Rechnung bearbeiten]!RECHNUNGSNUMMER

Danke für die Hilfe trotzdem

Dirk

#6

Hallo,

soclche Form-Verweise sind allerdings nicht empfehlenswert…

Der Code sollte in dieser Konstellation so aussehen:

im Form „Rechnung bearbeiten“ :

Private Sub Drucken_Click()

DoCmd.Echo False
DoCmd.OpenReport „rpt_Rechnung“, acPreview, , , , „RECHNUNG_“ & Me!Rechnungsnummer
DoCmd.PrintOut
DoCmd.Close acReport, „rpt_Rechnung“, acSaveNo
DoCmd.Echo True

End Sub

#7

Hallo Franz,

habe mir aus Deinen letzten 2 Antworten meine Lösung zusammen gebastelt mit der ich gut Leben kann.

Dirk