مثال بسيط لكيفية استخدام الاداة OLE فى فتح ملفات Word & Excel و طباعتهما

استعرض الموضوع السابق استعرض الموضوع التالي اذهب الى الأسفل

مثال بسيط لكيفية استخدام الاداة OLE فى فتح ملفات Word & Excel و طباعتهما

مُساهمة من طرف end.sub في السبت فبراير 15, 2014 12:49 pm

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

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

عدد 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  

end.sub
.....
.....

تاريخ التسجيل : 15/08/2013
المساهمات : 70
النقاط : 131
التقيم : 9
الدولة : مصر
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

استعرض الموضوع السابق استعرض الموضوع التالي الرجوع الى أعلى الصفحة


 
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى