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

[abdou42]

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

recharche XD.rar

تم تعديل أبريل 26, 2015 بواسطه abdou42

[مختار حسين محمود]

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

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

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

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

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

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

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

تحياتى

recharche XD.rar

recharche XD 2.rar

تم تعديل أبريل 26, 2015 بواسطه مختار حسين محمود

[مختار حسين محمود]

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

تم تعديل أبريل 27, 2015 بواسطه مختار حسين محمود

[abdou42]

شكرا بارك الله فيك طريقة رائعة للطباعة من نفس الشيت

لكن انا اود ان تتم الطباعة من الشيت الثاني لمحتوى الشيت الاول صفحة صفحة وكذا دفعة واحدة

بارك الله فيك اخي

[مختار حسين محمود]

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

recharche XD 1 v2.rar

recharche XD 2 v2.rar

[abdou42]

بارك الله فيك اخي الفاضل مختار حسين

جزاك الله عني خير الجزاء

شكرا جزيلا لك.

[مختار حسين محمود]

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

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

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

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

 

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

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

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

[مختار حسين محمود]

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

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

[abdou42]

بارك الله فيكم جميعا شكرا

عمل رائع