فورم طباعة الفورم بالكامل

[مجدى يونس]

فورم طباعة الفورم بالكامل

الفيديو

 

 

'   لو الثلاثة فيهم بيانات
If TextBox1.Value <> "" And TextBox2.Value <> "" And TextBox3.Value <> "" Then
'oاختار لى اخر خلية فى العمود
x = Range("o" & Rows.Count).End(xlUp).Row
'اجعل الخلية الاولىمن التكست بوكس رقم 1
Range("o" & x + 1).Value = TextBox1.Value
'اعمل لى ازاحة عمود واحد ولكن فى نفس السطر
Range("o" & x + 1).Offset(0, 1).Value = TextBox2.Value
'اعمل لى ازاحة عمودين  ولكن فى نفس السطر
Range("o" & x + 1).Offset(0, 2).Value = TextBox3.Value
'ارسل لى رسالة بنعم او لا للطباعة
d = MsgBox("هل تريد الطباعة ", vbYesNo, "طباعة الفاتورة مع تحيات مجدى يونس ")
'لو المستخدم اختار زر نعم
If d = vbYes Then
'اطبع فورم رقم 3
UserForm3.PrintForm
'فرغ البيانات للتكست ال الثلاثة
TextBox1.Value = ""
TextBox2.Value = ""
TextBox3.Value = ""
Else
'لو المستخدم اختار زر لا
If d = vbNo Then
'فرغ بيانات التكست الثلاثة
TextBox1.Value = ""
TextBox2.Value = ""
TextBox3.Value = ""
'غلق البيانات
End If
End If
Else
'لو لم ادخل بيانات فى التكست الثلاثة ارسل الرسالة التالية
MsgBox ("البيانات غير مكتملة")
End If
End Sub

 

[حمادة عمر]

[mennad sofiane]

في ٢٨‏/١٠‏/٢٠١٧ at 21:02, مجدى يونس said:

فورم طباعة الفورم بالكامل

الفيديو

 

 

'   لو الثلاثة فيهم بيانات
If TextBox1.Value <> "" And TextBox2.Value <> "" And TextBox3.Value <> "" Then
'oاختار لى اخر خلية فى العمود
x = Range("o" & Rows.Count).End(xlUp).Row
'اجعل الخلية الاولىمن التكست بوكس رقم 1
Range("o" & x + 1).Value = TextBox1.Value
'اعمل لى ازاحة عمود واحد ولكن فى نفس السطر
Range("o" & x + 1).Offset(0, 1).Value = TextBox2.Value
'اعمل لى ازاحة عمودين  ولكن فى نفس السطر
Range("o" & x + 1).Offset(0, 2).Value = TextBox3.Value
'ارسل لى رسالة بنعم او لا للطباعة
d = MsgBox("هل تريد الطباعة ", vbYesNo, "طباعة الفاتورة مع تحيات مجدى يونس ")
'لو المستخدم اختار زر نعم
If d = vbYes Then
'اطبع فورم رقم 3
UserForm3.PrintForm
'فرغ البيانات للتكست ال الثلاثة
TextBox1.Value = ""
TextBox2.Value = ""
TextBox3.Value = ""
Else
'لو المستخدم اختار زر لا
If d = vbNo Then
'فرغ بيانات التكست الثلاثة
TextBox1.Value = ""
TextBox2.Value = ""
TextBox3.Value = ""
'غلق البيانات
End If
End If
Else
'لو لم ادخل بيانات فى التكست الثلاثة ارسل الرسالة التالية
MsgBox ("البيانات غير مكتملة")
End If
End Sub

 

السلام عليكم ورحمة الله وبركاته قبل وكل شيئ لقد اشتقنا اليك أستاذ مجدى و الفيديو كان رائع جدا مشكووور. 

 

                   

 

[ابو محمد وهبي]

بارك الله فيك ....

[مجدى يونس]

وبارك فيكم والف شكر

ووحشنى جميعا

[هشام جودي]

السلام عليكم 

اريد يا استاذ كود زر طباعة في الاكسل

و لك جزيل الشكر و العرفان

[مجدى يونس]

الاخ هشام

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

Sub معاينة_مع_الطباعة()

ActiveWindow.SelectedSheets.PrintPreview

A = MsgBox("هل تود الطباعة بعد المعاينة؟", vbYesNo + vbQuestion, "طباعة")

If A = vbYes Then

With ActiveSheet

.PrintOut

End With

End If

Range("A1").Activate

End Sub

 

معاينة طباعة مع امكانية الطباعه.rar

[ahmed1987]

السلام علیكم استاذ مجدى عندي سؤالين

1- كيف يمكنني طبع فورم بدون طبع الازرار ؟

2- عند فتح فورم كيف اتحكم بتنقل (tab) بين (text box) ؟

شكرا على المساعدة

[arsalan]

في 10/29/2017 at 10:02, مجدى يونس said:

فورم طباعة الفورم بالكامل

الفيديو

 

 

'   لو الثلاثة فيهم بيانات
If TextBox1.Value <> "" And TextBox2.Value <> "" And TextBox3.Value <> "" Then
'oاختار لى اخر خلية فى العمود
x = Range("o" & Rows.Count).End(xlUp).Row
'اجعل الخلية الاولىمن التكست بوكس رقم 1
Range("o" & x + 1).Value = TextBox1.Value
'اعمل لى ازاحة عمود واحد ولكن فى نفس السطر
Range("o" & x + 1).Offset(0, 1).Value = TextBox2.Value
'اعمل لى ازاحة عمودين  ولكن فى نفس السطر
Range("o" & x + 1).Offset(0, 2).Value = TextBox3.Value
'ارسل لى رسالة بنعم او لا للطباعة
d = MsgBox("هل تريد الطباعة ", vbYesNo, "طباعة الفاتورة مع تحيات مجدى يونس ")
'لو المستخدم اختار زر نعم
If d = vbYes Then
'اطبع فورم رقم 3
UserForm3.PrintForm
'فرغ البيانات للتكست ال الثلاثة
TextBox1.Value = ""
TextBox2.Value = ""
TextBox3.Value = ""
Else
'لو المستخدم اختار زر لا
If d = vbNo Then
'فرغ بيانات التكست الثلاثة
TextBox1.Value = ""
TextBox2.Value = ""
TextBox3.Value = ""
'غلق البيانات
End If
End If
Else
'لو لم ادخل بيانات فى التكست الثلاثة ارسل الرسالة التالية
MsgBox ("البيانات غير مكتملة")
End If
End Sub

 

 

[هشام جودي]

السلام عليكم 

بارك الله فيكم و جزاكم عنا كل خير 

[هشام جودي]

أريد عمل يوزوفورم بحث و تعديل

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

لكم جزيل الشكر و الامتنان

Classeur1.xlsx

[مجدى يونس]

عملت طلبك فى الحضور والانصراف

الى 13 عمود

افتح موضوع جديد بطلبك الجديد