مشكلة الطبع في ملف PDF واحد في هذا التطبيق

[hicham2610]

السلام عليكم

الإخوة الكرام

هذا الملف أعددته وهو يعمل بكفاءة لكن زر الطبع بصيغة PDF

عبر الضغط على صورة الطبع في ورقة:B1

 باختيار نتائج متفرقة تخرج النتائج سليمة (الاختيار Non)

لكن عند اختيار مجتمعة (الاختيار OUI)  تخرج النتائج غير سليمة

كيف أعالج هده المشكلة:

هل المشكلة في الكود أم من إعدادات الملف

وجزاكم الله خيرا

 

GN niv1 v2.xlsm

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

السلام عليكم

تم عمل المطلوب في الملف المرفق... أرجو أني وُفقت في تصحيح الخلل...

بن علية حاجي

GN niv1 v2.xlsm

[hicham2610]

السلام عليكم

بارك الله فيك أستاذ:بن علية حاجي

وأتابك الجنة

جربته الآن فعمل بكفاءة

أين كان الخلل أستاذي الكريم؟

وجزاك الله خيرا

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

السلام عليكم

تم التعديل فقط في الأمر التالي من الكود :

.Range(a).EntireRow.Offset(h * i - h).Copy .[A1].Offset(h * i)

بالأمر التالي :

.Range(a).EntireRow.Offset(h * i - h + 1).Copy .[A1].Offset(h * i)

حيث أن الأمر الأول كان يضيف صفا فارغا بين الصفحة (الكشف) والصفحة التي تليها (الكشف الموالي) فيحدث الخلل...

أرجو أن يكون الشرح واضحا...

بن علية حاجي

[hicham2610]

جزاك الله خيرا وأحسن إليك.

سأجرب وإن بقي الخلل سأتواصل معك بحول الله.

بارك الله فيك وأتابك الجنة.

[hicham2610]

السلام عليكم

أستاذي الكريم

عدلت في الكود ، فقط بالجزئية التي ذكرت لكن النتائج تخرج فارغة في حالة المجتمعة في ملف pdf واحد

تخرج فقط الأولى ممتلئة أما الباقي بها الرقم فقط،

ماسبب هذه المشكلة؟

أرفعه لك لتجربته في حاسبك

جزاك الله خيرا وأحسن إليك

GN niv1 v3.xlsm

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

السلام عليكم

معذرة، هذا سهو مني، قد نسيت أن أنبهك لهذا حيث أني عدّلت أيضا كل المعادلات التي لها علاقة بالشيت TS بتثبيت الخلايا فيها بالعلامة $... مثل المعادلة :

=SI(TS!A5="";"";TS!A5)

وبدلتها بالشكل: 

=SI(TS!$A$5="";"";TS!$A$5)

وقد قمت بذلك في الملف المرفق (الخلايا الملونة بالأصفر -يمكنك إزالة هذا اللون الذي وُضع للشرح فقط-)...

معذرة مرة أخرى...

بن علية حاجي

GN niv1 v3.xlsm

[hicham2610]

لا عليك

أنا من يعتذر لك ، بالفعل فالدولار لتثبيت الخلية

نقصته لأن بسبب تقديم دورة في هذا الملف تخفيفا عن المتابعين و إذا بأهميته القصوى تظهر ,ههههه

جزاك الله خيرا أستاذي الكريم وأتابك الجنة.

السلام عليكم

استاذي الكريم

حدثت لي مشكلة في طبع النتائج بصيغة بدإف في ورقة B2 عند اختيار النتائج مجتمعة أما المتفرقة فلا مشكلة

المجتمعة لا تخرج سليمة بل متلاصقة يمكنك مراقبة الصفحات الوسطى والأخيرة في ملف groupé

غير ت في الكود:ب h

و h+1

و h+2

بدون فائدة

أرفقت لك الملف جزاك الله خيرا

 

GN HICHAM niv1 v4.xlsm

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

السلام عليكم

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

.Range(a).EntireRow.Offset(h * i - h).Copy .[A1].Offset(h * i)

بدلا من الأمر :

.Range(a).EntireRow.Offset(h * i - h + 1).Copy .[A1].Offset(h * i)

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

بن علية حاجي

GN HICHAM niv1 v4.xlsm

[hicham2610]

جزاك الله خيرا وأحسن إليك

وجزى الله خيرا المشرف الذي أظهر الموضوع

ممكن توضيح أكثر ل:استعمال خاصية "التوسيط عبر التحديد"

+ أستاذي الكريم، لم نجح الأمر في B1  ولم ينجح قي B2

وجزاك الله خيرا وأحسن إليك