medreg
عدد الرسائل : 3 نقاط : 55041 تقييم الاعضاء لك : 10 تاريخ التسجيل : 31/08/2009
| موضوع: كيف يمكنني تغيير هوامش الطباعة بحيث تختلف من سجل لأخر الأحد أكتوبر 18, 2009 1:27 am | |
| السلام عليكم ورحمة الله تعالى وبركاته اريد كود لتغيير هوامش الطباعة برمجيا بحيث تختلف هوامش الطباعة من سجل لأخر يعني اذا كانت قيمة السجل تساوي 1 تكون هوامش الصفحة 1.5 سم يمين و1.0 سم يسار وإذا كانت قيمة السجل تساوي 2 تكون هوامش الصفحة 1.0 سم يمين و1.5سم يسار هذا ما اردت توضيحه فكيف لي فعل ذلك علما بانني اعمل على نسخة الدلفي7 وQuickreport | |
|
ouali مدير منتدى المسيلة
الجزائر : عدد الرسائل : 2373 تاريخ الميلاد : 24/12/1982 العمر : 41 الموقع : http://msila.sd.ma المزاج : الحمد لله الدولة : الجزائر نقاط : 67044 تقييم الاعضاء لك : 56 تاريخ التسجيل : 30/08/2007
| موضوع: رد: كيف يمكنني تغيير هوامش الطباعة بحيث تختلف من سجل لأخر الأحد أكتوبر 18, 2009 3:00 pm | |
| - اقتباس :
- Dim PMarginPages As String
PMarginPages = "-1-2-" ' اكتب أي صفحات تريد أن تطبق عليها أمراً ما مع وضع أرقام الصفحات بين شرطتين مثل -1-
If InStr(1, PMarginPages, CStr(Me.Page)) > 0 Then
' اكتب هنا الأوامر التي تريد تنفيذها على هذه الصفحة فقط
' مثل عرض رسالة معينة
MsgBox "صفحة ذات إعداد خاص"
Me.Section(3).Height = 10000 | |
|
medreg
عدد الرسائل : 3 نقاط : 55041 تقييم الاعضاء لك : 10 تاريخ التسجيل : 31/08/2009
| موضوع: رد: كيف يمكنني تغيير هوامش الطباعة بحيث تختلف من سجل لأخر الأحد أكتوبر 18, 2009 9:54 pm | |
| مشكور أخي ouali على الرد كما اشكرك على هذه المعلومة لكن مع كل اسف لم افهم ماذا تقصد بهذه المعلومة ارجو التوضيح اكثر بكتابة الكود كامل او ارفاق مثال ان لم يكن هناك إحراج من فضلك لأنني بحاجة الى هذا الكود وجزاكم الله عنا كل خير | |
|