بن علية حاجي قام بنشر يونيو 16, 2009 مشاركة قام بنشر يونيو 16, 2009 (معدل) السلام عليكم ورحمة الله هذا الكود وضعته لطباعة بطاقات أو كشوفات التلاميذ بتغيير صفحة البداية وصفحة النهاية ثم الضغط على اختصار الطباعة الموضوع على واجهة ورقة إكسيل: Private Sub CommandButton1_Click() Dim i As Integer For i = Range("AC7") To Range("AD7") n Range("AD8") = i If i <= Range("AD7") Then ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True End If Next i Range("AC7").Select End Sub حيث يتم تغيير مضمون الخلية AC8 بقيم الأمر FOR من مضمون الخلية AC7 إلى مضمون الخلية AD7 بتدرج... ومضمون الخلية AC8 (المتغير تصاعديا أو تنازليا) مرتبط بالصفحات التي أريد طبعها هو خلية بحث للدالة VLOOKUP المستعملة لتغيير معلومات البطاقة أو الكشف من قاعدة بيانات معينة... والمطلوب: هل يمكن تغيير مضامين الخليتين AC7 و AD7 وربطها بأرقام الصفحات الموجودة في نافذة الطباعة Gestionnaire d'impression ثم ربط التغيير بالخلية AC8... (أنظر الصورة المرفقة) أرجو أن يكون مطلبي مفهوما... وشكرا مقدما تم تعديل يونيو 16, 2009 بواسطه hben رابط هذا التعليق شارك More sharing options...
بن علية حاجي قام بنشر يونيو 18, 2009 الكاتب مشاركة قام بنشر يونيو 18, 2009 (معدل) السلام عليكم ورحمة الله قراءات كثيرة للموضوع ولا ردود... أريد أن أعرف إذا كان ذلك ممكنا وأنا في الانتظار... على الأقل يكون هناك رد على الموضوع من قبل أهل الاختصاص.... تم تعديل يونيو 18, 2009 بواسطه hben رابط هذا التعليق شارك More sharing options...
بن علية حاجي قام بنشر يوليو 1, 2009 الكاتب مشاركة قام بنشر يوليو 1, 2009 السلام عليكم ورحمة الله أين من ينجدني من هذا المشكل؟؟؟ وأقول إنه مشكل كبير رغم أن الكود يشتغل جيدا إلا أن المشكل هو أنه كلما يتغير العدد يعطي الأمر بالطباعة لكل عدد وهذا يعني أن الطابعة تتلقى عدة أوامر للطباعة وهذا لا يعينها (يستعمل سعة كبيرة من ذاكرتها وفي بعض الأحيان تتعطل أو يحصل أخطاء في الصفحات المطبوعة) ولا يساعدنا لأنه يأخذ منا الوقت الكبير... فرجاء جدوا لي الحل بما هو مطلوب... رابط هذا التعليق شارك More sharing options...
سالم شباني قام بنشر يوليو 1, 2009 مشاركة قام بنشر يوليو 1, 2009 السلام عليكم أخي بن عالية جرب هذا الكود ربما ينفع Sub Macro1() Dim i As Integer (For i = Range("ac7") To Range("ad7" Range("ad8") = i If i <= Range("ad8") Then ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True End If Next i End Sub ملاحظة هذا الكود موجود بالقوائم الخاصة بالرياضة البدنية رابط هذا التعليق شارك More sharing options...
سالم شباني قام بنشر يوليو 1, 2009 مشاركة قام بنشر يوليو 1, 2009 السلام عليكم أستاذ hben نموذج الكشف موجود عندي ولكن فيه بعض المشاكل ( لا يريد حفظ التغييرات ) لو تتكرم تضعه في المنتدى سنصل إلى حل إن شاء الله رابط هذا التعليق شارك More sharing options...
بن علية حاجي قام بنشر يوليو 2, 2009 الكاتب مشاركة قام بنشر يوليو 2, 2009 السلام عليكم ورحمة الله أرفق ملف الكشوف (نموذج) الخاص بالمستوى الثانوي وفيه الكود الذي وضعته للطباعة... والذي أريده من المختصين أو الذين عندهم فكرة هو ربط خلية التغيير (ونجدها مخفية تحت مربع اختصار الطباعة في كل كشف أو نجد عنوانها في كود الطباعة الخاص بالكشف والذي يريد التغيير على الملف الكلمة السرية هي hb سواء في الورقات أو في كود VBA...) بأرقام الصفحات (من .... إلى) التي نجدها في مربع حوار الطباعة (الصورة بالأعلى) وقد شرحت السبب لهذا العمل وأنا دائما في الانتظار.... ___.rar رابط هذا التعليق شارك More sharing options...
سالم شباني قام بنشر يوليو 9, 2009 مشاركة قام بنشر يوليو 9, 2009 (معدل) السلام عليكم أخي بن علية وجمعة مباركة إليك هذا الملف الذي شاركت فيه وهو للأخ أبو العقاب حيث قمت أنت بوضع كود لطباعة كل الشهادات ، بعدها قام الأستاذ أحمد يعقوب بإضافة جديدة للملف وهذا ما كنت تطلبه في ملفك أي الطباعة من رقم إلى رقم بإظهار فورم يمكنك نسخ ما قدمه الأستاذ أحمد يعقوب في ملفك وهذا ليس صعبا عليك أرجو أن توفق في ذلك إليك الملف الذي عدله الأستاذ أحمد يعقوب جزاه الله خيرا ImpressionCertificat_3.rar تم تعديل يوليو 9, 2009 بواسطه سالم شباني رابط هذا التعليق شارك More sharing options...
خالد القدس قام بنشر يناير 14, 2013 مشاركة قام بنشر يناير 14, 2013 السلام عليكم الاستاذ بن علية والاستاذ سالم ليكم شوقة كبيرة بارك الله فيكم رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.