اذهب الي المحتوي
أوفيسنا

فضلا اريد عمل زر لطباعة الصفحة التي اريد من نفس الشيت


abdou42
إذهب إلى أفضل إجابة Solved by مختار حسين محمود,

الردود الموصى بها

اريد رز طباعة بحيث يكون لك الحق في اختيار صفحة معينة او مجموعة صفحات من feuil1 للطباعة يعني طباعة الصفحة الاولى او الثانية او كليهما لي الاختيار

recharche XD.rar

تم تعديل بواسطه abdou42
رابط هذا التعليق
شارك

تفضل أخى الكريم عله يفى بالغرض 

فى المرفق الأول أدخل عدد مرات الطباعة تم أدخل عدد الصفحات

1 للصفحة الاولى 2 تعنى أول صفحتين وهكذا

فى المرفق الثانى أدخل عدد مرات الطباعة تم أدخل رقم الصفحة

1 للصفحة الاولى 2 للصفحة الثانية وهكذا

ملحوظة : انقل زر استدعاء الفورم لأى ورقة عمل فى الملف

وأى عملية طباعة ستكون على الورقة النشطة

تحياتى

recharche XD.rar

recharche XD 2.rar

تم تعديل بواسطه مختار حسين محمود
  • Like 2
رابط هذا التعليق
شارك

خلاص بقى طالما الحل عجبك أنهى الموضوع  ولا تنسونا فى دعائكم

تم تعديل بواسطه مختار حسين محمود
رابط هذا التعليق
شارك

  • أفضل إجابة

تفضل  أخى عبدووووووووو

recharche XD 1 v2.rar

recharche XD 2 v2.rar

  • Like 1
رابط هذا التعليق
شارك

أخي الحبيب الغالي مختار

بارك الله فيك وجزاك الله خيراً على كل ما تقدمه

 

بس إنت تاعب نفسك ليه كدا بأزرار الأوامر (خليك كسول زي حالاتي عشان توصلك لأقصر الحلول ..بلاش الطرق الوعرة الطويلة يا صاحبي)

جرب الملف التالي لعله يكون أقصر الطرق ..

Private Sub UserForm_Initialize()
    Dim I As Integer
    For I = 1 To 24
        With cbNumberOfPages
           .AddItem I
        End With
    Next I
End Sub

Private Sub cmdPrint_Click()
    If Tx_Copies.Value = "" Then MsgBox "أدخل عدد النسخ المراد طباعتها": Exit Sub
    If cbNumberOfPages.Value = "" Then MsgBox "أدخل عدد الصفحات المطلوبة للطباعة": Exit Sub
    On Error Resume Next
    Sheets("Feuil1").Select
    ActiveWindow.SelectedSheets.PrintOut From:=1, To:=cbNumberOfPages.Value, Copies:=Tx_Copies.Value, Collate:=True
    Sheets("Feuil2").Select
End Sub

Private Sub cmdEnd_Click()
    End
    Sheets("Feuil2").Select
End Sub


تقبل تحياتي

Print UserForm Mokhtar.rar

  • Like 1
رابط هذا التعليق
شارك

 أخى وحبيبى فى الله وأستاذى ياسر عندك حق ساعات الكسل بيكون أفضل

وبعد كده أجيب مخ منين زى مخك أنا مخى طار يا أبو الإأفكار تحياتى

  • Like 2
رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information