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

[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]

  في 29‏/10‏/2019 at 18:04, Barna said:

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

 

Expand  

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

  اقتباس

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

Expand  

 

[أبوبسمله]

  في 29‏/10‏/2019 at 18:39, kha9009lid said:

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

 

Expand  

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

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

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

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

[jjafferr]

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

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

 

جعفر

[moham_q]

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

[Barna]

حياكم اخوتي 

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

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