طباعه

[احمد فضيله]

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

اخواني الاعزاء بالمنتدى اقدم لكم ملف به كود للطباعه

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

وذلك عن طريق زرار او عن طريق فورم

ارجو من الله ان يكون به و لو بعض النفع القليل لكل اخواني الاحباب

والله المستعان

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

طباعة FADILA.rar

[رجب جاويش]

الأخ الفاضل / أحمد فضيلة

تسلم ايديك

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

Private Sub CommandButton1_Click()

If TextBox1.Value = "" Then

MsgBox ("áÇÈÏ ãä ÇÏÎÇá ÚÏÏ äÓÎ ÇáØÈÇÚÉ")

TextBox1.SetFocus

End If

If TextBox1.Value <> "" Then

Range("A1:M15").Select

Selection.PrintOut Copies:=TextBox1.Value, Collate:=True

Unload UserForm1

End If

End Sub

[محمد يحياوي]

الاخ الفاضل احمد فضيلة فكرة جميلة و رائعة بارك الله

الاخ الكريم رجب شكرا على الاضافة الجميلة

[أبو ردينة]

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

جزاكم الله خير الجزاء

الأخوة الكرام الأستاذ أحمد و الأستاذ رجب و الأستاذ محمد نفع الله بكم و علمكم ما ينفع و أبدلكم عن جهدكم للجميع كل خير

[عبدالله المجرب]

بارك الله فيك استاذ احمد على هذا العمل المميز

[احمد فضيله]

الأخ الفاضل / أحمد فضيلة

تسلم ايديك

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

Private Sub CommandButton1_Click()

If TextBox1.Value = "" Then

MsgBox ("áÇÈÏ ãä ÇÏÎÇá ÚÏÏ äÓÎ ÇáØÈÇÚÉ")

TextBox1.SetFocus

End If

If TextBox1.Value <> "" Then

Range("A1:M15").Select

Selection.PrintOut Copies:=TextBox1.Value, Collate:=True

Unload UserForm1

End If

End Sub

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

اخي الحبيب الاستاذ الفاضل الاستاذ / رجب

جزاك الله كل خير على مروك الكريم و كلماتك الطيبه

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

بل اشكرك بالنيابه عن كل الاعضاء لمجهود حضرتك و اهتمامك بالتعديل

و هذه المشاركة تضيف و تثري الموضوع

و استإذان حضرتك يا اخي ينم عن شخص حضرتك الخلوق

وفقنى الله واياك الي ما يحبه ويرضاه

بارك الله في حضرتك

والله المستعان

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

[احمد فضيله]

الاخ الفاضل احمد فضيلة فكرة جميلة و رائعة بارك الله

الاخ الكريم رجب شكرا على الاضافة الجميلة

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

اخي الحبيب الاستاذ الفاضل / محمد يحياوي

جزاك الله كل خير على مروك الكريم و دعائك و كلماتك الطيبه

وفقنى الله واياك الي ما يحبه ويرضاه

و الله المستعان

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

[احمد فضيله]

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

جزاكم الله خير الجزاء

الأخوة الكرام الأستاذ أحمد و الأستاذ رجب و الأستاذ محمد نفع الله بكم و علمكم ما ينفع و أبدلكم عن جهدكم للجميع كل خير

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

اخي الفاضل الاستاذ / ابو ردينه

جزاك الله كل خير على مروك الكريم و دعائك و كلماتك الطيبه

وفقنى الله واياك الي ما يحبه ويرضاه

و الله المستعان

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

[احمد فضيله]

بارك الله فيك استاذ احمد على هذا العمل المميز

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

اخي الحبيب الاستاذ الفاضل / عبد الله المجرب

جزاك الله كل خير على مروك الكريم و دعائك و كلماتك الطيبه

وفقنى الله واياك الي ما يحبه ويرضاه

و الله المستعان

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

[احمد فضيله]

اشكر الجميع على المرور الكريم