ع_ حسام قام بنشر أبريل 16, 2015 مشاركة قام بنشر أبريل 16, 2015 السلام عليكم أهلال المنتدى والخبرة عندي طلب بسيط وهو تصحيح الخطأ في كود طباعةعملت كود طباعة بناء على الصفحة االموجود في الكمبو بوكس لكن يعطي خطأ في سطر حاولت فيه بعدة طرق ولم تفلح معي وشكرا مقدم Classeur1.rar رابط هذا التعليق شارك More sharing options...
رجب جاويش قام بنشر أبريل 16, 2015 مشاركة قام بنشر أبريل 16, 2015 السلام عليكم أخى الفاضل استبدل الكود الموجود بالملف بالكود التالى Private Sub CommandButton2_Click() Dim ish As Worksheet If ComboBox1.Value = "" Then MsgBox "اختر الاسم أولا": Exit Sub Set ish = Sheets(ComboBox1.Value) ish.Activate ActiveSheet.PageSetup.PrintArea = "A5:f19" ActiveSheet.PrintOut Copies:=1 End Sub 1 رابط هذا التعليق شارك More sharing options...
أفضل إجابة ع_ حسام قام بنشر أبريل 16, 2015 الكاتب أفضل إجابة مشاركة قام بنشر أبريل 16, 2015 شكرا لك أستاد رجب سطر بسيط لم أتوقعه رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر أبريل 16, 2015 مشاركة قام بنشر أبريل 16, 2015 يرجى تحديد أفضل إجابة أخي الفاضل ليظهر الموضوع مجاب رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.