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

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

قام بنشر

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

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

أرجو مساعدتي بارك الله فيكم قدر الإمكان لأن هذا الأمر ضروري جدا .

قام بنشر

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

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

ملاحظة1

((في الموضوع في الرابط اعلاه ممكن تستخدمه حسب رغبتك يعني اذا اردت طباعة الصفحة من 3 الى 30 فما عليك الا ان تجعل قيمة الخلية L1 في جميع الاوراق المطلوب اكبر من صفر تم تضغط زر امر الطباعة))

ملاحظة2

((اذا التبس عليك اي شي انا وجميع الاخوة في هذا الصرح العظيم حاضرين للخدمة))

ابواحمد

قام بنشر

أشكرك أخي الحبيب على الرد ولكن لم استفد من الرابط

لقد اضفت بعض التعديلات على طلبي وكل ما أريده الكود فقط . اتمنى المساعدة بارك الله فيكم .

Book1.rar

قام بنشر

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

أخي الكريم، إليك بالكود التالي الذي يجب وضعه في زر "إطبع" من اليوزر فورم...

Private Sub CommandButton1_Click()

Dim I As Integer, J As Integer

x = TextBox1.Value

y = TextBox2.Value

For I = x To y

If I <= y Then

Sheets("ورقة" & I).PrintOut Copies:=1, Collate:=True

End If

Next

End Sub

أنظر الملف المرفق.... Book1.rar

أخوك بن علية

قام بنشر

حفظك الله أخي بن علية وجزاك الله ألف خير

هناك ملاحظة بسييطة وهي : الأوراق لدي مسماها أرقام فقط يعني 1و2 و3 و4 .. الخ . والمثال الذي ارفقته مسمى الأوراق هي ورقة1 ورقة2 ورقة 3 وهكذا .

ياليت تغير الكود بحيث يقبل مسمى الأوراق أرقام وليس ورقة . وإليك المثال

طلب ثاني إذا أمكن . هل بالإمكان تثبيت الطباعة بحيث تبدأ من الصفحة الثانية يعني من ( 2 )إلى (العدد المراد طباعته )ثابت رقم 2 في واجهة النموذج لأن الورقة الأولى أسماء إذا لم تستطع فليس مهم .

Book2.rar

قام بنشر

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

حرية ديمفراطية عدالة اجتماعية تحيا مصر

شكرا للك اخى دغيدى وانت ابن علية

ولكن لى ملحوظة وهى ان التسلسل يكون ثابت ولكن عندما اذهب للكشق رقم اثنين اجد التسلسل متغير

اريد ان يكون التسلسل ثابت فى كل كشف

قام بنشر

طيب ممكن تعدل في الكود بحيث يمحو جميع البيانات الموجودة في جميع الأوراق مع إمكانية تحديد الخلايا .

معليش أتعبناك معانا

  • 1 month later...
قام بنشر

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

عفوا لطلبى هذا ولكن هل ممكن كود الطباعة ان يقوم بطباعة الورقة المراد طباعتها من نسختين عند الضغط مرة واحدة على الزر (أى اصل والاخرى تطبع وعليها عبارة صورة بالعربى او Copy بالانجليزى)

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.

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

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

Important Information