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
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“
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!
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
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!
Hallo Franz,
habe die Antwort mir selbst gegeben mit:
Report.Caption = „RECHNUNG_“ & Forms![Rechnung bearbeiten]!RECHNUNGSNUMMER
Danke für die Hilfe trotzdem
Dirk
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
Hallo Franz,
habe mir aus Deinen letzten 2 Antworten meine Lösung zusammen gebastelt mit der ich gut Leben kann.
Dirk