[kapetang]

Καλημέρα

Σάκη, δοκίμασε τον κώδικα:

Private Sub CommandButton1_Click()
    Dim rng As Range, sPath As String, sName As String
    On Error GoTo errHandler
    Set rng = Range("A1:G52")
    sName = Range("k1") '<- Το κελί k1 περιέχει το όνομα (Προσαρμογή)
    

    sPath = ThisWorkbook.Path & "\" & sName & "_" & Format(Now(), "ddmmyyyy\_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