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