تعديل على كود طباعة ملف PDF

[محمد التميمي]

السلام عليكم

لدي كود لطباعة ملف pdf مع موديول شغال ولكن بعد تنفيذ امر الطباعة يفتح برنامج الـ  pdf  ولا يغلقه

ممكن لوسمحتم تعديل بسيط على الكود ليتم طباعة ملف PDF دون فتحه 

مع فائق الشكر والاحترام

الكود ادناه

Private Sub Comannd187_Click()
Dim strFilePath As String
Dim strFileName As String
strFileName = "66.PDF"
strFilePath = "D:\Pictures\NEW\" & strFileName
If Dir(strFilePath) > "" Then
PrintFile (strFilePath)
Else
Beep
MsgBox "لا توجد مرفقات يمكن طباعتها"
End If
End Sub

 

[kkhalifa1960]

 تفضل استاذ @محمد التميمي .

Private Sub Comannd187_Click()
    Dim strFilePath As String
    Dim strFileName As String
    strFileName = "66.PDF"
    strFilePath = "D:\Pictures\NEW\" & strFileName
    
    If Dir(strFilePath) <> "" Then
        ' استدعاء أداة سطر الأوامر للطباعة
        Dim strPrinterCommand As String
        strPrinterCommand = """C:\Program Files\SumatraPDF\SumatraPDF.exe"" -print-to-default """ & strFilePath & """"
        
        ' تنفيذ الأمر للطباعة
        Call Shell(strPrinterCommand, vbHide)
    Else
        Beep
        MsgBox "لا توجد مرفقات يمكن طباعتها"
    End If
End Sub

 

[Foksh]

مشاركة مع الاستاذ @kkhalifa1960

جرب الكود التالي من احد ملفاتي ..

 

Private Sub Comannd187_Click()
    Dim strFilePath As String
    Dim strFileName As String
    Dim strCommand As String
    strFileName = "66.PDF"
    strFilePath = "D:\Pictures\NEW\" & strFileName
    If Dir(strFilePath) > "" Then
         strCommand = "print """ & strFilePath & """"
        Shell strCommand, vbHide
    Else
        MsgBox "لا توجد مرفقات يمكن طباعتها"
    End If
End Sub

 

[محمد التميمي]

13 ساعات مضت, kkhalifa1960 said:

 تفضل استاذ @محمد التميمي .

Private Sub Comannd187_Click()
    Dim strFilePath As String
    Dim strFileName As String
    strFileName = "66.PDF"
    strFilePath = "D:\Pictures\NEW\" & strFileName
    
    If Dir(strFilePath) <> "" Then
        ' استدعاء أداة سطر الأوامر للطباعة
        Dim strPrinterCommand As String
        strPrinterCommand = """C:\Program Files\SumatraPDF\SumatraPDF.exe"" -print-to-default """ & strFilePath & """"
        
        ' تنفيذ الأمر للطباعة
        Call Shell(strPrinterCommand, vbHide)
    Else
        Beep
        MsgBox "لا توجد مرفقات يمكن طباعتها"
    End If
End Sub

 

 

11 ساعات مضت, Foksh said:

مشاركة مع الاستاذ @kkhalifa1960

جرب الكود التالي من احد ملفاتي ..

 

Private Sub Comannd187_Click()
    Dim strFilePath As String
    Dim strFileName As String
    Dim strCommand As String
    strFileName = "66.PDF"
    strFilePath = "D:\Pictures\NEW\" & strFileName
    If Dir(strFilePath) > "" Then
         strCommand = "print """ & strFilePath & """"
        Shell strCommand, vbHide
    Else
        MsgBox "لا توجد مرفقات يمكن طباعتها"
    End If
End Sub

 

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

اساتذتي الافاضل اتعبتكم معي وبارك الله بجهودكم الاكواد لا تعمل  مع فائق احترامي....

اُواكد على الطلب (طباعة ملف PDF دون فتحه) مع فائق الشكر والتقدير للتفاعل والرد..

PDF.accdb

تم تعديل يناير 18 بواسطه محمد التميمي

[Foksh]

حسناً ، جرب هذه الفكرة الثانية ..

ولكني أنصحك بأن أفضل فكرة هي وجود برنامج يستعرض ملفات الـ PDF 

 

Private Sub Command44_Click()
    Dim strFilePath As String
    Dim strFileName As String
    Dim objShell As Object
    
    strFileName = "iPhone.pdf"
    strFilePath = "C:\Users\Golden\Desktop\" & strFileName
    
    If Dir(strFilePath) > "" Then
        Set objShell = CreateObject("WScript.Shell")
        objShell.Run "RUNDLL32 PRINTUI.DLL,PrintUIEntry /k /n ""Default Windows Printer"" """ & strFilePath & """", 1, True
        Set objShell = Nothing
    Else
        MsgBox "لايوجد مرفقات يمكن طباعتها"
    End If
End Sub

 

طبعاً في السطر :-

objShell.Run "RUNDLL32 PRINTUI.DLL,PrintUIEntry /k /n ""Default Windows Printer"" """ & strFilePath & """", 1, True

سيكون الأمر عند الطباعة ليس بالشكل الصامت ، ولكن للتجربة ، استبدل الرقم 1 في نهاية الكود ، بالرقم 0

تم تعديل يناير 18 بواسطه Foksh

[محمد التميمي]

3 ساعات مضت, Foksh said:

حسناً ، جرب هذه الفكرة الثانية ..

ولكني أنصحك بأن أفضل فكرة هي وجود برنامج يستعرض ملفات الـ PDF 

 

Private Sub Command44_Click()
    Dim strFilePath As String
    Dim strFileName As String
    Dim objShell As Object
    
    strFileName = "iPhone.pdf"
    strFilePath = "C:\Users\Golden\Desktop\" & strFileName
    
    If Dir(strFilePath) > "" Then
        Set objShell = CreateObject("WScript.Shell")
        objShell.Run "RUNDLL32 PRINTUI.DLL,PrintUIEntry /k /n ""Default Windows Printer"" """ & strFilePath & """", 1, True
        Set objShell = Nothing
    Else
        MsgBox "لايوجد مرفقات يمكن طباعتها"
    End If
End Sub

 

طبعاً في السطر :-

objShell.Run "RUNDLL32 PRINTUI.DLL,PrintUIEntry /k /n ""Default Windows Printer"" """ & strFilePath & """", 1, True

سيكون الأمير عند الطباعة ليس بالشكل الصامت ، ولكن للتجربة ، استبدل الرقم 1 في نهاية الكود ، بالرقم 0

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

اخي الكريم ايظا الكود لا يعمل..

ولكني ساخذ بنصيحتك وارجع الى الكود الاول لدي يطبع مع فتح استعراض برنامج  PDF للملف....

لاضير في ذلك مع الشكر الجزيل