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 " .

تابعونا

---

♥ Visual Basic 6.0 Course Online :

• Automate MS-Access Database in Visual Basic 6.0 though a network
• Visual Basic 6.0 Analog Clock
• Visual Basic 6.0 Temperature Convertor
• Visual Basic 6.0, MS-Access 2003 and Crystal Reports - Phone book
• Visual Basic 6.0, MS-Access 2003 Database and DataGridView
• Visual Basic 6.0  FTP full application source code
• Visual Basic 6.0 Color Picker tool source code
• Visual Basic 6.0 TreeView Control lesson (Part1 - Part 2 - Part3 - Part4 - Part5) Arabic.
• Visual Basic 6.0 - Introduction to Graphics (Part1 - Part2 - Part3)  
• Visual Basic 6.0 and MS-Excel 2003 tutorials (Part1 - Part2 - Part3 - Part4 - Part5 - Part6)
• vb6 MSDN CD1 CD2 full free download