اذهب الي المحتوي
أوفيسنا

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


الردود الموصى بها

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

 

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

 

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

 

مرفق مثال

 

TEST.zip

 

 

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

تم تعديل بواسطه 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

تم تعديل بواسطه رجب جاويش
رابط هذا التعليق
شارك

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

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

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

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

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

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

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

رابط هذا التعليق
شارك

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

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

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

أخى الحبيب

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

  • Like 1
رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information