ترحيل بيانات في تتابع مع الطباعة

[ابو ذكري]

في الملف المرفق في الورقة الاولى بيانات العاملين في تقرير الكفائة السنوي ( تقييم الاداء )

وفي الورقة الثانية المفروض طباعة كل اسم من الورقة الاولى في صفحة منفردة بنفس البيانات في الورقة الاولى على نفس البيانات من الورقة الثانية

والمطلوب من الخبراء بعد الاذن طبعا

طريقة لترحيل البيانات من الورقة الاولى الى الورقة الثانية وطباعتها في نفس الوقت

اي اعطاء امر طباعة مباشرة

وطباعة كل الاسماء كل اسم في صفحة منفردة

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

تقرير الكفاءة السنوي.rar

[ابو اسامة العينبوسي]

On Error GoTo omar

For i = 6 To 109

   z = 6

   Cells(5, "E") = Sheets(1).Cells(i, 3)

   Cells(6, "E") = Sheets(1).Cells(i, 4)

   Cells(7, "E") = Sheets(1).Cells(i, 5)

   For x = 10 To 17

   Cells(x, "G") = Sheets(1).Cells(i, z)

   z = z + 1

   Next x

   Sheets(1).PrintOut

Next i

omar:

MsgBox "no printer detected"

تقرير الكفاءة السنوي2.rar

تم تعديل يناير 3, 2012 بواسطه ابو اسامة العينبوسي

[ابو ذكري]

كل الشكر والتقدير والاحترام استاذي ابو اسامة

وفقك الله وسدد خطاك

ودائما في تقدم

[ابو اسامة العينبوسي]

On Error GoTo omar

For i = 6 To 109

   z = 6

   Cells(5, "E") = Sheets(1).Cells(i, 3)

   Cells(6, "E") = Sheets(1).Cells(i, 4)

   Cells(7, "E") = Sheets(1).Cells(i, 5)

   For x = 10 To 17

   Cells(x, "G") = Sheets(1).Cells(i, z)

   z = z + 1

   Next x

   Sheets(2).PrintOut

Next i

omar:

MsgBox "no printer detected"

Sheets(2).PrintOut

not

Sheets(1).PrintOut

تم تعديل يناير 4, 2012 بواسطه ابو اسامة العينبوسي