[Εκτύπωση] Εκτύπωση φύλλου excel σε pdf

[kapetang]

Καλημέρα
Αλέξανδρε προσάρμοσα τον κώδικα στο ζητούμενο

Sub SaveAsPDF()
    Dim rng As Range, sPath As String
    On Error GoTo errHandler
    Set rng = Me.Range("a1:aa69")
    
   sPath = "c:\users\data\test1.pdf" 'βάλε αυτό που θέλεις

    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

Θα τον βάλεις ανάμεσα στις γραμμές

Private Sub…..

End Sub

Αφού του αφαιρέσεις τις γραμμές του Sub….και End Sub.