اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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

قام بنشر

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

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

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

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

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

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

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

طباعة 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

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

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

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

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

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

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

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

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

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

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

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

قام بنشر

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

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

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

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

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

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

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

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

قام بنشر

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

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

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

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

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

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

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

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

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

قام بنشر

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

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

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

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

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

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

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

  • 2 weeks later...

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
×
  • اضف...

Important Information