[smasak]

Καλημέρα, χρησιμοποιώ το κώδικα του Γιώργου για εκτύπωση σε 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

Αν θέλουμε να εκτυπωθούν μόνο τα κελιά που εμείς επιλέγουμε ή ορίζουμε ως περιοχή εκτύπωσης πως διαμορφώνεται η εντολή;