طباعة عدة أسماء في قالب واحد

[أبوحازم]

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

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

154.rar

[طارق محمود]

السلام عليكم

أخي العزيز

أولا حدد مساحة الطباعة Set Print Area في الورقة "ورقة2"

ثانيا ضع الكود التالي ليتم تفعيله عند الضغط علي الزر

Sub nPrint()
LR = [A9999].End(xlUp).Row
If LR < 2 Then LR = 2
For r = 2 To LR
   With Sheets(1)
    .[A1] = Cells(r, 1)
    .PrintOut Copies:=1
   End With
Next r
End Sub

[طارق محمود]

أو تفضل المرفق

 

154_2.rar

[أبوحازم]

شكرا جزيلا جدا بس ياريت يكون  القوالب عده مطبوعه في ورقة واحدة وليس كل قالب مطبوع في ورقه واحده

[طارق محمود]

السلام عليكم
أخي الكريم

أنت طلبت في الملف السابق "كل أسم في قالب ويكون القالب في الورقة 2 واحد فقط"

لذلك تم التنسيق علي هذا

بدلا من إعادة العمل عليك ان تحدد

مقاس الورقة التي تطبع عليها (مثلا الشائع A4 التي مقاسها 21×30 سم تقريبا)
ثم تحدد

إما عدد القوالب المطلوبة في الورقة الواحدة

أو مقاس القالب المطلوب طباعته مثلا في حجم الصورة الشخصية 4× 6 سم أو أكبر قليلا 6×9 أو أكبر (نصف الورقة العادية) 10×15

[أبوحازم]

شكرا جزيلا جد نعم أريد القالب نفسه بنفس الحجم  واريدة كل ورقه فيها 4 قوالب وحجم الورقه الشائع A4

وشكرا للمراقب العام طارق محمود

[طارق محمود]

تفضل 4 قوالب / الصفحة (A4)

154_3.rar

[أبوحازم]

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