[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