طباعه

[ابو حمادة]

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

رجاء من خبراء الاكسل

عندي ملف بيانات الصفحات متغيره

محتاج كود يعمل الاتى

عند الضغط على زر طباعه يتم طباعه عدد الاوراق المكتوب في TextBox1

بمعني اذا تم كتابة رقم 1 في (TextBox1 )

يتم طباعه الصفحات من 1 الى 1 واذا كتبت 2 يتم طباعه الصفحات من 1  الى 2 وهكذا

يوجد ملف للتطبيق

طباعه.rar

     .......... ولكم منى الف تحبه ..........

 

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

وعليكم السلام

جرب الكود التالي

Option Explicit

Private Sub CommandButton1_Click()
    Dim x   As Variant
    Dim y   As Long

    With ActiveSheet
        x = TextBox1.Value
        y = (.HPageBreaks.Count + 1) * (.VPageBreaks.Count + 1)

        If x = "" Or Not IsNumeric(x) Or x > y Then MsgBox "Enter Valid Value", vbExclamation: Exit Sub

        .PrintOut From:=1, To:=x
    End With
End Sub

لاحظ أنه عندما يكون الموضوع مباشر والطلب واحد ومحدد تجد استجاية أفضل (راجع الموضوعات التي لم تجد فيها استجابة ستجد أن هناك تشتت وأكثر من طلب)

أحببت أن أنوه لك لكي ينتبه الجميع للأمر ، فالله يعلم أني أريد المصلحة والمنفعة للجميع

وفقنا الله وإياكم لكل خير

[ابو حمادة]

شكرا اخى الغالي استاذ ياسر جزاك الله خيرا

الكود يعمل جيدا ولكن محتاج فيه اضافه

يتم تحديد اسم الشيت الذي يتم طباعته

 

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

وجزيت خيراً

الموضوع بسيط ولابد من تعلم الأساسيات ..

يوجد هذا السطر للتعامل مع ورقة العمل النشطة

With ActiveSheet

إذا أردت التعامل مع ورقة العمل المسماة add على سبيل المثال ، ستقوم بتغيير كلمة ActiveSheet إلى التالي

With Sheets("aadd")

 

[ابو حمادة]

تسلم ياغالى بجد وشكرا لاهتمامك استاذي الغالي

وفقك الله وراعاك وجعله في ميزان حسناتك وزادك االله علما نافعا وقلبا خاشعا  ورزقا واسعا ووقاك الله من شر النفوش وضيق الصدور وعظم الله اجرك ورفع قدرك  

لك منى تحياتى

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

بارك الله فيك أخي الكريم أبو حمادة ومشكور على دعائك الطيب المبارك ، وإن شاء الله لك بمثله وزيادة

تقبل تحياتي