كود طابعة باستعمال نافذة الطباعة

[بن علية حاجي]

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

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

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

[بن علية حاجي]

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

قراءات كثيرة للموضوع ولا ردود... أريد أن أعرف إذا كان ذلك ممكنا وأنا في الانتظار... على الأقل يكون هناك رد على الموضوع من قبل أهل الاختصاص....

تم تعديل يونيو 18, 2009 بواسطه hben

[بن علية حاجي]

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

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

فرجاء جدوا لي الحل بما هو مطلوب...

[سالم شباني]

السلام عليكم أخي بن عالية

جرب هذا الكود ربما ينفع

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

ملاحظة هذا الكود موجود بالقوائم الخاصة بالرياضة البدنية

[سالم شباني]

السلام عليكم أستاذ hben

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

لو تتكرم تضعه في المنتدى سنصل إلى حل إن شاء الله

[بن علية حاجي]

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

أرفق ملف الكشوف (نموذج) الخاص بالمستوى الثانوي وفيه الكود الذي وضعته للطباعة... والذي أريده من المختصين أو الذين عندهم فكرة هو ربط خلية التغيير (ونجدها مخفية تحت مربع اختصار الطباعة في كل كشف أو نجد عنوانها في كود الطباعة الخاص بالكشف والذي يريد التغيير على الملف الكلمة السرية هي hb سواء في الورقات أو في كود VBA...) بأرقام الصفحات (من .... إلى) التي نجدها في مربع حوار الطباعة (الصورة بالأعلى) وقد شرحت السبب لهذا العمل وأنا دائما في الانتظار....

___.rar

[سالم شباني]

السلام عليكم أخي بن علية وجمعة مباركة

إليك هذا الملف الذي شاركت فيه وهو للأخ أبو العقاب

حيث قمت أنت بوضع كود لطباعة كل الشهادات ، بعدها قام الأستاذ أحمد يعقوب بإضافة جديدة للملف

وهذا ما كنت تطلبه في ملفك أي الطباعة من رقم إلى رقم بإظهار فورم

يمكنك نسخ ما قدمه الأستاذ أحمد يعقوب في ملفك وهذا ليس صعبا عليك

أرجو أن توفق في ذلك

إليك الملف الذي عدله الأستاذ أحمد يعقوب جزاه الله خيرا

ImpressionCertificat_3.rar

تم تعديل يوليو 9, 2009 بواسطه سالم شباني

[خالد القدس]

السلام عليكم

الاستاذ بن علية

والاستاذ سالم

ليكم شوقة كبيرة

بارك الله فيكم