[ Εκθέσεις ] Εξαγωγή σε αρχείο PDF και αποστολή με Outlook

[Αναστάσιος]

Καλημέρα,
θα ήθελα μια βοήθεια, γιατί κάτι δεν κάνω καλά σε κώδικα που πήρα από το Forum.

Στην βάση που επισυνάπτω, χρειάζομαι τα παρακάτω:

1ον Δεν μου δουλεύει ο κώδικα σωστά όταν πάω να μετατρέψω το Report σε PDF.
Στο Forum όπου και να έχουν χρησιμοποιήσει τον κώδικα μετατροπής, δουλεύει. Σε μένα όχι. Εμένα δεν μου το κάνει κατευθείαν μετατροπή, αλλά μου ανοίγει ένα μενού ΕΞΟΔΟΣ ΣΕ....και μου ζητάει να διαλέξω εγώ Format.
Άσε που δεν έχει στην λίστα την κατάληξη PDF, αλλά και να την είχε, θέλω να γίνεται αυτόματα.

2ον Θέλω να μου βάζει όνομα αρχείου, [με το όνομα του πελάτη, και και τις ημερομηνίες που έχει μέσα το Report].Pdf.

3ον Θέλω μέσω Outlook να παίρνει την διεύθυνση e-mail, ( από το πεδίο που έχω δημιουργήσει), και να κάνει αποστολή καρτέλας.

Δηλαδή και τα τρία βήματα στο ίδιο κουμπί εντολής, ( Private Sub).

Η Αρχική βάση είναι τεράστια σε μέγεθος, γιαυτό έφτιαξα ένα δείγμα, οπότε μην θεωρήσετε ότι ο σχεδιασμός είναι λάθος, απλώς τα συγκέντρωσα όλα μαζί σε ένα πίνακα.
Στην κανονική βάση, όλα έχουν τον δικό τους πίνακα, και είναι, ( Θεωρώ τουλάχιστον ), σωστά δομημένη, με τα δεδομένα σε ξεχωριστούς πίνακες και με σχέσεις όπου χρειαζόταν.

Παιδιά λίγη βοήθεια, γιατί όσο και να προσπάθησα δεν τα κατάφερα.

ΟΛΑ αυτά που ζητάω, υπάρχουν στο Forum, αλλά δεν κατάφερα να τα προσαρτήσω στην δική μου βάση.

Σας Ευχαριστώ.

Με εκτίμηση

Αναστάσιος

[vraxnakisg]

Καλησπέρα Αναστάση,

Δες το επισυναπτόμενο αρχείο.

[Αναστάσιος]

Καλησπέρα Γιώργο,
Σε ευχαριστώ για την άμεση απάντηση σου.

Ο κώδικας "χτυπάει" στο παρακάτω σημείο,



το διόρθωσα βάζοντας μεταβλητή το Mycustomer, και μετά "χτυπάει" σε άλλο σημείο που ΔΕΝ ξέρω να το διορθώσω.



Βέβαια ο Κ΄ Τάσος σε παλαιότερη δημοσίευση έγραψε τα παρακάτω:

Παλιά 23-10-11, 12:19
Διαχειριστής
Όνομα: Τάσος Φιλοξενιδης
Έκδοση λογισμικού Office: Ms-Office 2003, Ms-Office 2007, Ms-Office 2010, Ms-Office 2013
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική, Γερμανική

Εγγραφή: 21-10-2009
Μηνύματα: 2.013
Προεπιλογή
Καλημέρα σε όλους!

Φίλε μου Τζίμη, η μετατροπή έκθεσης σε αρχείο *.pdf υποστηρίζεται από εκδόσεις Access νεότερες της 2003.

Αν διαθέτεις κάποιον PDF Printer θα μπορούσες να εξάγεις τις εκθέσεις σου σε μορφή *.pdf.

Φιλικά

Τάσος
__________________
Ms-Office Development Team
Ανάπτυξη επαγγελματικών εφαρμογών σε VB.Net, Access, Excel, Outlook, Word

Ευχαριστώ και πάλι.

[vraxnakisg]

Καλησπέρα Αναστάση,
Τι έκδοση Office και Windows έχεις?

Έχεις εγκαταστήσει στο pc σου κάποιων εκτυπωτή pdf?

