[kapetang]

Αλέξανδρε δοκίμασε τον κώδικα:

Sub SaveAsPDF()
    'Αποθηκεύει σε Pdf το ενεργό φύλλο
    Dim rng As Range, sPath As String
    On Error GoTo errHandler
    Set rng = ActiveSheet.UsedRange
    
    ' Η αποθήκευση γίνεται στο φάκελο του βιβλίου εργασίας
    ' και το όνομα έχει τη μορφή: Sheet_20180824_150835
    sPath = ThisWorkbook.Path & "\Sheet_" & Format(Now(), "yyyymmdd\_hhmmss")

    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

Υ.Γ Το βιβλίο πρέπει να έχει αποθηκευτεί πριν από τη χρήση του κώδικα