تعديل على كود طباعة ملف 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

تم تعديل منذ 41 دقائق بواسطه محمد التميمي