اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

مساعده في طباعة فاتورة بيع


enterco

الردود الموصى بها

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

Enterco1.rar

enterco.rar

رابط هذا التعليق
شارك

أخى الكريم

مرفق لكم الملف على حسب فهمى من الصورة المرفقة من قبلكم

وهو أنكم ترغبون فى حذف الصفوف الخاليه من البيانات

 

(( ملحوظة هامه ))

الملف المرفق به معادله مرتبطه بالعمود B فى حال بداخلها بيانات أم لا 

بمعنى طالما أى صف بالعمود B  به بيانات سيتم ادراجه بالطباعه 

ان لم يم يكن به بيانات سيتم حذف الصف تلقائيا 

 

الملف معمول بالمعادلات وبالأكواد 

جرب الملف المرفق وأعلمنى بالنتيجه

نسأل الله أن يكون هو المطلوب

 

وتقبل منى وافر الإحترام والتقدير

 

m_elshrief_print.rar

  • Like 1
رابط هذا التعليق
شارك

أخى الكريم

الكود كل وظيفته هو عندما تضغط على زر طباعه يقوم بتفعيل المعادلة الموجوده طبقا لما هو وارد بالمعادله وإظهار معاينه قبل الطباعه

والمعادلة تجدها فى معرف الأسماء

تحت اسم (( row )) 

فبالمعادله + الكود تم العمل المطلوب

تحديد النطاق من (( b8:b38 )) إذا كان هناك أية بيانات فى هذا النطاق احتفظ بالصف وإن لم يكن هناك أية بيانات قم بإلغاؤه اثناء الطباعه 

الكود تجده فى محرر الأكواد لديك بـ sheet 2 

وهو كود بسيط وليس معقد فعندما تقرأه بتأنى ستفهم دلالته

وأى شىء آخر تريد الإستفسار عنه فالعبد لله تحت أمرك

وتقبل منى وافر الإحترام والتقدير

  • Like 1
رابط هذا التعليق
شارك

أخى الكريم

المعادله هى تسمية لنطاق 

أى تجدها فى معرف الأسماء

فهى لا تكتب بالخلايا

إن كنت تستخدم أوفيس 2007 إفتح قائمة صيغ وإضغط على اداره الاسماء

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

أما بأوفيس 2003 على ما أعتقد تجدها فى قائمة ادراج 

  • Like 1
رابط هذا التعليق
شارك

انا عندي office 2007 ووجدت المعادله بس ممكن تقولي الخطوات لاني عملتها ومفيش نتيجه انا ذهبت لمدير الاسماء وعملت الداله وبعد كده عملت اضافة زر ثم اخد كوبي من الكود ووضعته في الماكرو ولكن اسم الزرار مختلف واسم الماكرو كذلك فلو سمحت الخطوات بالترتيب

رابط هذا التعليق
شارك

أخى الكريم 

سأحاول أن أشرح لكم الخطوات ولكنى لست جيدا فى الشرح 

1 - يجب معرفة العمود والصف الذى ستبدأ به تدوين البيانات داخل الفاتورة ولنفترض حسب الملف المرفق أنه عمود b صف 8 ( أى الخلية b8) .

2 - يجب معرفة آخر صف يتم تدوين البيانات فيه والخاص بالفاتورة وحسب الملف المرفق هو ( b38) .

3 - نذهب لتعريف اسم الداله كما ذكرتم لكم سابقا 

4 - تقوم بالضغط على زر جديد بالنافذة التى ستظهر أمامك 

5 - تظهر لك نافذة جديدة تقوم بتعريف الأسم الخاص بالدالة والذى سيرفق بالكود لاحظ ذلك جيدا تشابه الأحرف بشكل تام ويفضل تعريفها باللغة الإنجليزية 

6 - تقوم بإختيار النطاق ( مصنف ) من داخل النافذة ايضا الأخيرة

7 - تقوم بكتابة المعادلة ( طبقا للملف المرفق سابقا ) هى 

      SUMPRODUCT((sheet2!$B$8:$B$38 <> "") * (sheet2!$B$8:$B$38 <> " "))+8 

8 - طبعا قبل كتابة المعادلة تكتب =

9 - تقوم بالذهاب إلى محرر الأكواد ALT+F11

10 - تقوم بإضافة موديول جديد ( من ادراج تختار موديول )

11 - تقوم بنسخ ولصق الكود

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)

اى صف به بيانات داخل هذا النطاق المعرف من قبل الداله به بيانات احتفظ به 

واى صف ليس به بيانات قم بإخفائه 

ثم قم بتفعيل نافذة المعاينه قبل الطباعه 

وفى حاله تمت الطباعه والحمد لله كما نريد ( قم بإظهار الصفوف المخفية )

12 - تذهب الى صفحة الفاتورة  

13 - تقوم بإدراج أى شكل تختاره وتكتب عليه طباعه 

14 - تقوم بالضغط عليه كليك يمين

15 - تختار تعيين ماكرو

16 - تظهر لك نافذة 

17 - أختر منها طباعه 

18 - موافق

تم بحمد الله الشرح والله المستعان

وتقبلوا منى وافر الإحترام والتقدير

  • Like 1
رابط هذا التعليق
شارك

أخى فى الله

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

بارك الله فيكم على مروركم الكريم 

وجزاكم الله عنى خير الجزاء

ونحمد الله على النتيجة

وتقبل منى وافر الإحترام والتقدير

رابط هذا التعليق
شارك

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

 

جزاكم الله خيرا على المعادلات والاكواد الرائعه والشرح

 

جارى المدارسة والاستفسار بإذن الله

رابط هذا التعليق
شارك

الأخ الفاضل/ محمود_الشريف

حل ممتاز - وشرح وافي ومفصل

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

تقبل تحياتي

أخى فى الله

الأستاذ القدير / حماده باشا

بارك الله فيكم

وجزاكم رب العالمين عنى خير الجزاء

وتقبلوا منى وافر الإحترام والتقدير

رابط هذا التعليق
شارك

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

 

جزاكم الله خيرا على المعادلات والاكواد الرائعه والشرح

 

جارى المدارسة والاستفسار بإذن الله

أخى فى الله

الأستاذ  / إسلام الشيمى

بارك الله فيكم

وتقبلوا منى وافر الإحترام والتقدير

رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information