حفظ التقرير PDF

[Khalid Jnb]

السلام عليكم

ارجوا منكم التعديل على كود حقظ التقرير PDF ليصبح:-

1- عند الضغط على زر حفظ التقرير ينشيء مجلد (Folder)  بتاريخ  اليوم

2- يكون بداخل المجلد (ملف pdf)  بتاريخ اليوم ايضا 

وشكرا لكم

 

 

 

test.accdb

[kanory]

جرب هذا

 

test (1).accdb

[كريمو2]

لماذا عندما يحفظ التقرير بصغة pdf تتحول بعض الخطوط الى مربعات ؟

[kanory]

35 دقائق مضت, كريمو2 said:

لماذا عندما يحفظ التقرير بصغة pdf تتحول بعض الخطوط الى مربعات ؟

هذه صورة من جهازي .... ليس هناك مشكلة .... ربما اشكالك في برنامج قاري الـ pdf  لديك .

[كريمو2]

ليس في هذا التقرير استاذ بل في تقرير أخر

وخاصة عند الخط العربي Sultan medium وبالتحديد عند بعض الارقام

 

 

[kanory]

صحيح أخي , بعض الخطوط العربية فيها مشاكل عند التحويل لـ pdf وكذلك عند ادراج المخططات والرسوم البيانية ... لذلك غير نوع الخط عن الحفظ تضبط معك.

[كريمو2]

غيرت استاذ وضبطت معي ولكن حبيت نعرف مالسر ؟

[Khalid Jnb]

استاذي العزيز 

اين اسم المجلد الذي وضعتة

الرواتب / رواتب الموظفين   هي هذه المشكله التي ابحث عن حل لها 

تم تعديل أكتوبر 6, 2018 بواسطه خالد سيسكو

[Shivan Rekany]

5 ساعات مضت, خالد سيسكو said:

1- عند الضغط على زر حفظ التقرير ينشيء مجلد (Folder)  بتاريخ  اليوم

2- يكون بداخل المجلد (ملف pdf)  بتاريخ اليوم ايضا 

تم الجواب على كل النقاط الاعلاه من قبل استاذ @kanory 

8 دقائق مضت, خالد سيسكو said:

اين اسم المجلد الذي وضعتة

ويتم عمل الفولدر و التقرير في مجلد E
وتقدر تتغيره الى اي مكان تريد

[kanory]

15 دقائق مضت, خالد سيسكو said:

استاذي العزيز 

اين اسم المجلد الذي وضعتة

الرواتب / رواتب الموظفين   هي هذه المشكله التي ابحث عن حل لها 

هل جربت ملفى المرفق بالاعلا .

كما ذكر الاخ @Shivan Rekany تمت الاجابه على جميع تساؤلاتك السابقة

[Khalid Jnb]

الاخوه الاعزاء 

زر الحفظ هو يعمل اصلا بصورة ممتازة ويحفظ الملف على شكل PDF في القسم E ويحمل تاريخ اليوم 

لكن انا اريد فقط ان يظهر تاريخ اليوم بجانب اسم المجلد (الفولدر ) عند انشاءه  يعني الكود الاول (انشاء فولدر)  الكود باللون الاخضر بالملف 

وشكرا لتعاونكم اعزائي 

test.accdb

تم تعديل أكتوبر 6, 2018 بواسطه خالد سيسكو

[Shivan Rekany]

12 دقائق مضت, خالد سيسكو said:

لكن انا اريد فقط ان يظهر تاريخ اليوم بجانب اسم المجلد (الفولدر ) عند انشاءه  يعني الكود الاول (انشاء فولدر)  الكود باللون الاخضر بالملف

تعرف ما هو الخطأ عندك
القي نظرتا الى الكود
 

Private Sub أمر26_Click()
On Error GoTo ErrorHandler
 Dim fs, cf, strFolder
strFolder = "E:\الرواتب" & Format(Now(), " dd-mm-yyyy ") ' اريد ان يظهر بجانب اسم المجلد تاريخ اليوم لكن هذا الكود لايعمل
Set fs = CreateObject("Scripting.FileSystemObject")
If fs.FolderExists(strFolder) = False Then
Set cf = fs.CreateFolder(strFolder)
End If

 Dim strReport As String
 Dim strFileName As String
 strReport = "report"
 strFileName = "E:\الرواتب\رواتب الموظفين" & Format(Now(), " dd-mm-yyyy ") & ".pdf"
 DoCmd.OutputTo acOutputReport, strReport, acFormatPDF, strFileName, False
 MsgBox " تم حفظ تقرير الرواتب " & Format(Now(), " dd-mm-yyyy "), vbInformation, "   E - تم الحفظ في القسم"
 Exit Sub
ErrorHandler:
 MsgBox "لم يتم حفظ التقرير رجاءا", 16, " تنبيه "
End Sub

القي نظرتا الى هذه الجملة فيه ليس هناك اي مشكلة و بيعمل لك الفولدر هكذا

strFolder = "E:\الرواتب" & Format(Now(), " dd-mm-yyyy ")

لكن حضرتك بيقول اعمل تقرير في هذا الفولدر
 

strFileName = "E:\الرواتب\رواتب الموظفين" & Format(Now(), " dd-mm-yyyy ") & ".pdf"

اي قرص اي في فولدر "E:\الرواتب\رواتب الموظفين"
وليس هناك فولدر باسم رواتب الموظفين
اي اذا يجب ان تعمل فولد رواتب الموظفين ايضا كما تعمل فولدر الرواتب او يجب ان تحذف رواتب الموظفين
 

[Khalid Jnb]

شكرا لك استاذي العزيز

تعبتك معي 

[ابو فتحى]

السلام عليكم و رحمه الله و بركاته 

ممكن عمل هذه على نسخة 2003

[Shivan Rekany]

30 دقائق مضت, ابو فتحى said:

ممكن عمل هذه على نسخة 2003

اتفضل

 

test (1).mdb