Office 2010'da PDF çıktı için tarihli isim yazmak

[bulentx]

Merhaba Arkadaşlar,
2-3 saatimi alan bir işi sizinle paylaşmak için bu konuyu açtım. Belki aynı sorunu yaşayan başkalarıda vardır. En azından zaman kaybetmezler.

Amaç,
Yazdırmak istediğimiz sayfadaki bilgileri belirleyeceğimiz yere ve o günün tarihine göre pdf yapıp arşivlemektir.


Sub PDF()
'
' PDF Makro

Dim Tarih As String
Tarih = Format(Now, "dd.mm.yyyy")


ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\Bulent\Documents\Borsa\PDF\Borsa Fonum " & Tarih & ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
False
'
End Sub