اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

طلب كود طباعة


بسولي

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

السلام عليكم ورحمة الله وبركاته :biggrin:

اشكر لإخواني في المنتدى الرائع مايقدمون من خدمات

طلبي :clapping:

اريد كود طباعة يطبع نطاقات مختلفة في صفحة واحدة

مثلا : اريد ان اطبع النطاقات التاليه في صفحة واحدة

a1 : a10

c1 : c10

w1:w10

او اذا لم يكن ذلك ممكن ........... اريد كود يطبع نطاق معين فقط

مثلا : a1 : d10

ودمتم

:wub:

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

السلام عليكم ورحمة الله وبركاته

تفضل اخي الكريم هذا الكود اللذي تريد

Sub Print_Selection()

    Range("A1:D10").Select
    Selection.PrintOut Copies:=1, Collate:=True
End Sub

تم تعديل بواسطه التحري نون
رابط هذا التعليق
شارك

السلام عليكمورحمة الله

حسب ما فهمت أنك تريد طباعة أكثر من نطاق في صفحة واحدة

إليك الكود التالي مع تغيير النطاقات

Sub PrintRpt2()   
    Range("HVIII_3A2").PrintOut
    Range("BVIII_3").PrintOut
    Range("BVIII_4A").PrintOut
    Range("HVIII_4A2").PrintOut
    Range("BVIII_5A").PrintOut
    Range("BVIII_5B2").PrintOut
    Range("HVIII_5A2").PrintOut
    Range("HVIII_5B2").PrintOut
End Sub

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

شكرا لكم

ولكن للفائدة ... هل من الممكن شرح احد الأسطر في الكود الثاني

Range("HVIII_3A2").PrintOut

Range("BVIII_3").PrintOut

Range("BVIII_4A").PrintOut

.......... جاري التجربة

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

ونفعكم بعلمكم

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

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