طباعة اكثر من تقرير مرة واحدة

[jo_2010]

السادة الخبراء الافاصل

بعد التحية

مرفق قاعدة بيانات مصغرة تحتوى على مااريد داخل مربع تسمية حتى استطبع ان اصل لحضراتكم مااريدة لذلك شرحتة داخل النموذج

Lab.rar

[د.كاف يار]

للأسف طلبك غير واضح اشرح باختصار و ابشر بالحلول

[Barna]

تفضل ....

 

Lab.rar

[jo_2010]

اخى الفاضل Barna

شكرا على المساعدة لكنى دخلت على الكود ووجد    زر جديد باسم all     وعند الضغط عليى فى حدث     وجدت هذا الامر   DoCmd.OpenReport "NewUrine", acViewNormal

اين امر الطباعة ولو عتدى مجموعة تقارير جديدةبتاريخ جديد عند الضغط على زر all هايطبع كل التقارير القديمة والجديدة ارجو الافادة وشرع كيف يعمل هذا الزر الجديد ولك خالص الشكر واعتذر عن الرد لا النور نان مقطوع فترات طويلة

[Barna]

7 ساعات مضت, jo_2010 said:

اخى الفاضل Barna

شكرا على المساعدة لكنى دخلت على الكود ووجد    زر جديد باسم all     وعند الضغط عليى فى حدث     وجدت هذا الامر   DoCmd.OpenReport "NewUrine", acViewNormal

اين امر الطباعة 

الطابعة اذا كانت جاهزة فيطبع دون سؤال

7 ساعات مضت, jo_2010 said:

ولو عتدى مجموعة تقارير جديدةبتاريخ جديد عند الضغط على زر all هايطبع كل التقارير القديمة والجديدة ارجو الافادة وشرع كيف يعمل هذا الزر الجديد ولك خالص الشكر واعتذر عن الرد لا النور نان مقطوع فترات طويلة

هذا كان حسب سؤال لأنك لم توضح .... أنظر لطلبك داخل البرنامج ....

 

[jo_2010]

حضرتك استاذي الفاضل لو قرات الرسالة من بدايتها سوف تلاحط موضوع الزر الازرق الذي يفتح كل مريض علي حدي ثم الطباعة 

اريد عمل هذا اضغط علي زر يفتح التقرير الاول ثم الطباعة ثم الغلق ثم فتح الثاني ثم الطباعة ثم الغلق الي الانتهاء من كل التقارير

[jo_2010]

السادة الخبراء

ساعدونى من فضلكم كيف اطبع 70 تقرير مة واحدة بشرط كل تقرير فى صفحة مستقلة

[د.كاف يار]

اخي الكريم للاسف لم استطع ان افتح المرفق لأنه من اصدرا 32 بت

 

لكن تفضل هذه الطريقة

ضع في حدث عند الضغط على ازرار  الطباعة

مع مراعاة تغيير اسم التقرير و المعايير

كما انك تستيطع انشاء قائمة بالتقارير و عمل طباعة حلقة تكرارية و افضل لك هذه الطريقة اذا كان عدد التقارير كبير

DoCmd.OpenReport "report1", acViewPreview, , "[ID]=" & Me.ID
DoCmd.OpenReport "report2", acViewPreview, , "[ID]=" & Me.ID

 

[jo_2010]

حضرتك استاذي الفاضلل د كاف يار

خالص الشكر والتقدير علي اهتمامك بالرد على لكن كل مااود ابلاغ حضرتك بة ان المطلوب هو طباعة تقرير واحد هو تقرير تحليل بول لعدد ٧٠ مريض اكتر او اقل كل مريض علي حدي ي في صفحة منفصلة لان دة تقرير هايروح بة للدكتور انا في الصورة عامل زر تفتح اسم المريض ثم زر للطباعة بعمل كدة ٧٠ مرة عاوز امر طباعة لعدد المرضي كلهم مرة واحدة

تفتح اسم المريص  الاول ثم طباعة ثم غلق التقرير ثم next record ثم طباعة ثم غلق وهكذا الي نهاية المرضي اسف علي الاطالة ويارب الاقي حل عند حضرتك شكرا 

تم تعديل أغسطس 25, 2019 بواسطه jo_2010

[د.كاف يار]

6 دقائق مضت, jo_2010 said:

حضرتك استاذي الفاضلل د كاف يار

خالص الشكر والتقدير علي اهتمامك بالرد على لكن كل مااود ابلاغ حضرتك بة ان المطلوب هو طباعة تقرير واحد هو تقرير تحليل بول لعدد ٧٠ مريض اكتر او اقل كل مريض علي حدي ي في صفحة منفصلة لان دة تقرير هايروح بة للدكتور انا في الصورة عامل زر تفتح اسم المريض ثم زر للطباعة بعمل كدة ٧٠ مرة عاوز امر طباعة لعدد المرضي كلهم مرة واحدة

