[Spirosgr]

Καλησπέρα
Η δημιουργία pdf μπορεί να γίνει από την excel χωρίς VBA.

Επιλέγουμε τις ρυθμίσεις από το το ίδιο σημείο με την εκτύπωση > και μετά > Save As pdf.

Μια καταγραφή και λίγες διορθώσεις δίνουν τον παρακάτω κώδικα
που κάνει "ικανοποιητικά" την δουλειά > Δημιουργία Pdf στο Ενεργό φύλλο,
με κεφαλίδα 2 εικόνες και υποσέλιδο κείμενο και αρίθμηση σελίδων.

Sub CreatePdfWithFtrHdr()
    ActiveSheet.PageSetup.LeftHeaderPicture.Filename = _
    "Διαδρομή εικόνας\Ονομασία εικόνας.τύπος αρχείου πχ.png"
    ActiveSheet.PageSetup.CenterHeaderPicture.Filename = _
    "Διαδρομή εικόνας\Ονομασία εικόνας.τύπος αρχείου πχ.png"
    Application.PrintCommunication = False
    With ActiveSheet.PageSetup
        'Εικόνες
        .LeftHeader = "&G"
        .CenterHeader = "&G"
        'Γραμματοσειρά Arial,Bold και χρώμα μπλε & Τίτλος
        .LeftFooter = "&""Arial,Bold""&K08+000Τιμοκατάλογος προϊόντων 2014-Ισχύει από 1/1/2014"
        .RightFooter = "Σελίδα&P από &N"
        .CenterHorizontally = True
        .CenterVertically = True
        .Orientation = xlPortrait
        .FirstPageNumber = xlAutomatic
    End With
    Application.PrintCommunication = True
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
                                    "C:\Users\Διαδρομή\Όνομα_αρχείου.pdf", Quality:=xlQualityStandard, _
                                    IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
                                    False
End Sub