اريد كود لاظهار عدد الصفحات التى سوف يتم طباعتها فى ليبل

[إبراهيم ابوليله]

الاخوه الافاضل

لدى شيت حينما يتم استدعائه

للمشاهده لكى يتم طباعته

اجد ان عدد الورقات التى سوف يتم طباعتها10ورقات

نفترض اننى لدى فورم اقوم بالطباعه من خلاله

اريد ادراج عدد الصفحات التى سوف يتم طباعتها

فى الليبل عند الضغط على زر الطباعه

Book1.rar

[وليد فتحي]

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

أتفضل أخي الفاضل ابراهيم

انا حسب على اساس انه يوجد بالورقة الواحده 50 اسم

ويمكنك تغيرها من الخانة الملونه باللون الاصفر

Book_111.rar

تم تعديل فبراير 28, 2014 بواسطه وليد فتحي

[إبراهيم ابوليله]

اخى وليد

اشكرك على المحاوله

ولكن ليس هذا ما اريده

بارك الله فيك

[وليد فتحي]

  في 28‏/2‏/2014 at 19:42, إبراهيم ابوليله said:

اخى وليد

اشكرك على المحاوله

ولكن ليس هذا ما اريده

بارك الله فيك

اسف اخي ابراهيم

ولكن هذا ما فهمته من طلبك

[الجموعي]

استاذ إبراهيم أدخل على هذا الرابط ممكن يفيدك

http://www.officena.net/ib/index.php?showtopic=44191

[إبراهيم ابوليله]

  في 28‏/2‏/2014 at 19:47, وليد فتحي said:

 

  في 28‏/2‏/2014 at 19:42, إبراهيم ابوليله said:

اخى وليد

اشكرك على المحاوله

ولكن ليس هذا ما اريده

بارك الله فيك

اسف اخي ابراهيم

ولكن هذا ما فهمته من طلبك

 

اخى وليد

يكفينى محاولتك للمساعده

لذلك انتا لا اتقبل منك الاسف

لانه لا اسف بين الاحباب

ونحن نجتمع هنا على المحبه والموده

بارك الله فيك

[إبراهيم ابوليله]

اخى الجموعى

اشكرك على المحاوله

ولكن ليس هذا ما اريده

فى انتظار ردود العمالقه

بارك الله فيك

[حمادة عمر]

السلام عليكم

الاخ الحبيب / إبراهيم ابوليله

بارك الله فيك

وبعد اذن اخي الفاضل /  وليد فتحي ... جزاه الله خيرا

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

تقبل الله منا ومنكم .. ووفقكم الله

 

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

ضع رقم الصفحة الذي تريد الطباعه اليها في الفورم .. ثن اضغط زر طباعة

Private Sub CommandButton1_Click()
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=TextBox1.Value, _
          Copies:=1, Collate:=True
End
End Sub

تقبلوا خالص تحياتي

 

 

طباعة صفحات.rar

[وليد فتحي]

  في 1‏/3‏/2014 at 13:30, حمادة عمر said:

السلام عليكم

الاخ الحبيب / إبراهيم ابوليله

بارك الله فيك

وبعد اذن اخي الفاضل /  وليد فتحي ... جزاه الله خيرا

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

تقبل الله منا ومنكم .. ووفقكم الله

 

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

ضع رقم الصفحة الذي تريد الطباعه اليها في الفورم .. ثن اضغط زر طباعة

Private Sub CommandButton1_Click()
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=TextBox1.Value, _
          Copies:=1, Collate:=True
End
End Sub

تقبلوا خالص تحياتي

 

 

طباعة صفحات.rar

 

 

 

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

استاذ حماده عمر جزاك الله كل خير وزادك من علمه

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

والاستاذ ابراهيم قال في ليبل فده اللي حيرني

لان حضرتك اعلم بان الليبل لا يمكن الكتابة فيه اثناء تشغيل الفورم

وربنا يبارك فيك على كلامك الطيب والعطر

ونتمني من الله ان يكون الواحد عنده ربع ما عندكم

تقبل مروري

[وليد فتحي]

  في 1‏/3‏/2014 at 08:33, إبراهيم ابوليله said:

 

  في 28‏/2‏/2014 at 19:47, وليد فتحي said:

 

  في 28‏/2‏/2014 at 19:42, إبراهيم ابوليله said:

اخى وليد

اشكرك على المحاوله

ولكن ليس هذا ما اريده

بارك الله فيك

اسف اخي ابراهيم

ولكن هذا ما فهمته من طلبك

 

اخى وليد

يكفينى محاولتك للمساعده

لذلك انتا لا اتقبل منك الاسف

لانه لا اسف بين الاحباب

ونحن نجتمع هنا على المحبه والموده

