[ChrisGT7]

Καλησπέρα Νίκο,

Ελπίζω ο ο παρακάτω κώδικας να σε καλύψει προσαρμόζοντάς τον στο δικό σου:

    [B10:D50].ExportAsFixedFormat _
        Type:=xlTypePDF, _
        Filename:=MyPath & "MyFile.pdf", _
        Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, _
        IgnorePrintAreas:=False, _
        OpenAfterPublish:=True

Ο παρακάτω κώδικας αποθηκεύει το εύρος B10:D50 (το αλλάζεις σύμφωνα με τις ανάγκες σου) ως αρχείο pdf στη διαδρομή που του έχεις θέσει στη μεταβλητή MyPath, όπως είχαμε αναφέρει τις προάλλες.

Το όρισμα OpenAfterPublish με True ανοίγει το αρχείο μετά την αποθήκευση ενώ με False παραμένει κλειστό.