Συγνώμη για το πρώτο σφάλμα, πριν ανεβάσω το αρχείο πρόσθεσα την εντολή «Option Explicit» χωρίς να εκτελέσω τον κώδικα. Απλά δήλωσε την μεταβλητή «Dim myCustomer as string».

Το δεύτερο σφάλμα στο βγάζει γιατί ενδεχoμένος να μην έχεις κάποιον εκτυπωτή pdf.

Δώσε μας περισσότερες πληροφορίες για το σύστημα σου.

[vraxnakisg]

Εγκατασταση pdf Printer:

Manually install the PDF Printer

Click Start > Control Panel > Devices and Printers
Select Add a printer
Select Add a local printer
Check Use an existing port and select Documents\*.pdf (Adobe PDF) from the drop down. Click Next
Click the Have Disk… button
Click the Browse… button
Navigate to C:\Program Files (x86)\Adobe\Acrobat 10.0\Acrobat\Xtras\AdobePDF
Select AdobePDF.inf from the list, then click the OK button
You will see many Adobe PDF Converters in the list, however count six down from the top and click Next (you may need to try this numerous times to find the correct Converter from the list that works with your version of Windows)
Name your printer, e.g. Adobe PDF
Follow the rest of the prompts and your PDF printer should now be installed correctly
If you are later prompted for the ADPDF9.PPD file, it can be found in the C:\Program Files\Adobe\Acrobat 10.0\Acrobat\Xtras\AdobePDF\<OS version> folders.

[Αναστάσιος]

Καλημέρα,
Γιώργο έχω το Bullzip PDF Printer, and SingularLogic PDF Printer εγκατεστημένους.

έχω Windows Xp and ms-office 2003 with SP3

Το πρόβλημα πάντως εξακολουθεί να υπάρχει.

Να βάλω το Acrobat όπως μου λες;

[Αναστάσιος]

Επίσης έκανα μερικές δοκιμές, (αφαιρώντας προσωρινά την αποθήκευση σε pdf), και εκεί που σώνει το όνομα του αρχέιου, είναι λάθος.
Μου βγάζει ΕΠΩΝΥΜΟ_ΠΕΛΑΤΗ, και τις σημερινές ημερομηνίες.
Ενώ εγώ χρειάζομαι να παίρνει από το report την επωνυμία του πελάτη, (σε κάθε report αλλάζει, ΔΕΝ θέλω δηλαδή να δηλώσω ότι είναι ΕΠΩΝΥΜΟ_ΠΕΛΑΤΗ στο όνομα αρχείου, αλλά το όνομα του ΚΑΘΕ πελάτη που ανήκει η καρτέλα), και τις ημερομηνίες που έχω δηλώσει.

Ευχαριστώ

[vraxnakisg]

Γεια σου Φιλέ Αναστάση,

Κατά την ταπεινή μου άποψη καλό θα ήτανε να κάνεις μια αναβάθμιση στο σύστημα σου.
Προτείνω windows 7 και Office από 2010 και πάνω (θα έλεγα Office 2016).

Όσο αναφορά για το σφάλμα της δημιουργίας του pdf δεν μπορώ να το αναπαράγω ώστε να δω την λείπει από το σύστημα σου. Το μόνο σίγουρο είναι ότι ο συγκεκριμένος κώδικας τρέχει σε windows 7 & 10 με OFFICE 2007 & OFFICE 2010 & OFFICE 2013 & OFFICE 2016 32ΒΙΤ & 64ΒΙΤ.

Τώρα όσο αναφορά τις δοκιμές που έκανες, εγώ σου περιέγραψα τον τρόπο που θα έφτανες στο ζητούμενο σου. Η δομή της βάσης που έχεις ως παράδειγμα δεν βοηθάει και τόσο.

Εν πάση περίπτωση δες το συνημμένο αρχείο.

Πιστεύω να έγινα κατανοητός.

Ευχαριστώ.

[Αναστάσιος]

Καλησπέρα,

Είναι Pc της δουλειάς, και δεν μπορώ να κάνω αναβάθμιση του λειτουργικού.
Ωστόσο θα προσπαθήσω να αναβαθμίσω το Office.

Σε Ευχαριστώ για το χρόνο σου.
Να είσαι καλά.

Με εκτίμηση,

Αναστάσιος.