البحث في الموقع
Showing results for tags 'الطباعه'.
تم العثور علي 2 نتائج
-
السلام عليكم ورحمة الله وبركاته أرجو تظبيط زر طباعه الكل المرفق جزاكم الله خيرا KG1-1.xlsm
-
الساده / أعضاء المنتدى المحترمين السلام عليكم ورحمه الله وبركاته اليكم نموذج عملى _(بالمرفقات)_مع الشرح عن كيف يتم الإستغناء عن صفوف خاليه أثناء الطباعه والنموذج المرفق على فاتورة يمكنكم تطبيقها على أى أمر آخر واليكم الشرح : 1 - يجب معرفة العمود والصف الذى ستبدأ به تدوين البيانات داخل الفاتورة ولنفترض حسب الملف المرفق أنه عمود b صف 8 ( أى الخلية b8) . 2 - يجب معرفة آخر صف يتم تدوين البيانات فيه والخاص بالفاتورة وحسب الملف المرفق هو ( b38) . 3 - نذهب لتعريف اسم الداله كما ذكرتم لكم سابقا 4 - تقوم بالضغط على زر جديد بالنافذة التى ستظهر أمامك 5 - تظهر لك نافذة جديدة تقوم بتعريف الأسم الخاص بالدالة والذى سيرفق بالكود لاحظ ذلك جيدا تشابه الأحرف بشكل تام ويفضل تعريفها باللغة الإنجليزية 6 - تقوم بإختيار النطاق ( مصنف ) من داخل النافذة ايضا الأخيرة 7 - تقوم بكتابة المعادلة ( طبقا للملف المرفق ) هى SUMPRODUCT((sheet2!$B$8:$B$38 <> "") * (sheet2!$B$8:$B$38 <> " "))+8 = 8 - تقوم بالذهاب إلى محرر الأكواد ALT+F11 9 - تقوم بإضافة موديول جديد ( من ادراج تختار موديول ) 10 - تقوم بنسخ ولصق الكود Sub Printing() Rows([Row] & ":38").EntireRow.Hidden = True ActiveWindow.SelectedSheets.PrintPreview 'ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False Rows("8:38").EntireRow.Hidden = False End Sub شرح مبسط للكود قراءة الصفوف من نطاق الاسم الذى قمنا بتعريفه من خلال الداله السابقة الذكر ولاحظ تطابق كلمتين ( ROW) اى صف به بيانات داخل هذا النطاق المعرف من قبل الداله به بيانات احتفظ به واى صف ليس به بيانات قم بإخفائه ثم قم بتفعيل نافذة المعاينه قبل الطباعه وفى حاله تمت الطباعه والحمد لله كما نريد ( قم بإظهار الصفوف المخفية ) 11 - تذهب الى صفحة الفاتورة 12 - تقوم بإدراج أى شكل تختاره وتكتب عليه طباعه 13 - تقوم بالضغط عليه كليك يمين 14 - تختار تعيين ماكرو 15 - تظهر لك نافذة 16 - أختر منها طباعه 17 - ثم موافق تم بحمد الله الشرح والله المستعان وتقبلوا منى وافر الإحترام والتقدير m_elshrief_print.rar
