كود طباعة التقرير افقيا

[moham_q]

السلام عليكم الاخوة الاعزاء في المنتدى .. استفساري حول الكود الذي يجعل الطابعة تقوم بطبع التقرير بشكل افقي landscape مباشرة من زر الكوماند

ما الذي يجب اضافته على هذا الكود    DoCmd.OpenReport "rep1", acViewnormal

rep1  >> اسم التقرير 

خالص الشكر والتقدير لجميع الاخوة الاعضاء في المنتدى .. تحياتي

[عبد الله قدور]

السلام عليكم

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

الرابط

 

[moham_q]

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

If DLookup("[check]", "tblreport", "[id]=1") = 1 Then
  Me.Printer.Orientation = acPRORLandscape

وما القصد من عبارة check  .... تحياتي لك وللاخوة الاعزاء في المنتدى

[عبد الله قدور]

هذا خيار لتستطيع اختيار شكل التقرير أفقي أم عمودي من جدول اسمه tblreport و من عمود اسمه check

فإن كان قيمة Check = 1 فالتقرير افقي واذا كانت 2 فالتقرير عامودي 

[moham_q]

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