بارك الله فيك

 

 

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

والله اني لاحبك في الله

[إبراهيم ابوليله]

اخى حماده عمر

طبعا شرف كبير لنا مشاركتك فى الموضوع

ولكن واضح اننى لم استطع توصيل ما اريده اليكم

-----------------------------------------------

ولذلك ساشرح ماريده

بكل بساطه انا لدى فورم

عباره عن زر للطباعه

وليبول

اريد عند فتح الفورم

ان يتم كتابة عدد الصفحات التى سوف يتم طباعتها فى الليبول

--------------------------------------------------------

بمعنى احنا لما بنعمل فيو للملف الى احنا عايزين نطبعه

بنلاقى فيه فى الاسفل

مكتوب

صفحه من 1 الى ؟؟؟؟

انا بقى عايز لما افتح الفورم

يظهر فى الليبول عدد صفحات الطباعه

------------------------------------------------------------

ارجو ان اكون استطعت توصيل ما اريده اليكم

[وليد فتحي]

  في 1‏/3‏/2014 at 14:17, إبراهيم ابوليله said:

اخى حماده عمر

طبعا شرف كبير لنا مشاركتك فى الموضوع

ولكن واضح اننى لم استطع توصيل ما اريده اليكم

-----------------------------------------------

ولذلك ساشرح ماريده

بكل بساطه انا لدى فورم

عباره عن زر للطباعه

وليبول

اريد عند فتح الفورم

ان يتم كتابة عدد الصفحات التى سوف يتم طباعتها فى الليبول

--------------------------------------------------------

بمعنى احنا لما بنعمل فيو للملف الى احنا عايزين نطبعه

بنلاقى فيه فى الاسفل

مكتوب

صفحه من 1 الى ؟؟؟؟

انا بقى عايز لما افتح الفورم

يظهر فى الليبول عدد صفحات الطباعه

------------------------------------------------------------

ارجو ان اكون استطعت توصيل ما اريده اليكم

 

أخي الحبيب ابراهيم

مهو ده تقريبا اللي انا عامله ليه بمشاركتي

بس بيكون مبني على اساس معين الا وهو ايه

انك بتكون بالفعل عامل اعدادت للصفحة

وعارف انت هتطبع بالصفحة الواحده كام صف

وبناء على كده بيتم العد

اتمني المراجعه ويكون ده طلبك

[وليد فتحي]

وده الملف مرة اخرى بعد اضافة كلمة عدد صفحات الطباعة

Book_222.rar

[إبراهيم ابوليله]

اخى وليد

مشكورا على المحاوله

بالفعل انا شوفت ولاحظت العمل ده فى مشاركتك الاولى

وانا لا اريد تحديد عدد السطور

انها اريدها بدون تحديد

لان التحديد ينتج عنه اخطاء

يعنى انت لو عمل فيو للورقات التى سوف يتم طباعتها

هتلاقى عدد الصفح فى الفيو 6

وعدد الصفحات بناء على تحديد عدد الاسطر بيكون5

[أبو حنــــين]

اخي ابراهيم

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

Private Sub UserForm_Initialize()

For i = 1 To Sheet1.PageSetup.Pages.Count
Label1 = i
Next

End Sub

[وليد فتحي]

  في 1‏/3‏/2014 at 17:58, أبو حنين said:

 

اخي ابراهيم

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

Private Sub UserForm_Initialize()

For i = 1 To Sheet1.PageSetup.Pages.Count
Label1 = i
Next

End Sub

 

ماشاء الله عليك اخي ابو حنين

جزاك الله كل خير وزادك من علمه

تقبل مروري

[أبو حنــــين]

اخي وليد فتحي

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

تقبل تحياتي

[إبراهيم ابوليله]

اخى ابو حنين

بالفعل والله انت

من عظماء هذا المنتدى

ودائما ما ننتظر مشاركاتك

لنتعلم منها جميعا

بارك الله فيك

ممكن طلب بسيط ان امكن

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

[أبو حنــــين]

استعمل هذا الكود

Private Sub CommandButton1_Click()

Application.Dialogs(xlDialogPrinterSetup).Show

End Sub
او هذا الكود
Private Sub UserForm_Initialize()
Label1 = Sheet1.PageSetup.Pages.Count
End Sub

تم تعديل مارس 2, 2014 بواسطه أبو حنين

[إبراهيم ابوليله]

اخى ابو حنين

مشكورا على الاهتمام

ولكن كيف اظهر اسماء الطابعه فى كوموبوكس

[إبراهيم ابوليله]

  في 1‏/3‏/2014 at 19:50, إبراهيم ابوليله said:

اخى ابو حنين

مشكورا على الاهتمام

ولكن كيف اظهر اسماء الطابعه فى كوموبوكس

للرفع