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

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


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

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

الفيديو

 

 


'   لو الثلاثة فيهم بيانات
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

 

59f57d0d5e2ca_.jpg.7b5c132d2c810da4aa701fb1d35c5a70.jpg

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

في ٢٨‏/١٠‏/٢٠١٧ 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

 

59f57d0d5e2ca_.jpg.7b5c132d2c810da4aa701fb1d35c5a70.jpg

السلام عليكم ورحمة الله وبركاته قبل وكل شيئ لقد اشتقنا اليك أستاذ مجدى و الفيديو كان رائع جدا مشكووور. 
 
ExcelTrick-Amazon-Store-New.gif.563b715cd9c860ff511e8bd6ba3ea4d9.gif1.JPG.75310380b590da88ce93e19a1e89ce42.JPG11.JPG.655dd2c8a57e93a5208573b125136e23.JPG
                   
3b54e310.gif.c636cc56f01df044362c0c389bcad429.gif
 
  • Like 3
  • Thanks 1
رابط هذا التعليق
شارك

  • 1 month later...

الاخ هشام

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

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

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

  • 3 weeks later...
في 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

 

59f57d0d5e2ca_.jpg.7b5c132d2c810da4aa701fb1d35c5a70.jpg

 

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

  • 1 year later...

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
×
  • اضف...

Important Information