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

المثال سيتضمن العناصر التالية :

عدد 2 زر أمر CommandButton
عدد واحد Common Dialog
عدد control OLE

و يتم رسمهما على النافذة كما فى الشكل التالى :


فى حدث النقر على زر الامر فتح ملف يتم كتابة الكود التالى :

الكود:

Private Sub Command1_Click()
 
      
With CommonDialog1
  
    .DialogTitle = " Seleccionar documento "
    .Filter = "Word|*.doc|" & " Excel|*.xls|"

      
    .ShowOpen
      
    If .FileName = vbNullString Then Exit Sub
      
    Me.Caption = .FileName
      
    OLE1.CreateLink .FileName
      
End With
End Sub


ويمكنك ملاحظة أننا استخدمنا السطر الثالث فى الكود أعلاه لتحديد ملفات الورد و الاكسل فقط .... وعند النقر على زر الامر فتح يتم فتح مربع حوارى لاختيار ملف ورد أو أكسل لفتحة كما فى الشكل التالى :



و لطباعة محتوى الاداة control OLE نقوم بكتابة الكود التالى فى زر الامر طباعة

الكود:

Private Sub Command2_Click()  
OLE1.Object.ActiveSheet.PrintOut Copies:=1, Collate:=True  
End Sub  

اين انت يارجل ؟؟؟؟؟؟؟؟؟؟؟؟؟؟