كود للطباعة

[khairi ali]

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

في هذا الشيت أريد تعديل كود الطباعة بحيث عند الضفط على شهادة واحدة يقوم بطباعة شهادة واحدة محددة

وعند أختيار شهادتين يقوم بطباعة الشهادتين

وللعلم الشهادة تتغير عند الضغط على زر الزيادة والنقصان بالكود وليس بالمعادلات

ولكم فائق الشكر والاحترام

الطباعة.xlsm

[أ / محمد صالح]

هل المقصود أنك إذا كتبت مثلا في الخلية V1 الرقم 1 يطبع شهادة واحدة فقط ولا تظهر الثانية بالأسفل

وإذا كتبت 2 تظهر الشهادتان

؟؟

[khairi ali]

السلام عليك استاذ محمد

المطلوب عند الضغط على الطابعة يقوم بطباعة كل الشهائد  حسب الاسماء في شيت الدرجات وكل شهادتين في صفحة واحدة

عند كتابة رقم في الخلية من v7  الى  w7  يقوم الكود بطباعة الشهائد المحددة فقط 

 

[أ / محمد صالح]

هذا بالضبط الذي يقوم الكود الموجود في الطباعة 

printall

حلقة تكرارية من v7 إلى w7

ثم يكتب في v7 رقم الصفحة ثم يقوم بطباعة الحالية

وهكذا حتى تنتهي الصفحات

[khairi ali]

الكود يضبع.في الصفحة الاولى فقط لاتتغير درجات الطالب 

[أ / محمد صالح]

ربما يكون هذا هو السبب في عدم عمل كود الطباعة

اقتباس

وللعلم الشهادة تتغير عند الضغط على زر الزيادة والنقصان بالكود وليس بالمعادلات

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

وللدمج بين الكودين يمكنك اتباع الآتي:

* جعل الخلية المرتبطة في spinner1 هي الخلية v7 وليست v1

* تغيير v1 إلى v7 في هذين السطرين في كود الإجراء Shehada 

x = (Ws.Range("V7") - 1) * 2 + 1
y = Ws.Range("V7") * 2

تغيير كود إجراء طباعة الكل إلى ما يلي:

Sub printall()
ActiveSheet.Select
Range("w7") = Range("w7") / 2
For i = Range("v7") To Range("w7")
Range("v7") = i
Shehada
If i <= Range("v7") Then
ActiveWindow.SelectedSheets.PrintOut , Copies:=1, preview:=False, Collate:=True
End If
Next i
ActiveSheet.Select
End Sub

لطباعة الشهادات من 1 إلى 8 نكتب بصورة طبيعية 1 في الخلية v7 ونكتب 8 في الخلية w7 سيحولها الكود من 1 الى 4 لأن في كل صفحة شهادتين

بالتوفيق

[khairi ali]

بارك الله فيك أستاذ محمد وان شاء الله في ميزان حسانتك