بن علية حاجي

السلام عليكم ورحمة الله للقيام بذلك يجب أن يكون الملف مقسما إلى قطاعات Sections حسب أماكن العناوين المتغيرة (التي نضيفها بواسطة إعدادات الصقحة) وأن نختار إظهار رأس وتذييل الصفحة من القائمة "عرض Affichage" ثم ننقر على رأس الصفحة (أو ذيل الصفحة) في الصفحة الأولى من أي قطاع من الملف الذي نريد (ويستحسن أن نقوم بذلك بآخر قطاع ثم الذي يسبقه ثم الذي يسبقه وهكذا) فيظهر إطار صغير به خصائص رأس وتذييل الصفحة En-tête et Pied de page وفيه أيقونة ممكّنة (شغالة) خاصة بالأمر "كالسابق Lier au précédent" نضغط عليها ونغير مضمون رأس أو تذييل الصفحة... ونقوم بالشيء نفسه بالقطاعات الأخرى.... أتمنى أن يكون شرحي مفهوما والله أعلى وأعلم

السلام عليكم ورحمة الله أهلا بالإخوة الكرام وأهلا بك أخي وحبيبي سالم وشكرا لتوجيهك لي للمنتدى... منتدى رائع جدا وجميل... لقد ذكرت لك أخي الكريم طريقتين لكتابة الشعر: الطريقة الأولى: استعمال الجداول هي كما قال الإخوة الكرام في إنشاء جدول بسيط من ثلاث أعمدة وسطر واحد فقط (العمودان الأول والثالث يكونان كبيرين ومتقايسين والعمود في الوسط يكون أصغر منهما بكثير قدر ما تريد أن يكون الفاصل بين شطري كل بيت من الشعر) ثم نكتب الأبيات عاديا ونضغط على shift+ enter كل ما ننتهي من الشطر الأول أو الشطر الثاني (ويستحسن كتابة الشطر الأول من كل بيت في العمود الأول إلى آخر القصيدة ثم ننتقل إلى العمود الثالث ونكمل الشطر الثاني من كل بيت حتى نهاية القصيدة) ولا ننسى في النهاية (أو قبل الكتابة) أن نختار تنسيق الكشيدة Justification لكلا العمودين.... الطريقة الثانية: استعمال تنسيق الأعمدة Colonnes نكتب الشطر الأول من كل بيت (الواحد تلو الآخر) ونضغط في كل مرة (عند نهاية كل شطر) على shift + enter حتى نكمل إلى الشطر الأول من آخر بيت ثم نليها بالشطر الثاني من كل بيت (أيضا الواحد تلو الآخر أسفل الكتابة السابقة مباشرة) ولا ننسى أن نضغط على shift + enter في كل مرة إلى الشطر الثاني من آخر بيت. ثم نحدد كل الكتابة ونقوم بتنسيق الكشيدة للكل (justification) ونبقي التحديد (Selection) ثم نذهب إلى أمر "تنسيق" "Format" من قائمة الاختيارات وفيها نختار الأمر "أعمدة" Colonnes ونختار "عمودين" Deux colonnes ... ملاحظة: الطريقة الثانية تعطي بعض الخلل إذا كانت القصيدة طويلة نوعا ما أو كان قد استعمل في الملف خاصية تقسيمه بنمط القطاعات sections... أتمنى أني قد أفدت الجميع بالقليل من المعلومات... والله أعلى وأعلم

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

السلام عليكم ورحمة الله هذا الكود وضعته لطباعة بطاقات أو كشوفات التلاميذ بتغيير صفحة البداية وصفحة النهاية ثم الضغط على اختصار الطباعة الموضوع على واجهة ورقة إكسيل: 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... (أنظر الصورة المرفقة) أرجو أن يكون مطلبي مفهوما... وشكرا مقدما