تفتح اسم المريص  الاول ثم طباعة ثم غلق التقرير ثم next record ثم طباعة ثم غلق وهكذا الي نهاية المرضي اسف علي الاطالة ويارب الاقي حل عند حضرتك شكرا 

هل ارقام المرضى متسلسلة ؟؟؟

[د.كاف يار]

تفضل هذا المثال

مثال للطباعة.mdb

[ابو عارف]

8 ساعات مضت, jo_2010 said:

ساعدونى من فضلكم كيف اطبع 70 تقرير مة واحدة بشرط كل تقرير فى صفحة مستقلة

انظر الملف pdf تم انشاء الملف بضغطة زر واحد كل مريض في صفحة مستقلة ، لو وصلنا الجهاز مع طابعة أوراق سيطبع نفس صفحات على الورق و بضغط زر واحد طبعاً

ppp.pdf

[jo_2010]

استاذى الفاضل ابو عارف

شكرا على ملف PDF هذا مااريدة تماما ولكن كيف استطيع عمل ذلك لان كل اسبوع عندى حوالى 65 الى 70 تقرير كيف استطيع عمل التقارير كل اسبوع بهذة الطريقة الرائعة  

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

[ابو ياسين المشولي]

شوف جرب هذا المرفق يطبع كل اللي في التاريخ الموجود بالنموذج

حاول تعمل كم تقرير بتاريخ اليوم ولاحظ بيطبع ماهو بالتاريخ اللي موجود بالنموذج

Lab.accdb

[ابو عارف]

11 دقائق مضت, jo_2010 said:

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

شوف أخي اول شئ انت حطيت اسم و بعض بيانات المريض في رأس تقرير و من المعروف رأس تقرير يظهر مع صفحة الاول فقط لا مع باقي صفحات و فعلا من الصعب طباعة تقرير لكل مريض على حدى و الان تم نقل تلك البيانات ال رأس صفحة و عمل تقرير واحد لجميع مرضى بصفحات متعددة (لكل مريض صفحة) تماما كملف PDF ولا داعي تحويل الى PDF يمكن طباعته على الورق متى ما شئت

اضفت زر اضافي بأسم (معاينة) عند ضغط علىه سيظهر لك تقرير في عرض معاينة يمكن تنقل بين صفحات من خلال اسهم اسفل تقرير و اذا حبيت تحويل الى PDF اضغط اختصار ctrl + p و غير طباعة الى Microsoft print to pdf  اضغط على موافق  اكتب اسم الملف و اختر مكان حفظ ثم ok  أو موافق  

اما عند ضغط على  الزر السابق ، سيطبع جميع صفحات مباشراً دون عرض معينة الى طابعة افتراضي (طابعة الورق أو Microsoft print to pdf او اي طابعة اخرى)

 Lab.rar

[jo_2010]

اسناذى الفاضل ابو عارف 

خالص الشكر على ماقدمتة من شرح ولكن يبقى السؤال من من اين اقوم بالتغيير الىpdf عند الضغط على  ctrl + p تظهر هذة الصورة من اي مكان احولها الى pdf   اسف على ازعاجك

واحتمل قلة خبرتى ولك الشكر

[ابو عارف]

عزيزي @jo_2010 اضقت لك زرين في نموذج عند ضغط على الاولى ستفتح لك نافذة غير اسم الملف في مربع اسم الملف ثم عند ضغط على موافق، سيستخرج ملف pdf في مجلد مستندات أو حدد مجلد مراد استخراج تقرير اليه من مجلدات معروضة في شاشة ثم اضغط زر موافق
و عند ضغط على زر الثاني سيقوم البرنامج بإنشاء pdf في نفس مسار قاعدة بيانات ولكن بعد استخراج القاعدة من ارشيف بتوفيق،،

Lab.rar

[jo_2010]

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

[ابو ياسين المشولي]

مشاركة مع اخي ابو عارف هذا كود تحويل الى بي دي اف

في حدث 
تحويل تقرير الى PDF
DoCmd.OutputTo acOutputReport, "NewUrine", acFormatPDF, CurrentProject.Path & "\" & "المرضى" & ".PDF", True

 

[ابو عارف]

1 ساعه مضت, ابو ياسين المشولي said:

مشاركة مع اخي ابو عارف هذا كود تحويل الى بي دي اف

شكراً اخي @ابو ياسين المشولي لو جربت الزر الثاني يفي نفس غرض اما اجبار المستخدم استخراج ملف من ارشيف ، تعمدت عليه بسبب مسار برنامج في ارشيف تكون في مجلد Temp ويصعب عثور المستخدم على الملف المستخرج لهذا لسبب وضعت شرط if حتى يضطر مستخدم وضع البرنامج في مجلد يعرف مساره اما اذا حذفت شرط if يعمل ككود اللي  تفضلت به حتى لو برنامج في ارشيف أو خارج ارشيف.

[jo_2010]

شكرا خبير الاكسيس ابو عارف على مساعدتى فى طباعة 75 نقرير دفعة واحدة بدل من فتح 75 تقرير وطباعتة على حدى 

[ابو عارف]

العفو أخي انا في خدمة