[Εκτύπωση] Εκτύπωση φύλλου excel σε pdf

[kapetang]

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

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.

[skomat]

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

[Spirosgr]

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

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

[skomat]

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

[Spirosgr]

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

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

Συνδέουμε τον κώδικα (τον οποίο βάζουμε σε μια 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

[kapetang]

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

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

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

[skomat]

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

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

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

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

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

[kapetang]

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

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

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

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

[skomat]

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

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

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

[kapetang]

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