عمل كود تحديد نطاق ومن ثم طباعته

[الشهابي]

بسم الله الرحمن الرحيم

السلام عليكم ورحمة الله وبكاته وشهر مبارك وكل عام وأنتم بخير وعافية مرة أخرى

عندي طلب وهو كود تحديد نطاق معين في الورقة إضافة إلى تحديد صفوف للأعلى للتكرار ومن ثم عمل معاينة للطباعة ويتم بعد ذلك طباعة ما يتم تحيد طباعته 1إلى 1 أو 1 إلى 3 على سبيل المثال

أنا وجد كود للأخ عبد الله المجرب في مشاركته على موضوع ( جعل القائمة المنسدلة تعرض الأعمدة بدل الصفوف وهو

Sub Preview_Print()

ActiveSheet.PageSetup.PrintArea = "$A$4:$H$34"

ActiveWindow.SelectedSheets.PrintPreview

ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

Range("H9").Select

End Sub

ولكنه يقوم بالطباعة مباشرة ولا يحدد صفوف للتكرار وهذا لا أريده وإنما أريده فقط لتحديد النطاق والمعاينةومن ثم أنا أختار ما أريد طباعته النطاق كله أو بعض الأورق منهحسب الاختيار من فورم الطباعة

تم تعديل أغسطس 7, 2011 بواسطه الشهابي

[عبدالله المجرب]

اخي الفاضل (الشهابي)

هذا الكود لعمل معاينة فقط مع تكرار الصف الاول في جميع الصفحات

Sub Preview()

With ActiveSheet.PageSetup

        .PrintTitleRows = "$1:$1"

    End With

ActiveWindow.SelectedSheets.PrintPreview

End Sub

وهذا الكود لتحديد النطاق ($A$4:$H$100") ثم معاينة هذا النطاق مع تكرار الصف الاول في جميع الصفحات

Sub Preview1()

With ActiveSheet.PageSetup

        .PrintTitleRows = "$1:$1"

    End With

ActiveSheet.PageSetup.PrintArea = "$A$4:$H$100"

ActiveWindow.SelectedSheets.PrintPreview

End Sub

تم تعديل أغسطس 7, 2011 بواسطه عبدالله المجرب

[ياسر الحافظ]

اخي الفاضل (الشهابي)

هذا الكود لعمل معاينة فقط مع تكرار الصف الاول في جميع الصفحات

وهذا الكود لتحديد النطاق ($A$4:$H$100") ثم معاينة هذا النطاق مع تكرار الصف الاول في جميع الصفحات

اخي الاستاذ عبد الله المجرب " ابو احمد "

تحية طيبة

الاكواد جميلة جدا جدا

وعذرا ... ولقد قمت برفعها في ملف اكسل ( بتعديل تكرار الصف من الاول الى الرابع ) بدلا من الاول فقط ... تسهيلا لفهما

وسأقوم برفعها الى موضوع " بعض الاكواد المنفصلة قد تهم البعض " للاستاذ يحيـــــــــــــــاوي

اشكرك

وفقك الله

ياسر الحافظ " ابو الحارث "

الكود لعمل معاينة فقط مع تكرار صف.rar

[الشهابي]

أخي العزيز عبد الله المجرب شكرا جزيلا وجزاك الله خير

وكذلك أخي ياسر الحافظ جزاك الله خير على مرورك وعلى وضعك للكودفي ملف أكسل ورفعه لنا لتسهيل المهمة

وفقكم الله جميعا

[عبدالله المجرب]

الاستاذ ياسر الحافظ (حفظ الله شعب سوريا من كل مكروه)

افعل ما تراه مناسباً

الاخ الفاضل الشهابي

لا شكر على واجب

ابواحمد