Pak Odhy,,, Mungkin Bisa dilampirkan Filenya biar Be-Exceller yg lain bisa tahu
dan banyak yang membantu, Juga Bisa dipakai buat belalar kita,
Coba begini pak buat modul baru masukkan code ini :
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF,
Filename:=Application.ThisWorkbook.Path & "\" & Range("E7").Value,
Quality:=xlQualityStandard, IncludeDocProperties:=True,
IgnorePrintAreas:=False, OpenAfterPublish:=True
Thanks,B'Regards
-Agunk-
