زر معاينة وتحويله الى صيغة pdf قبل الطباعة والحفظ فى فلودر معين

[marwa41]

من فضلكم ممكن عمل زر معين للتقرير معاينة الطباعة مع تحويله الى صغية pdfوحفظ التقرير فى فولدر معين

مشروع الشيكات.rar

[محمد أبوعبدالله]

للمعاينة استخدم الامر التالي

DoCmd.OpenReport "الشيك", acViewPreview

للطباعة مباشرة بصيغة Pdf استخدم الامر التالي

DoCmd.OutputTo acOutputReport, "الشيك", acFormatPDF, "E:\PDF01.pdf", False

مع تغيير المسار

تحياتي

[marwa41]

تمكتبت كود حضرتك وزدت عليه 

صورة الكود  الخطا اعمل ايه

المطلوب كتابة اسم التقرير وتاريخه والساعة فى فولدر على اسمه تقرير الشيكات على   ------ تقرير الشيكات\:E  ----

 

تم تعديل يوليو 24, 2020 بواسطه marwa41

[محمد أبوعبدالله]

تفضل اخي الكريم

DoCmd.OutputTo acOutputReport, "الشيطك, acFormatPDF, "E:\" & "تقرير الشيكات" & "\" & "01" & Format(Date, "yyyy-mm-dd") & "-" & Format(Now(), "Hh-Nn-Ss-AMPM") & ".pdf", False

تحياتي

[marwa41]

1-معرفتش والله شوف الخطاء فين  فى التقريرين حضرتك

2- عايز اقلل المسافة التقرير من جه اليمين  على اول الكتابة 

مشروع الشيكات.rar

تم تعديل يوليو 24, 2020 بواسطه marwa41

[محمد أبوعبدالله]

اخي الكريم

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

تفضل اخي الكريم

DoCmd.OutputTo acOutputReport, "تقرير تفصيلى شيكات لم  تم الصرف", acFormatPDF, "E:\" & "تقرير الشيكات" & "\" & "تقرير1" & "\" & Format(Date, "yyyy-mm-dd") & "-" & Format(Now(), "Hh-Nn-Ss-AMPM") & ".pdf", False

مع مراعاة وجود مجلد باسم "تقرير الشيكات" وبداخله مجلد باسم "تقريرا"

E:\تقرير الشيكات\تقرير1

تحياتي

9مشروع الشيكات.rar

[marwa41]

نجح الكود لكن يعمل مرة واحدة فقط

ويعطى هذه الرسالة 

[محمد أبوعبدالله]

ضع الكود التالي اعلى الكود الاول

on error resume next

والافضل كما ذكرت لك ان تضع الكود في زر امر في نموذج

شىء اخر فما الفائدة من وضع زر معاينة داخل المعاينة نفسها

والله اعلم

تحياتي

[marwa41]

حاولت اعمل نموذج معرفتش اعمله زى التقرير 

ممكن مساعدة فهذا لو عندك وقت 

ممكن تعمل النموذج علشان اتعلم منه

[محمد أبوعبدالله]

تفضل اخي الكريم

9مشروع الشيكات.rar

تحياتي

[marwa41]

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

كل عام وانت الى الله اقرب

واكيد صايم فتقبل الله منا منكم صالح الاعمال

نرجع لعملك العظيم جعله الله فى ميزان حسانات انت وكل من فى المنتدى العظيم

مازلت المشكلة قائمة 

 

 

New folder.rar

[محمد أبوعبدالله]

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

تقبل الله منا ومنكم اخي الكريم

37 دقائق مضت, marwa41 said:

مازلت المشكلة قائمة 

1 - المرفق غير موجود به النموذج الذي صممته لك

13 ساعات مضت, محمد أبوعبدالله said:

والافضل كما ذكرت لك ان تضع الكود في زر امر في نموذج

2 - وضعت اسفل الكود والصحيح ان يكون اعلاه

On Error Resume Next

3 - اسماء المحلدات المرفقة غير المسار الموجود في الكود فمثلاً مجلد "شيكات لم  تم الصرف" يحتوي على مسافتين بينما المسار الموجود في الكود مسافة واحدة "شيكات لم تم الصرف"

New folder.rar

تحياتي

[marwa41]

9 الشيكات.rarفعلا عند حق معلشه 

كنت فى سفر من الساعة 4:30 فجرا لسه واصل الشغل اعتذارى 

هذا هو العمل 

[محمد أبوعبدالله]

تفضل اخي الكريم

99 الشيكات.rar

تحياتي

[marwa41]

تسم ياغالى جزاك الله كل خير