إجمالي مرات مشاهدة الصفحة

الجمعة، 28 أكتوبر 2016

أداة التحكم RefEdit لتحديد نطاق وكيفية استخدامها على الفورم Print Preview Using RefEdit Control

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

أقدم لكم كيفية استخدام أداة التحكم RefEdit وكيفية استخدامها على الفورم ، وكيفية استغلالها للمعاينة أو الطباعة على سبيل المثال




قم بإدراج فورم من قائمة Insert في محرر الأكواد ، ثم طبق الخطوات التالية كما في الصورة ، حيث يتم إدراج الأداة المسماة RefEdit1 ، وأيضاً إدراج زري أمر CommanButton1 و CommandButton2 أحدهما للمعاينة والآخر للطباعة

وأخيراً ضع الكود التالي في حدث الفورم (كليك يمين على الفورم من نافذة المشروع ثم اختر View Code)

Private Sub CommandButton1_Click()
    'تعريف المتغير من النوع نطاق
    Dim Rng As Range
    
    'إذا كانت قيمة الأداة فارغة يتم الخروج من الإجراء الفرعي تجنباً للخطأ
    If RefEdit1.Value = "" Then MsgBox "Cancelled", vbExclamation: Exit Sub
    
    '[RefEdit1] تعيين قيمة للنطاق ليساوي قيمة الأداة المسماة
    'حيث أن قيمة هذه الأداة تكون عبارة عن عنوان النطاق المحدد
    Set Rng = Range(RefEdit1.Value)
    
    'جملة للخروج من الفورم
    Unload Me
    
    'طباعة النطاق
    Rng.PrintOut
End Sub

Private Sub CommandButton2_Click()
    Dim Rng As Range
    
    If RefEdit1.Value = "" Then MsgBox "Cancelled", vbExclamation: Exit Sub
    Set Rng = Range(RefEdit1.Value)
    Unload Me
    
    'معاينة النطاق
    Rng.PrintPreview
End Sub


إعداد / ياسر خليل أبو البراء

هناك 4 تعليقات:

  1. بارك الله فيك وجعلك سببا لمن اهتدى بنور العلم والمعرفة

    ردحذف
  2. جزاك الله خيراً أخي الفاضل سيد ربيع ومشكور على مرورك العطر بالمدونة

    ردحذف
  3. بارك الله فيك وجزاك الله خيراً أخي الكريم

    ردحذف