Visual Basic Online Course - Excel 2003 Part 5

بسم الله الرحمن الرحيم

VB6 Excel


فى الدرس السابق تعلمنا كيفية استيراد البيانات من الـ Excel.
درس اليوم ان شاء الله تعالى يتناول كيفية طباعة الإكسل .
الجـــــــــزء الخامس - طباعة الإكسل

و لطباعة محتويات ملف Excel يجب ان نقوم :
1) تحديد مكانه
2) فتحه
3) تعيين الـ Sheet المراد طباعته
4) تحديد المدى Range المراد طباعته
5) تنفيذ عملية الطباعه

و بالتطبيق على المثال السابق "حساب فاتورة" نضيف الى الفورم مفتاح بعنوان "طباعة فاتورة" باسم Command3 و المطلوب هو طباعة الفاتورة الحاليه و يوجد طريقتين :
أ) تحديد الطباعه من الإكسل نفسه
ب) تحديد الطباعه من الفيجوال بيزك
و سنعتمد الطريقه الأولى الأن حيث سنفتح ملف الإكسل و سنحدد الفاتورة بالكامل و من File نختار Print Area ثم Set Print Area ثم نغلق الإكسل و نحفظ التغييرات .

نفتح الـ VB 6.0 و فى الحدث Command3_Click نكتب الكود التالى :
oXL.Workbooks.Open App.Path & "/ExcelFile.Xls", True, True
Set oSheet = oXL.ActiveSheet
oXL.DisplayAlerts = False
oSheet.PageSetup.Orientation = xlLandscape
oSheet.PrintOut
حيث فى الكود السابق :
- قمنا بفتح ملف الإكسل من مكانه المحدد و عمل Update Links و فتحه للقراءة فقط ReadOnly لأننا سنطبع فقط
- تحديد الـ Sheet الذى نعمل عليه oSheet
- اخفاء رسائل الـ Excel
- جعل شكل الطباعه LandScape بالعرض و ليس Portrait بالطول
- أمر الطباعه .

لاحظ :
اذا لم يكن لديك Printer سيقوم البرنامج تلقائيا بالطباعه فى ملف mdi يمكنك استعراض شكل الطباعه منه .

- بالنسبه للطريقة الثانيه و هى تنسيق ملف الـ Excel من داخل الفيجوال بيزك ففى درس قادم ان شاء الله بعد الانتهاء من الأساسيات المطلوب معرفتها للتعامل مع Excel بدون مشاكل .

- يمكنك ادراج جميع التنسيقات على ملف الاكسيل من داخل الـ Excel نفسه و طباعتها من الفيجوال بيزك و هى الطريقه الاسهل الا اذا كان التنسيق جزء من عمل البرنامج و فى جميع الحالات سندرس الطريقه الثانيه ان شاء الله .

- جارى تجهيز برنامج به جميع تطبيقات الاكسيل المطلوبه فى سوق العمل .

الى اللقاء فى الدرس القادم ان شاء الله بعنوان "بعض الموضوعات الهامه فى التعامل مع الـ Excel من خلال الـ Visual Basic 6.0 " .

VB6 Popular Posts

VB 0.6 TreeView Control lesson Part3

vb6 ms-access 2003 design phonebook 2

Free download Visual Basic 6 Documentation MSDN