Εξαγωγή επιλογής κελιών σε pdf
 

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

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

Εντάξει το έφτιαξα. Άλλαξα την εντολή
Set rng = ActiveSheet.UsedRange
σε
Set rng = Range("A1:L21")

και μια χαρά.