Visual Basic 6.0 translation

Tuesday, March 20, 2012

Visual Basic Online Course - Excel 2003 Part 5

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

فى الدرس السابق تعلمنا كيفية استيراد البيانات من الـ 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 " .

2 comments:

  1. naturally like your web-site however you need to
    test the spelling on several of your posts. A number of them are rife with spelling problems
    and I in finding it very troublesome to tell the reality on the other hand I'll definitely come
    again again.

    Feel free to surf to my weblog; BretVBerretta

    ReplyDelete
  2. Really no matter if someone doesn't know then its up to
    other people that they will help, so here it takes place.


    Also visit my blog ... RebbeccaUPencak

    ReplyDelete

visual basic 6 source code says (Hi)

Visual Basic Online Course

vb6 (63) Application Development (45) Visual Basic Online Course (45) Online Visual Basic Course (44) Visual Basic Help (44) Visual Basic Programming (42) IT Jobs (39) VB6 developer (38) Visual Basic Course (38) Visual Basic 6.0 (26) Microsoft Visual Basic 6.0 (25) VB6.0 (24) Visual Basic Programmers (24) vb 6.0 (24) visual basic programming tutorial (19) Third lesson (16) Source code download for Visual Basic 6.0 (14) Source code for Visual Basic 6.0 (10) visual basic tutorial (9) Visual Basic 6 (5) Visual Basic Courses (5) Lesson 3 (4) VB 0.6 - TreeView control (4) VB 0.6 With TreeView Control (4) VB6 Course (3) Create ActiveX (2) How to automate MS-Access from Visual Basic 6.0 (2) Add controls at runtime (1) Back up your Database (1) Change ActiveX icon (1) Change screen resolution (1) Create FTP (1) Crystal Reports 4.6 (1) Crystl32.ocx could not be loaded (1) DataGrid Columns re-size (1) Date Calculation (1) DateAdd Function (1) DateDiff function (1) FTP (1) Marquee Title Bar (1) Marquee VB 6.0 TitleBar (1) Method 'Action' of object 'CrystalCtrl' Failed (1) Microsoft Access with Visual Basic 6.0 (1) OpenSchema method (1) Save File Using CommonDilog (1) Track Database path (1) VB 0.6 - Registry (1) VB 0.6 With Registry Editor (1) VB 6.0 Access (1) VB 6.0 OOP (1) VB6 Access2003 ADO Like % (1) VB6 Add Date (1) VB6 Add Time (1) VB6 Date calculation (1) VB6 Subtract Date (1) Visual Basic Remote (1) Win7 (1) Windows7 (1) ms access networking details (1) remote Visual Basic DB (1) rounded and transparent forms (1) vb 0.6 style (1) vb 6.0 Remote Database (1)