Αυτοματοποιημένη Εξαγωγή Έκθεσης σε PDF

[Χρήστος]

Καλησπέρα.
Ζητώ την βοήθειά σας στο εξής.
Στη Βάση-Δείγμα και στην Φόρμα που θα ανοίξει, Ανοίξτε τις Λεπτομέρειες Παραγγελίας για ένα Company Name (πατώντας το βελάκι).
Εκεί στο κουμπάκι PDF επιθυμώ να εξάγεται η τρέχουσα Έκθεση (rptOrderDetails) σε PDF σένα φάκελο στη θέση C:\Orders με αυτοματοποιμένο όνομα που θα προκύπτει απ' την ένωση των πεδίων Orderdate-CustomerID.
πχ
C:\Orders\23.03.2001-Contoso, Ltd

[nasos23]

Αρχική Δημοσίευση από Χρήστος

Καλησπέρα.
Ζητώ την βοήθειά σας στο εξής.
Στη Βάση-Δείγμα και στην Φόρμα που θα ανοίξει, Ανοίξτε τις Λεπτομέρειες Παραγγελίας για ένα Company Name (πατώντας το βελάκι).
Εκεί στο κουμπάκι PDF επιθυμώ να εξάγεται η τρέχουσα Έκθεση (rptOrderDetails) σε PDF σένα φάκελο στη θέση C:\Orders με αυτοματοποιμένο όνομα που θα προκύπτει απ' την ένωση των πεδίων Orderdate-CustomerID.
πχ
C:\Orders\23.03.2001-Contoso, Ltd

Καλημέρα στο Forum.
Καλημέρα Χρήστο.

Φιλική συμβουλή.
Καλό θα είναι να ανεβάζετε τα αρχεία και σε μορφή mdb
για να μπορούν περισότεροι φίλοι να βοηθήσουν.
Επειδή δεν έχω εικόνα λόγω office 2003
H δική μου προσέγγιση είναι αυτή .
Στο εικονίδιο PDF κάνει επικόλληση τον κώδικα.

DoCmd.OpenReport "rptOrderDetails", acViewPreview, , "CustomerID=" & CustomerID, , "Orderdate=" & Orderdate
DoCmd.OutputTo acOutputReport, "rptOrderDetails", acFormatPDF, 
"C:\Orders\" & Format(Orderdate, "dd-mm-yyyy") & " - " & CStr(CustomerID.column(1)) & ".pdf", True
DoCmd.Close acReport, "rptOrderDetails", acSaveNo

Ίσως κάποιο άλλος φίλος μπορεί να βοηθήσει περισσότερο

Φιλικά
Νάσος

[Χρήστος]

Έκανα κάποιες δοκιμές και λειτουργεί μια χαρά.
Σ' ευχαριστώ Πολύ.
Αν σκεφτείς κάποια βελτίωση εδώ είμαστε!

Σε πρώτη φάση:
DoCmd.OpenReport "rptOrderDetails", acViewPreview, , "OrderID=" & OrderID
DoCmd.OutputTo acOutputReport, "rptOrderDetails", acFormatPDF, "C:\Orders\" & Format(OrderDate, "dd.mm.yyyy") & " - " & CStr(CustomerID.Column(1)) & ".pdf", True
DoCmd.Close acReport, "rptOrderDetails", acSaveNo