اذهب الي المحتوي
أوفيسنا

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


moham_q

الردود الموصى بها

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

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

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

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

رابط هذا التعليق
شارك

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

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

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

رابط هذا التعليق
شارك

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

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

  • Like 1
رابط هذا التعليق
شارك

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

رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information