طباعة ملف بي دي اف مباشرة من الاكسس دون الحاجة لفتحة

[Mhd304]

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

اللي عنده مساعدة يكرمنا الله يوفقكم جميعا

 

تحياتي

 

[ناقل]

4 ساعات مضت, Mhd304 said:

اريد ان اطبعا ملف pdf مباشرة من الاكسس ، عن انه الملف موجود في مربع نص

جرب هذا الكود ربما يفي بالمطلوب 

Sub PrintPDF()

    Dim AcroRd32ExePath As String
    Dim PDFFilePath As String
    Dim cmd As String

    ' تحديد مسار تطبيق Adobe Acrobat Reader
    AcroRd32ExePath = "C:\Program Files (x86)\Adobe\Acrobat Reader DC\Reader\AcroRd32.exe"

    ' تحديد مسار الملف PDF الذي تريد طباعته
    ' هنا نأخذ القيمة من مربع النص TextBox1
    PDFFilePath = TextBox1.Value

    ' إنشاء الأمر الذي سيتم تنفيذه
    cmd = AcroRd32ExePath & " /n /t " & PDFFilePath

    ' تنفيذ الأمر
    Shell cmd, vbHide

End Sub