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

[hani_2007]

السلام عليكم

اعزائي استفساري هو عن كيفية طباعة خلايا معينه وليس كل المستند في ورقه واحده

ولقد ارفقت ملف لشرح المطلوب

وشكرا لكم

PRINT1.rar

[عبد الفتاح كيرة]

لابد من نسخ الخلايا أولا لنطاق جديد بحيث يتم إلغاء الفراغات

ثم طباعة النطاق الجديد

استخدم الكود التالى لتنظيم الخلايا كما أردت

و من ثم

تعيين نطاق الطباعة للنطاق الجديد

هذا ما يحضرنى الآن

وربما هناك حلول أفضل

لكنها تحتاج لوقت

Sub Button1_Click()

Dim myrng As Range, myc As Range, i As Integer, j As Integer

i = 1

j = 6

For x = 1 To 4

    Set myrng = Range(Cells(i, j - 5), Cells(10, j - 5))

        For Each myc In myrng

            If myc <> "" Then

                myc.Copy Cells(i, j)

                i = i + 1

            End If

        Next myc

    i = 1

    j = j + 1

Next x

    Range("F1:I10").Select

    ActiveSheet.PageSetup.PrintArea = "$F$1:$I$10"

End Sub

الملف المرفق

PRINT1-kemas.rar

تم تعديل فبراير 18, 2011 بواسطه kemas

[hani_2007]

اشكرك شكرا جزيلا

بس ممكن اضيف طلب ثاني

معليش سامحوني اذا زودها

- ممكن اذا كانت اكبر من حجم الورقة هل اقدر اخليها بحجم الورقه

- اذا كان اقدر اخلي راس الطباعة يحتوي على خانات ثابته مثلا اسماء القوائم و تحتها يبدا بطباعة الخلايا ثم في نهاية الصفحة يطبع خانات التقفيل

سارفق ملف بالمطلب

و ارجوا المعذره مره اخرى مع فائق شكري و احترامي

لابد من نسخ الخلايا أولا لنطاق جديد بحيث يتم إلغاء الفراغات

ثم طباعة النطاق الجديد

استخدم الكود التالى لتنظيم الخلايا كما أردت

و من ثم

تعيين نطاق الطباعة للنطاق الجديد

هذا ما يحضرنى الآن

وربما هناك حلول أفضل

لكنها تحتاج لوقت

Sub Button1_Click()

Dim myrng As Range, myc As Range, i As Integer, j As Integer

i = 1

j = 6

For x = 1 To 4

    Set myrng = Range(Cells(i, j - 5), Cells(10, j - 5))

        For Each myc In myrng

            If myc <> "" Then

                myc.Copy Cells(i, j)

                i = i + 1

            End If

        Next myc

    i = 1

    j = j + 1

Next x

    Range("F1:I10").Select

    ActiveSheet.PageSetup.PrintArea = "$F$1:$I$10"

End Sub

الملف المرفق

PRINT2.rar

[صباح حسين]

السلام عليكم . لم استطيع فتح الملف لاني استخدم 2003 والظاهر انت تستخدم غيرها . ولكن وحسب فهمي لطلبك .

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

file___ pagesetup___ sheet____ rows to repeat at top

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

file___ pagesetup___ header/footer___custom header

تظهر نافذة اكتب بها ماتريد

وف نفس النافذة تسطيع كتابة اي نص ليتكرر اسفل كل صفحة

ارجو ان يكون هذا طلبك .

[عبد الفتاح كيرة]

أخى يمكنك تغيير نطاق الطباعة لتحصل على ما تريد

ActiveSheet.PageSetup.PrintArea = "$F$1:$I$10"

إلى

ActiveSheet.PageSetup.PrintArea = "$F$1:$I$15"