Forum - Εκτύπωση Εκτύπωση φύλλου excel σε pdf

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

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

- - [Εκτύπωση] Εκτύπωση φύλλου excel σε pdf (https://www.ms-office.gr/forum/excel-erotiseis-apantiseis/4986-ektiposi-filloy-excel-se-pdf.html)

Καλημέρα
Αλέξανδρε προσάρμοσα τον κώδικα στο ζητούμενο

Κώδικας:

Sub SaveAsPDF()

    Dim rng As Range, sPath As String

    On Error GoTo errHandler

    Set rng = Me.Range("a1:aa69")

    

   sPath = "c:\users\data\test1.pdf" 'βάλε αυτό που θέλεις
 

    rng.ExportAsFixedFormat Type:=xlTypePDF, Filename:="" & sPath, _

            Quality:=xlQualityStandard, IncludeDocProperties:=True, _

            IgnorePrintAreas:=False, OpenAfterPublish:=True

    Exit Sub

errHandler:

    MsgBox Err.Description, vbCritical, "Error #" & Err.Number

End Sub

Θα τον βάλεις ανάμεσα στις γραμμές

Private Sub…..

End Sub

Αφού του αφαιρέσεις τις γραμμές του Sub….και End Sub.

Σπυρο αυτά με το κωδικο ονομα φυλλου δεν το καταλαβαίνω, το φυλλο από το βιβλιο το εχω μετονομασει σε Apografi, και δεν είναι πλεον το Φυλλο1 (εχω Ελληνικο office), σου επισυναπτω μεγαλυτερη φωτο!

Φίλε, μαθήματα «δι' αλληλογραφίας» δεν μπορούμε να κάνουμε...
Από την αρχή, θα έπρεπε να ανεβάσεις ένα δείγμα,
για να μην κουραζόμαστε με άσκοπα posts...

Το φύλλο Apografi (εικόνα 1), καλώς είναι ότι είναι.
Θα πρέπει να του αλλάξεις το κωδικό όνομα σε κάτι άλλο ή σε Apografi (εικόνα 2).
Στην εικόνα έχει γίνει SH_1, και αυτό το όνομα πάει στον κώδικα...

Παιδια συγνωμη ναι θα επρεπε να ειχα ανεβασει ένα φυλλο για το τι θελω να κανω (Το ανεβαζω τωρα). Οκ ο κωδικας του Γιωργου, δουλεψε, αποθηκευσε, απλα όταν κλεισω το αρχειο και το ξανανοίξω, και παω να κανω παλι αποθηκευση, επειδή εχω ένα εκτυπωτή ορισμενο σαν πρωτο (master), παει και μου χαλαει ολη την διαταξη της σελίδας, και από εκει που είναι μια σελιδα, μου αποθηκευει 2. Θα πρεπει να παω να αλλαξω εκτυπωτή από Αρχειο>εκτυπωση>εκτυπωτες, να το γυρισω σε adobe pdf, για να μου το αποθηκευσει σωστα.
Στην συνεχεια στο συγκεκριμενο φυλλο, εχω σε σειρα και άλλες "σελιδες" που όταν παταω το πρωτο κουμπι (Αποθηκευση σε pdf, σελιδα1 ), θελω να μου αποθηκευει το αρχειο σε pdf την πρωτη… "σελιδα" όταν παταω το δευτερο κουμπι (Αποθηκευση σε pdf, σελιδα1+2) στο ιδιο αρχειο αλλα με δυο σελιδες κ.ο.κ.!!!!

Για όλους όσους μας διαβάζουν...

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

Συνδέουμε τον κώδικα (τον οποίο βάζουμε σε μια module), με το κουμπί του φύλλου54

Κώδικας:

Sub SaveFileAsPDF()

    Dim SavePath As String, FolderName As String

    Dim UName As String, WhereToSave As String

    Dim PrintRange As Range, pdfFileName As String
 

    Set PrintRange = Φύλλο54.Range("a1:aa69") 'περιοχή που θα εκτυπωθεί

    pdfFileName = "Το pdf μου" 'τίτλος pdf

    

    UName = "Όνομα χρήστη" 'Όνομα χρήστη

    WhereToSave = "Desktop" 'Σημείο υπολογιστή που θα αποθηκευθεί

    FolderName = "Ο φάκελός μου" 'Όνομα φακέλου αποθήκευσης

    

    SavePath = "C:\Users\" & UName & "\" & WhereToSave & "\" & FolderName

    

    PrintRange.ExportAsFixedFormat Type:=xlTypePDF, FileName:= _

                                   SavePath & "\" & pdfFileName & ".pdf", Quality:= _

                                   xlQualityMinimum, IncludeDocProperties:=True, IgnorePrintAreas:=False, _

                                   OpenAfterPublish:=False 'True

End Sub

Σημειώσεις:
*Στο μπλε σημείο, το όνομα χρήστη

Στο σημείο αποθήκευσης, θα πρέπει να δημιουργήσεις ένα φάκελο, με όνομα: «Ο φάκελός μου».
*χωρίς εισαγωγικά
Θα μπορούσε ο κώδικας να ελέγχει αν υπάρχει ο φάκελος, και να τον δημιουργεί αυτόματα...

Ο κώδικας, θα μπορούσε να αποθηκεύει (με αλλαγές) το pdf, στο ίδιο σημείο με το excel,
χωρίς να χρειάζονται χρήστης και σημείο αποθήκευσης.
Ακόμα και σε άλλη τοποθεσία αποθήκευσης (όχι μαζί με excel), με μια προσθήκη μπορεί να μην χρειάζεται ο χρήστης (Get Uname...)

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

Με το ίδιο κουμπί θα αντιμετωπίζεις όλες τις περιπτώσεις.

Πατώντας το πρώτο κουμπί και στο παράθυρο που θα εμφανιστεί δώσε 1, ή 2, ή 3.

Αν έχεις και άλλες θα πρέπει να τις συμπληρώσεις.

Παράθεση:

Αρχική Δημοσίευση από kapetang (Μήνυμα 28129)

ok Σε ευχαριστω πολύ, αυτό ακριβψς ηθελα, και σε ευχαριστω παρα πολύ για τον χρονο που διαθεσες. Το προβλημμα που με γυρναει στον μαστερ εκτυπωτή αν κλεισω το αρχειο και μου χαλαει την διαταξη σελίδας???

Αλέξανδρε δοκίμασε το συνημμένο.

Τον εκτυπωτή άφησέ τον εκεί που είναι συνήθως.

Στον κώδικα θα οριστεί σε "Adobe PDF" (έλεγξε το όνομα) και μετά την αποθήκευση θα ξαναβάλει τον αρχικό.

Ελπίζω να δουλέψει.

Παράθεση:

Αρχική Δημοσίευση από skomat (Μήνυμα 28130)

οκ το εφτιαξα, ρυθμισα τις στειλες και όλα οκ. Σας ευχαριστω πολύ για τον πολυτιμο χρονο που διαθέσατε για το θεμα μου.!!!

Να είσαι καλά και καλή συνέχεια.