السلام عليكم
الف شكر لحضرتك يااستاذ طارق على الكود وهو شغال 100%
عندي سؤال تاني لو سمحت
انا بستخدم الكود التالي لحفظ ملف الاكسيل بصيغة PDF في البارتشن D فى ملف PDF
لكن بلاقي الملف اتحفظ فى My Documents . ايه السبب ؟؟
وشكرا
Private Sub CommandButton1_Click()
Dim MyFullName As String
Application.ScreenUpdating = False
MyFullName = "GL " + Me.TextBox1.Value
'=======================================
ChDir "D:\PDF\"
'=======================================
ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:=MyFullName, _
Quality:=xlQualityMinimum, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False
Application.ScreenUpdating = True
End Sub
Book2.rar