إعـــــــلان

**ثامر أبو بلقيس ثامر أبو بلقيس** · 31-05-2015, 12:56 AM

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

أخي عبود مشاكلي معي الطباعة وقفت الكثير من أعمالي لو كانت الطباعة عبارة عن تقارير

لكان الامر سهل باستعمال الفرونت بيج أو ما شابه

المشكل الرئيس هو أن جل أعمالي عبارة عن جداول مدرسية أو جداول مخزونات تعرف بأن الـ grid

يحقق لنا ذلك لكن كيف لي أن أضع لتلك الوثيقة المكونة من جداول علما أن هذه الجداول تزداد صفوفها مع البيانات المدخلة

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

**ثامر أبو بلقيس ثامر أبو بلقيس** · 01-06-2015, 01:55 AM

لن تنشعل بالطلب أستاذ عبود حل المشكل ووجدت طريقة للحل
سريعة و لله الحمد

شكرا جزيلا

**امل الماضي امل الماضي** · 01-06-2015, 05:16 AM

شـكــ وبارك الله فيك ـــرا لك ... لك مني أجمل تحية .

**الهمام الهمام** · 03-06-2015, 03:02 PM

شـكــ وبارك الله فيك ـــرا لك ... لك مني أجمل تحية .

**عبود عبود عبود عبود** · 03-06-2015, 03:13 PM

المشاركة الأصلية بواسطة ثامر أبو بلقيس مشاهدة المشاركة

لن تنشعل بالطلب أستاذ عبود حل المشكل ووجدت طريقة للحل
سريعة و لله الحمد

شكرا جزيلا

أتمنى لك التوفيق أخى الكريم

وجميل جدا لو عرفتها منك " إلى ماذا توصلت "

**ثامر أبو بلقيس ثامر أبو بلقيس** · 03-06-2015, 04:13 PM

المشاركة الأصلية بواسطة عبود عبود مشاهدة المشاركة

أتمنى لك التوفيق أخى الكريم

وجميل جدا لو عرفتها منك " إلى ماذا توصلت "

بطبيعة الحال سأشير للخطوة الأولى
أو الطريق للحل للتعامل مع هكذا حالات

01 - افتح مشروعا جديدا و ضمنه grid لا تستعمل فيه خلايا fixed
وليكن عدد الصفوف 3000 و الأعمدة 10 مقصود هذا العدد الكبير
02 - فعل الاضافة luacom و الاضافة Clipboard
03 - ازرع في زر ما الكود التالي لتعبئة الـ grid

كود PHP:


for i = 1,3000  do

for h = 0 ,10  do

Grid.SetCellText("Grid1", i ,h , i, true);

end

end

04 - ضع زر آخر من خلاله سسننقل محتوى الـ grid إلى الايكسل بسرعة
و لاحظ تركت الايكسل مفتوح للتتم المعاينة و تركت الأسطر العلوية شاغرة
لأنها هي التي ستحمل معلومات و عنوان المطبوع

كود PHP:


Grid.SelectAll("Grid1");

Grid.EditCopy("Grid1");

result = Clipboard.GetText();

----------------------------------------------

 local excel = luacom.CreateObject("Excel.Application")

  excel.Visible = true

  local wb = excel.Workbooks:Add()

  local ws = wb.Worksheets(1)

  Grid.SelectAll("Grid1");

Grid.EditCopy("Grid1");

RangeRef = "A2:j2999"

local BorderList = ws:Range(RangeRef)

BorderList:select();

ws:Paste()

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

---------------------------
كانت هذه هي الخطوة الاولى و يمكنك استنباط الباقي في كيفية الاستغلال

**ثامر أبو بلقيس ثامر أبو بلقيس** · 03-06-2015, 04:41 PM

نسسيت أن أقول جرب كتابة بالعربي في الـ grid ليتم نقلها بدون استغلال الاضافة Clipboard لا أضن يحدث ذلك
بالبليجين luacom لوحده
- بعد نجاح العمل ... تبقى خطوة - لا أريد العمل في مصنف افتراضي بل مصنف عندي و يحفظ ما أرسل له و هو مغلق
و عند أمر الطباعة يطبع الصفحة المرسل لها البيانات
و تتدعيم خلايا الايكسل بتنسسيق شرطي مفاده اذا كانت الخلية غير شاغرة ترسم لها حدود أي رم الجدول تلقائي
---------------
ويبقى التنفيذ و الاستفادة حسب الخبرة في التعامل مع كلا البرنامجين الايكسل و الاوتوبلاي
----
للأمانة عني وجدت في البداية صعوبة ثم حولت كل أعمالي بهذه التقنية + استعمال sql للتخزين و تحقيق
سرعة اضافية

بالتوفيق

**عبود عبود عبود عبود** · 03-06-2015, 06:20 PM

سوف أقوم بالتجربة اليوم إن شاء الله
وأعطى لك رأى فى هذا الخصوص

**ثامر أبو بلقيس ثامر أبو بلقيس** · 03-06-2015, 06:28 PM

نعم بالتوفيق فالغاية مهمة جدا تخيل تصبح أعمالك بالاضافة للطباعة مدعومة بكل
أشكال الإحصائيات و الرسومات و المنحنيات البيانية و ووو .... ستضاف للأوتوبلاي متعة برمجية منقطعة النظير
موفق

**عبود عبود عبود عبود** · 03-06-2015, 08:41 PM

تمت التجربة ويتم نسخ المحتويات فى الأكسيل
ولكن ما كنت تقصده كان الطباعة فكيف تتم هذه العمليه ؟

**عبود عبود عبود عبود** · 03-06-2015, 08:45 PM

أيضا اللغة العربية لم يتم نسخها إلى الأكسيل

**ثامر أبو بلقيس ثامر أبو بلقيس** · 03-06-2015, 08:49 PM

باستغلال File.Print فقط يتم طباعة الورقة المستقبلة للبيانات
و المحددة في الجزئية local ws = wb.Worksheets(1)

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

**ثامر أبو بلقيس ثامر أبو بلقيس** · 03-06-2015, 08:51 PM

أيضا اللغة العربية لم يتم نسخها إلى الأكسيل

لكن عندي تعمل عادي جدا

**ثامر أبو بلقيس ثامر أبو بلقيس** · 03-06-2015, 08:52 PM

ساحاول رفع ملف مرئي

**عبود عبود عبود عبود** · 03-06-2015, 08:56 PM

فى الإنتظار فى أى وقت
تحياتى

إعـــــــلان

إستضافة برنامج وعرضة داخل التطبيق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

مواضيع تهمك