ترحيل بصيغة ملف PDF ثم فتح الملف

[أبو قاسم]

Sub Export_PDF_in_most()

Application.ScreenUpdating = False

 

    Sheet5.Select

ActiveSheet.ExportAsFixedFormat xlTypePDF, "C:\Users\DESKTOP\Dropbox" _
& "\  Escorts Date   " & N & UserForm1.TextDate1 & ".PDF"
Application.ScreenUpdating = True
End Sub

ملاحظة الترحيل  بصيغة PDF حاليا من خلال فورم فقط اريد فتح PDF مباشرة بعد ترحيلة لكي اتاكد من البيانات هل هي صحيحة

[علي الشيخ]

السلام عليكم.

جرب الكود كالتالي

 

 Sub Export_PDF_in_most()

Application.ScreenUpdating = False

 
    Sheet5.Select
ActiveSheet.ExportAsFixedFormat xlTypePDF, "C:\Users\DESKTOP\Dropbox" _
& "\  Escorts Date   " & N & UserForm1.TextDate1 & ".PDF", OpenAfterPublish:=True
Application.ScreenUpdating = True
End Sub

 

[أبو قاسم]

تشكر ربنا يوفقك دنيا واخرة ويجعل ماتقوم بة في ميزان حسناتك اجابة ممتازة جداً