مساعدة في فتح اليوزر فورم

[حراثي تواتي]

السلام عليكم اخواني الافاضل

هل هناك كود يقوم باعادة فتح اليوزر فورم بعد غلق تافذة صفحة معاينة الطباعة

وشكرا مسبقا

 

Private Sub CommandButton1_Click()
Sheets(1).Activate
UserForm1.Hide
Range("a1:u87").PrintPreview
End Sub

 

تم تعديل مارس 27, 2016 بواسطه حراثي تواتي

[ياسر خليل أبو البراء]

هل جربت إضافة السطر التالي في نهاية الكود

UserForm1.Show ..

إذا لم يعمل معك فأرجو إرفاق الملف للعمل عليه والإطلاع عليه بحيث تتضح الصورة

[حراثي تواتي]

13 دقائق مضت, ياسر خليل أبو البراء said:

هل جربت إضافة السطر التالي في نهاية الكود

UserForm1.Show ..

إذا لم يعمل معك فأرجو إرفاق الملف للعمل عليه والإطلاع عليه بحيث تتضح الصورة

و الله جربت الان و نجحت العملية فبارك الله فيك يا استاذي الفاضل ياسر خليل أبو البراء  و دمت ذخرا لنا

Private Sub CommandButton1_Click()
Sheets(1).Activate
UserForm1.Hide
Range("a1:u87").PrintPreview
UserForm1.show
End Sub

 

[ياسر خليل أبو البراء]

الحمد لله الذي بنعمته تتم الصالحات

وجزيت خيراً أخي الكريم حراثي بمثل ما دعوت لي ..