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

Forum (https://www.ms-office.gr/forum/)

- Access - Ερωτήσεις / Απαντήσεις (https://www.ms-office.gr/forum/access-erotiseis-apantiseis/)

- - Αυτοματοποιημένη Εξαγωγή Έκθεσης σε PDF (https://www.ms-office.gr/forum/access-erotiseis-apantiseis/1655-aytomatopoiimeni-eksagogi-ekthesis-se-pdf.html)

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

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

Παράθεση:

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

Καλημέρα στο 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