Εκτυπωση και παραλληλη αποθηκευση σε pdf
 

Καλησπερα σε ολη την παρεα, μετα απο πολυ καιρο ...

Εχω ένα έντυπο το οποίο εκτυπώνεται με τα δεδομένα από το φύλλο data.
μια συγχώνευση αλληλογραφίας δηλαδή αλλά σε excel.
Επιθυμώ μετά από κάθε εκτύπωση, κάθε εντύπου, να το αποθηκεύει και σε pdf.
Έχω βρει ένα κώδικα - υπάρχει σε πλαίσιο μέσα στο αρχείο που επισυνάπτω -
τον οποίο λογω ελλειπων γνωσεων VBA δεν μπορώ να συμπεριλάβω στον ήδη υπάρχοντα κώδικα του αρχείου.
O κώδικας στο πλαίσιο δειχνει να δίνει όνομα στο αρχείο την τρέχουσα ημερομηνία αλλά εμείς
ζητάμε να δίνει όνομα από το φύλλο data και τη στήλη Η. (χωρις να ανοιγει το αρχειο .pdf που δημιουργειται.
Αν μπορεί κάποιος να με βοηθήσει !!!
Το αρχείο είναι σε excel 2003
Ευχαριστώ πολύ.

Καλημέρα
Μια 1η προσέγγιση δίνω στο συνημμένο.

Χρηστο ευχαριστώ για την απάντησή σου,
αλλα οταν εκτελέσω τον κώδικα μου βγάζει παλι error στο Type:=xlTypePDF
και επίσης θα ήθελα να εκτελείται μαζί με το module PrintMod.
Δηλαδη 1η φορμα, εκτύπωση μετα αποθήκευση σε pdf
και στη συνέχεια 2η φορμα τα ιδια κτλ.
Ευχαριστώ.

Στο 2007 δεν βγάζει το μήνυμα λάθους!
Με ποιό πρόγραμμα δημιουργείς PDF (μέσα απ' το Excel)?
Μέσα απ' το PrintMod καλείται η εντολή της αποθήκευσης σε PDF.

Sorry.. μετα το ειδα οτι το εχεις να εκτελειται μαζι.
αρα μενει μονο το error στο xlType

Πέσμου λίγο, μέσα απ' το Excel, πως δημιουργείς PDF?

Κατ'αρχην εχω ακομη excel 2003...!!
το pdf το δημιουργω με το Adobe, με εκτύπωση απο το excel σε pdf.
Υπάρχει και η γνωστη πρόσθετη μπαρα εντολων

Παω δηλαδη : αρχειο, εκτυπωση, και επιλεγω αντι τον εκτυπωτη μου, το Adobe pdf

...αυτό ακριβώς πρέπει να του πούμε στον κώδικα...να πάει στον Adobe pdf....

Καλημέρα
Κατ' αρχήν, δεν έχει να κάνει μια εκτύπωση pdf με κώδικα, με το πρόγραμμα,
που ο καθ' ένας μπορεί να έχει, για να δημιουργεί ή να διαχειρίζεται αρχεία pdf.

Η διαδικασία είναι η εξής:
1
Δημιουργία κώδικα εκτύπωσης.
Ποιο φύλλο, ποιά περιοχή, είδος εκτύπωσης (ασπρόμαυρη-έγχρωμη), πόσα αντίγραφα.
2
Πριν την δημιουργία pdf αρχείου, έρευνα αν
υπάρχει ο φάκελος αποθήκευσης (πχ MyPDF_Folder), άλλως τον δημιουργεί και μετά
αποθήκευση του αρχείου pdf στον φάκελο.
3
Ενσωμάτωση.

Παράδειγμα:
1
Sub PrintMyExcel()
*κώδικας εκτύπωσης
End sub
2
Sub CreatePDF()
*κώδικας δημιουργίας φακέλου & pdf αρχείου
End sub
3
Sub DoMyJob()
PrintMyExcel
CreatePDF
End sub

Κώδικες σαν αυτούς, υπάρχουν πολλοί στο forum.
Αναζητήστε τους και θα έχετε άριστο αποτέλεσμα.

Με μια πολύ γρήγορη αναζήτηση,
εδώ υπάρχουν κάποιοι καλοί κώδικες pdf, που δεν δημιουργούν όμως τον φάκελο αποθήκευσης
τον οποίο θα πρέπει να έχετε δημιουργήσει από την αρχή.

http://www.ms-office.gr/forum/excel-...si-os-pdf.html

υπάρχουν κι αρκετοί άλλοι να βρείτε...

Δηλαδή Σπύρο, στο βήμα 1, δεν θα δηλωθεί πουθενά ο εκτυπωτής Adobe pdf, για την περίπτωσή μας?
Στο 2003 (έχω 2007) αναδύονται συνήθως παράθυρα διαλόγου για την ονομασία των PDF, οπότε υπάρχει η δυσκολία να ονοματίζεται αυτόματα.
Έχω την αίσθηση ότι οι κώδικες που προτείνει ο Σπύρος είναι για 2007...αλλά ίσως να κάνω λάθος. Για μένα είναι μια αφορμή να το "ψάξω" λιγάκι ... κι ας μην υπάρχει λόγος!

Δεν υπάρχει λόγος, να δηλωθεί τίποτα.
Υπάρχει όμως περίπτωση, να θέλει ο προγραμματιστής να δώσει την δυνατότητα στο χρήστη,
μέσω παραθύρου διαλόγου, να επιλέξει εκτυπωτή.
Εκτυπωτής, είναι και ένα πολυμηχάνημα και ένα πρόγραμμα pdf και
ο ενσωματωμένος document writer...
Αν δεν το κάνει, το πρόγραμμα «παίρνει» τον προεπιλεγμένο,
όσον αφορά τις εκτυπώσεις σε χαρτί.
Τα αρχεία pdf απλά αποθηκεύονται και ανοίγουν μετά από επιλογή του χρήστη.
Μπορεί κανείς, να έχει για παράδειγμα στον υπολογιστή του, Adobe αλλά και Nitro...

Δυστυχώς δεν μπόρεσα να βρω κάποιον κώδικα στο forum
που να δουλεύει στο excel 2003 που χρησιμοποιώ.
Στο 2007 δουλεύει άψογα….
Πάντως ευχαριστώ πολύ για τις απαντήσεις σας.
Φιλικά
Μανώλης