اذهب الي المحتوي
أوفيسنا

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


إذهب إلى أفضل إجابة Solved by jjafferr,

الردود الموصى بها

السلام عليكم

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

 

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

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

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

رابط هذا التعليق
شارك

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

 

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

 

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

 

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

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

جعفر

  • Like 1
رابط هذا التعليق
شارك

  • أفضل إجابة

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

 

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

 

والكود هو:

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

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

post-142414-0-68790300-1430410372_thumb.

 

 

جعفر

53-Word_Print.zip

  • Like 1
رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information