زر أمر لتشغيل ملف exe

[محمــد علــي]

السلام عليكم

موضوع بسيط و صغير اريد مساعدتكم

عند الضغط على زر يقوم بتشغيل ملف exe

والزر الثاني يقوم بطباعة ملف ورد

وشكرا للجميع

db.rar

[محمــد علــي]

للرفع

[محمد سلامة]

اخي الكريم

استخدام الدالة shell

فهي تفتح لك اي شئ بصيغة exe

[محمــد علــي]

السلام عليكم

أخ soft.sample هل من مثال صغير عن هذه الدالة ؟؟

[jjafferr]

تفضل 

 

شئ قديم من مكتبتي ، بتعديل للمطلوب 

 

 

 

جعفر

53-Word_Print.zip

[محمــد علــي]

السلام عليكم

أخي الكريم jjafferr أشكرك على تفاعلك واجابتك و مثالك

 

لكن كيف استطيع ان اطبع الملف دون تحديد مساره في مربع نص
اي عند الضغط على الزر مباشرة يطبع ملف ورد

ونفس الفكرة لزر آخر عند الضغط عليه مباشرة يقوم بتشغيل ملف التنفيذي exe
???

وجزاكم الله عني كل خيــر

[jjafferr]

وعليكم السلام 

 

انا عملت مربع النص ، وطريقة جلب اسم الملف ، فقط لتسهيل العمل ،

 

انا افهم من سؤالك بأنك تريد ان توضع اسم ومسار الملف في الكود مباشرة (وإلا كيف نعرف اي ملف نشتغل علي!!)

 

هذا هو الكود للطباعة:

Private Sub cmdPrintLandscape_Click()

    
       Dim objWord As Object
 
        Set objWord = CreateObject("Word.Application")
        objWord.Documents.Open ("C:\Temp\abc.doc")
        objWord.Visible = False 'True
                                                      
                                                      '<== ** Look at the code below

       
        objWord.PrintOut

    ' wait for the printout to finish, then close Word
    Do While objWord.BackgroundPrintingStatus > 0
           
    'pause 5 seconds untill the document is printed
    PauseTime = 5    ' Set duration.
    Start = Timer    ' Set start time.
    Do While Timer < Start + PauseTime
        DoEvents    ' Yield to other processes.
    Loop

    Loop

        objWord.Documents.Close Save = False
        objWord.Quit
        Set objWord = Nothing

End Sub

وتشغيل برنامج exe

Private Sub cmd_run_Click()
On Error Resume Next

    Shell "C:\windows\Notepad.exe", 1
End Sub

جعفر

[bondoke]

اخي الكريم ممكن نعمل كده مع ملف اكسيس ياريت تعدل الاكواد وارفاق المثال مرة اخرة 

مع الشكر

[jjafferr]

وعليكم السلام

 

لو كنت مخبرنا من البداية قصدك ، كنا اعطيناك الحل من البداية 

 

والكود هو:

    myApp = Me.txtOpenFile
    'myApp = "F:\Temp\myDatabase.mdb"
    'Shell myApp, 1
    Application.FollowHyperlink myApp

اما مربع النص ، فيمكنك ان تكتب فيه المسار يدويا كذلك ، مع اني اضفت امكانية فتح ملفات الاكسس كذلك.

 

 

جعفر

53-Word_Print.zip

[محمد سلامة]

   

 

شكرا لاستاذ جعفر

وهفضل الف وراك وين ما تكون اشكررررررك

[jjafferr]

حياك الله أخوي محمد 

وجزاك الله من فضل رحمته 

 

جعفر