الطباعة في vba اكسل

عدد المساهمات : 40 تاريخ التسجيل : 27/12/2018

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

الاخ كريم
بالنسبة لسؤالك الاول موجود فورم بحث وطباعة بالمنتدى
اما السؤال الثانى فارسل ملف وبه طلبك وعموما الفورم الذكى يفعل ذلك وموجود بالمنتدى
واخيرا اليك كود طباعة

الكود:: Sub magdi()
Cells.EntireRow.Hidden = False
Sheets("Sheet1").PageSetup.PrintArea = "A2:D25"
Sheets("Sheet1").PrintPreview
End Sub

لاحظ اسم الشيت 1 أو 2 أو
ولاحظ المدى من الى

عدد المساهمات : 40 تاريخ التسجيل : 27/12/2018

شكرا لكم وبارك الله فيكم وجعل ماتقدمون في ميزان حسناتكم ادناه رابط الملف ونحن بوجود الطيبين امثالكم لانحتاج الى الفورم السحري...https://up.top4top.net/downloadf-11238ydlk1-rar.html

الاخ كريم

ادرج زر للطباعة وادخل الكود التالى CommandButton

واليك الصورة بعد الطباعة

الكود:: Private Sub CommandButton4_Click()
Label7.Visible = True
Label1.Visible = False

CommandButton1.Visible = False
CommandButton2.Visible = False
CommandButton3.Visible = False
CommandButton4.Visible = False
''''''''''''''''
Me.PrintForm
''''''''''''''''
Label1.Visible = True

CommandButton1.Visible = True
CommandButton2.Visible = True
CommandButton3.Visible = True
CommandButton4.Visible = True
Label7.Visible = False
End Sub

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

لو فيه طلب اخر لما ارجع من السفر

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

https://magdi54.forumegypt.net/t485-topic#2368

عدد المساهمات : 40 تاريخ التسجيل : 27/12/2018

وفيت وكفيت يااستاذ واحنا تعبناك معنا وان شاء تعود سالما غانما من السفر

اى خدمة انا رجعت بعد يومين

» معاينة الورقة قبل الطباعة
» اوامر فى الازراروالفورم مع اعدادات الطباعة
» CommandButton اظهار فورم معاينة الطباعة في الاكسل والبرنامج مخفي
» زر طباعة في اكسل
» كيفية تصميم شيت اكسل