طلب كود طباعة

[بسولي]

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

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

طلبي

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

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

a1 : a10

c1 : c10

w1:w10

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

مثلا : a1 : d10

ودمتم

[التحري نون]

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

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

Sub Print_Selection()

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

تم تعديل نوفمبر 13, 2006 بواسطه التحري نون

[فلسطيني]

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

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

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

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

تم تعديل نوفمبر 13, 2006 بواسطه فلسطيني

[بسولي]

شكرا لكم

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

Range("HVIII_3A2").PrintOut

Range("BVIII_3").PrintOut

Range("BVIII_4A").PrintOut

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

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

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

[فلسطيني]

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

أخي الكريم جرب الملف المرفق

و ستجد فيه ما تريد إن شاء الله

[بسولي]

بارك الله فيك اخي الكريم

[علي السحيب]

موضوع ذات صلة:

http://www.officena.net/ib/index.php?showtopic=13900