طباعة ورقة عدة مرات ببيانات من ورقة أخرى

[رامي الخبيري]

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

 

الطلب بسيط إن شاء الله

 

أريد طباعة شيت 1 عدة مرات و في كل مرة يتم ملأ المحتوى ببيانات من شيت 2 بالترتيب حتى يتم الإنتهاء من جميع بيانات شيت 2

 

مرفق مثال

 

TEST.zip

 

 

و لكم وافر التحية

تم تعديل فبراير 17, 2014 بواسطه romio52225

[رجب جاويش]

أخى الفاضل

أولا : لك منى دعوة طيبة لتغيير اسم الظهور الى اللغة العربية حتى يسهل التواصل بيننا

ثانيا : تفضل ما تريد

Sub ragab()
Set sh = Sheets("sheet2")
LR = sh.Cells(Rows.Count, 1).End(xlUp).Row
For i = 2 To LR Step 6
Range("B3:G3").Value = Application.WorksheetFunction.Transpose(sh.Cells(i, 1).Resize(6).Value)
ActiveWindow.SelectedSheets.PrintOut
Next
Set sh = Nothing
End Sub

TEST.rar

تم تعديل فبراير 18, 2014 بواسطه رجب جاويش

[أبو محمد عباس]

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

الاستاذ والاخ الحبيب رجب جاويش جزاك الله خيرا

كود اكثر من رائع وعمل ممتاز جعله الله في ميزان حسناتكم

زادكم الله علما وشرفا وحفظكم من كل سوء وشافاكم انه هو الشافي

اخي واستاذي الفاضل هل يمكن التعديل على الكود ليقف عند انتهاء البيانات الموجودة في Sheet1

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

بارك الله فيك وتقبل فائق احترامي وتقديري

[رجب جاويش]

أخى الحبيب / أبو محمد عباس

شكرا جزيلا أخى الحبيب على هذه الكلمات العطرة والدعاء الطيب

وجزاك الله كل خير

أخى الحبيب

تم تعديل الكود والملف فى المشاركة السابقة كما تريد

[رجب جاويش]

أخى الفاضل / رامي الخبيري

جزاك الله كل خير على سرعة الاستجابة بتغيير اسم الظهور الى اللغة العربية