السلام عليكم ورحمة الله وبركاته
الملف بامتداد RTF وهو ملف مكتوب على الـ WordPad
أريد أن تتم طباعته مباشرة بالنقر على مفتاح إختصار أو زر أمر من داخل أكسيس
المهم في الموضوع أن تتم طباعة الملف دون فتحه أو مشاهدة محتوياته
بأدناه كود فتح الملف من داخل أكسيس أرفقه لبيان مسار الملف.
وكما بينت ليس المطلوب فتح الملف ولكن طباعته دون فتحة
Private Sub OpenDrawer_Click()
On Error GoTo Err_OpenDrawer_Click
Dim stAppName As String
stAppName = "C:\Program Files\Windows NT\Accessories\wordpad.exe C:\HTMES6.1\DR.rtf"
Call Shell(stAppName, 1)
Exit_OpenDrawer_Click:
Exit Sub
Err_OpenDrawer_Click:
MsgBox Err.Description
Resume Exit_OpenDrawer_Click
End Sub
تحياتي للجميع
