كود طبع تقرير اكسيس بثلاث نسخ

[moham_q]

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

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

 

[jjafferr]

وعليكم السلام 🙂

 

انا استعمل الكود التالي في احد برامجي:

    dim rpt_Name as string
	dim How_Many_Copies as integer
	
	rpt_Name= "myReport"
	How_Many_Copies=3

	'print the Receipt
    DoCmd.OpenReport rpt_Name, acViewPreview, , "[Auto_ID]=" & me.Auto_ID , acHidden
    DoCmd.SelectObject acReport, rpt_Name


    DoCmd.PrintOut acPages, , , acHigh, How_Many_Copies
    
    DoCmd.Close acReport, rpt_Name, acSaveNo

 

وهنا جوار جميل ، قد تستفيد منه:

 

 

جعفر

[kha9009lid]

جرب الامر التالي

DoCmd.SelectObject acReport, "اسم التقرير", True
DoCmd.PrintOut , , , , 3

 

[kha9009lid]

الامر السابق يرسل التقرير الى الطابعة بدون معاينة

واذا ترغب في مشاهدة التقرير اثناء الطباعة استخدم الامر التالي

    DoCmd.OpenReport "اسم التقرير", acViewPreview
    DoCmd.PrintOut , , , , 3

 

[Barna]

المعذرة لم ارى ردودكم ....

 

تم تعديل أكتوبر 29, 2019 بواسطه Barna

[kha9009lid]

30 دقائق مضت, Barna said:

المعذرة لم ارى ردودكم ....

 

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

اقتباس

في اعتقادي ، مشاركة أكثر من شخص في الرد على السؤال ، يفتق الاذهان ويدمج التجارب ويبلور الافكار وفائدة للجميع ، فمنه نتعلم الطرق الاخرى للإجابة على السؤال

 

[أبوبسمله]

3 دقائق مضت, kha9009lid said:

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

 

وانا اؤيد كلامى استاذ خالد واستاذ جعفر

ونستاذنك فى ان تضعه استاذ محمد

فنحن نتعلم ونستزيد منكم

جزاكم الله خيرا وبارك الله فيكم وفيما تحبون وجعله فى ميزان حسناتكم ان شاء الله

[jjafferr]

وانا اضم صوتي الى صوت الشباب ، وفي انتظار ردك اخي محمد 🙂

آن الاوان ان نرى جواهر الافكار تلمع جنب بعضها البعض 🙂

 

جعفر

[moham_q]

و انا كذلك اضم صوتي للشباب شاكرا ردودكم و تفاعلكم مع الموضوع و بالاخص استاذنا العزيز جعفر

[Barna]

حياكم اخوتي 

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

بارك الله فيكم جميعا .....