اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


إذهب إلى أفضل إجابة Solved by ابراهيم الحداد,

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

مرفق ملف تم اضافة ازرار للتنقل محتاج الدوال اللازمة عند الضغط على الزر يظهر أول أربع بيانات بالمسلسل وبالضغط مرة أخرى يظهر البيانات الأربعة التالية بتسلسل الأرقام ولك فى نفس الصفحة 

بمعنى كل ضغطة زر تظهر بيانات أربعة من الاسماء بتسلسلهم فى ورقة البيانات ليتم طباعة ورقة واحدة فى كل مرة تحتوى على البيانات الاربعة

وشكرا لكم .... عنوان مخالف تم تعديل وتغيير عنوان المشاركة ليعبر عن طلبك

Book1.xlsx

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

  • أفضل إجابة

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

اربط هذا الكود بالزر الموجود بالورقة الشهادة

Sub PrintCall()
Dim ws As Worksheet, Sh As Worksheet, Rng As Range
Dim LR As Long, i As Long, p As Long
Dim x As Integer, WF As Variant
Dim Nam, Sm
Set ws = Sheets("بيان")
Set Sh = Sheets("شهادة")
Set WF = WorksheetFunction
LR = ws.Range("B" & Rows.Count).End(3).Row
Set Rng = ws.Range("A2:C" & LR)
p = 2
x = Sheet6.Shapes("Spinner 3").ControlFormat.Value
i = (x - 1) * 4 + 1
Do While p <= 32
Sh.Range("H" & p) = i
Nam = WF.VLookup(i, Rng, 2, 0)
Sh.Range("C" & p + 2) = Nam
Sm = WF.VLookup(i, Rng, 3, 0)
Sh.Range("H" & p + 2) = Sm
p = p + 10
i = i + 1
Loop
ActiveSheet.PrintOut From:=1, To:=1, Copies:=1
End Sub

 

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

زائر
هذا الموضوع مغلق.
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

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

Important Information