طلب مساعدة بخصوص طباعة من يوزر فوورم

[Prince Mo3taz]

حاليا انا صممت يوزر فورم يحتوي على اتنين تكست بوكس  1///2 

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

Sheet1.Activate

Range("a1").Value = TextBox1.Text
Range("a5").Value = TextBox2.Text


UserForm1.Hide
Sheet1.Activate
Range("a1:a5").PrintPreview

شغال معايا كويس جدا اما بعمل run من داخل الفيجوال بيسك

لكن فوجت اما استخدمت كود اخفاء الشيت وتشفير مشروع الفيجوال بيسك  استخدمت الكود دا لاخفاء الشيت 

Private Sub Workbook_Open()
Application.Visible = False
UserForm1.Show
End Sub

اصبح عند الضغط على الطباعة يتم اخفاء الفورم كما بالكود ولكن لم يتم تحويلى الى معاينه قبل الطباعة 

 

[jjafferr]

عفوا الاخ هاني

قد تستغرب من قدرة الاساتذة في الرد على الكثير من المواضيع ، وبدون مرفق ،

واذا احتاجوا اليه ، فسيطلبونه 🙂

 

جعفر

[mostafaelgindy]

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

أخي الكريم يمكنك تعديل Printprview  الي Printout

Range("a1:a5").PrintPreview

[Prince Mo3taz]

عليكم السلام 

شكرا جدا لردكم  استاذ mostafaelgindy    و استاذ jjafferr   وعلى مساعدتكم 

بسبب طريقة رده بطريقة غريبة جدا 

والاغرب من ذلك ان جميع مشاركات الاستاذ هانى على كل الموضيع بذالك الرد حاولت اتباع مشاركته لم احصل على اى مشاركة بها حل لمشكلة او مساعدة 

هل هذه طريقة الدخول لفريق الاشراف للمنتدى

على الرغم من نفس اليوم تم الرد عليا من منتدى اخر بدون طلب ملف العمل 

رمضان كريم عليكم اخوانى