طباعة نسختان في ورقة A4 واحدة

[أبو شرف]

بسم الله الرحمن الرحيم 

الأخوة الأعضاء تحية طيبة

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

الملف عبارة عن فورم استخلاص بيانات نقل وصرف مبلغ للسائق ولكن ماهو مطلوب اليوم استخراج نسختين من الفورم في ورقة واحدة بحيث اذا تمت الطباعة من ايقونة الطباعة او طباعة متعدده تخرج لي نسختان من كل سائق ( يحمل الرقم التسلسلي نفسه )  لاني اعاني من مسألة اعادة الطباعة  لكل سائق كثرا ............ اتمنى قد اوصلت الفكرة لكم وتقبلوا تقديري 

اخوكم 

ابو شرف 

فورم نقل.rar

[محمود_الشريف]

أخى الكريم / أبو أشرف

على حسب ما فهمت من طلبك 

أنكم تريدون الطباعه 

نسختين فى ورقة واحده من كشف الصرف 

على حسب علمى والله تعالى أعلى وأعلم

أنكم ستقومون بتحديد الزووم ( العرض والإتفاع ) وتكرره مرتين بكود الطباعه

وسامحنى أخى الكريم لأنى بالعمل الآن  فلم أستطع تحميل الملف

ولكن ممكن تضيف لكود الطباعه الكود التالى

أو إنتظر أحد الأساتذة المختصين الذى أدين لهم بما تعلمته

وتقبل منى وافر الإحترام والتقدير

 

الكود عدل عليه بما يتوافق مع ملف

Private Sub CommandButton2_Click()   'Print Rep
Beep
For i = 3 To [A10000].End(xlUp).Row
If Val(ComboBox1) = Cells(i, 2) Then Cells(i, 14) = Date & " مسحوب بتاريخ": Exit For
Next

Application.Visible = True
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
ورقة1.Activate
ورقة1.[b2].Value = ComboBox1.Text
ورقة1.[b3].Value = TextBox3.Text
ورقة1.[b4].Value = TextBox4.Text
ورقة1.[b5].Value = TextBox5.Text
ورقة1.[b6].Value = TextBox6.Text
ورقة1.[b7].Value = TextBox7.Text
ورقة1.[b8].Value = TextBox8.Text
ورقة1.[b9].Value = TextBox9.Text
ورقة1.[b10].Value = TextBox10.Text
ورقة1.[b11].Value = TextBox11.Text
ورقة1.[b12].Value = TextBox12.Text
ورقة1.[b13].Value = TextBox13.Text
ورقة1.[b14].Value = TextBox14.Text
ورقة1.[b15].Value = TextBox23.Text
ورقة1.[b22].Value = ComboBox1.Text
ورقة1.[b23].Value = TextBox3.Text
ورقة1.[b24].Value = TextBox4.Text
ورقة1.[b25].Value = TextBox5.Text
ورقة1.[b26].Value = TextBox6.Text
ورقة1.[b27].Value = TextBox7.Text
ورقة1.[b28].Value = TextBox8.Text
ورقة1.[b29].Value = TextBox9.Text
ورقة1.[b30].Value = TextBox10.Text
ورقة1.[b31].Value = TextBox11.Text
ورقة1.[b32].Value = TextBox12.Text
ورقة1.[b33].Value = TextBox13.Text
ورقة1.[b34].Value = TextBox14.Text
ورقة1.[b35].Value = TextBox23.Text
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

A = MsgBox("هل تود طباعة سند السيد /  ؟" & vbNewLine & vbNewLine & TextBox4.Value & vbNewLine, vbYesNo + vbQuestion, "طباعة")
If A = vbYes Then

End If
End Sub

[أبو شرف]

اخي العزيز اشكرك جزيل الشكر على تفاعلك معي ولكن جربت ولم افلح في عمل الكود بالخصوص 

ارجو التعديل على الملف ووفقك الله ورعاك وتقبل فائق تقديري 

اخوك 

ابو شرف 

[محمود_الشريف]

أخى الكريم

تفضل الملف بالمرفقات

نسأل الله عز وجل أن يكون هو المطلوب

وتقبلوا منى وافر الإحترام والتقدير

m_elshrief_فورم نقل.rar