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

[samiali4]

السلام عليكم

يوجد جدول اسمه ( جدول طباعة مرفقات )
وعملت الكود ده لطباعة عدة ملفات او صور من جدول يحتوي على مسارات الملفات المطلوب طباعتها 
لكن بيظهر رسالة الخطأ المرفقة
ارجو الافادة من اهل الخبرة او لو فيه كود اخر لطباعة المرفقات عن طريق جدول يحتوي على مسارات بمكان الملفات المطلوب طباعتها
وشكرا

تم تعديل يوليو 31, 2023 بواسطه samiali4

[Moosak]

هذا الكود لفتح ملف أو صورة وطباعتها مباشرة

يوضع في موديول وينادى كما هو واضح بالاسفل 

الكود:

Option Compare Database
Option Explicit

Private Const SW_HIDE = 0
Private Const SW_MINIMIZE = 6
Private Const SW_RESTORE = 9
Private Const SW_SHOW = 5
Private Const SW_SHOWMAXIMIZED = 3
Private Const SW_SHOWMINIMIZED = 2
Private Const SW_SHOWMINNOACTIVE = 7
Private Const SW_SHOWNA = 8
Private Const SW_SHOWNOACTIVATE = 4
Private Const SW_SHOWNORMAL = 1

#If Win64 Then
Private Declare PtrSafe Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
( _
        ByVal hwnd As Long, _
        ByVal lpOperation As String, _
        ByVal lpFile As String, _
        ByVal lpParameters As String, _
        ByVal lpDirectory As String, _
        ByVal nShowCmd As Long _
) As Long
#Else
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
( _
        ByVal hwnd As Long, _
        ByVal lpOperation As String, _
        ByVal lpFile As String, _
        ByVal lpParameters As String, _
        ByVal lpDirectory As String, _
        ByVal nShowCmd As Long _
) As Long
#End If
Public Function PrintFile(ByVal strPathAndFilename As String)
    Call ShellExecute(Application.hWndAccessApp, "print", strPathAndFilename, vbNullString, vbNullString, 0)
End Function

طريقة الاستدعاء (الاستخدام):

PrintFile ( "d:\Folder1\Folder2\File.jpeg")

 

[samiali4]

شكرا جزيلا على الكود

ولكن في الاستدعاء انا محتاجه ياخد مسار الملفات المطلوب طباعتها من الجدول المرفق ويطبعهم بالتتالي او يحفظهم في ملف PDF مجمعين او ياخد منهم نسخة ويجمعهم في فولدر واحد 

بارك اللهم فيكم

 

[kanory]

7 ساعات مضت, samiali4 said:

ولكن في الاستدعاء انا محتاجه ياخد مسار الملفات المطلوب طباعتها من الجدول المرفق ويطبعهم بالتتالي او يحفظهم في ملف PDF مجمعين او ياخد منهم نسخة ويجمعهم في فولدر واحد 

لم اجرب الكود .... جرب واعلمنا ...

Sub PrintFiles()
    Dim db As DAO.Database
    Dim rs As DAO.Recordset
    Dim strPath As String
    Dim strFile As String
    
    Set db = CurrentDb
    Set rs = db.OpenRecordset("SELECT FilePath FROM MyTable")
    
    Do While Not rs.EOF
        strPath = rs!FilePath
        strFile = Dir(strPath)
        
        If Len(strFile) > 0 Then
            Application.FollowHyperlink strPath, , True, "print"
        End If
        
        rs.MoveNext
    Loop
    
    rs.Close
    Set rs = Nothing
    Set db = Nothing
End Sub

 

[samiali4]

 

19 ساعات مضت, kanory said:

لم اجرب الكود .... جرب واعلمنا ...

Sub PrintFiles()
    Dim db As DAO.Database
    Dim rs As DAO.Recordset
    Dim strPath As String
    Dim strFile As String
    
    Set db = CurrentDb
    Set rs = db.OpenRecordset("SELECT FilePath FROM MyTable")
    
    Do While Not rs.EOF
        strPath = rs!FilePath
        strFile = Dir(strPath)
        
        If Len(strFile) > 0 Then
            Application.FollowHyperlink strPath, , True, "print"
        End If
        
        rs.MoveNext
    Loop
    
    rs.Close
    Set rs = Nothing
    Set db = Nothing
End Sub

 

اشكرك على اهتمامك 
لكن كيف احدد له الجدول اللي المفروض ياخد منه مسارات الملفات المطلوب طباعتها ؟
وليكن مثلا اسم الجدول هو ( جدول_طابعة_مرفقات)    واسم الحقل اللي يوجد به مسار الملف هو ( المسار )

ولك جزيل الشكر
 

[kanory]

 

منذ ساعه, samiali4 said:

لكن كيف احدد له الجدول اللي المفروض ياخد منه مسارات الملفات المطلوب طباعتها ؟
وليكن مثلا اسم الجدول هو ( جدول_طابعة_مرفقات)    واسم الحقل اللي يوجد به مسار الملف هو ( المسار )

تفضل <><><><><><>

Sub PrintFiles()
    Dim db As DAO.Database
    Dim rs As DAO.Recordset
    Dim strPath As String
    Dim strFile As String
    
    Set db = CurrentDb
    Set rs = db.OpenRecordset("SELECT المسار FROM جدول_طابعة_مرفقات")
    
    Do While Not rs.EOF
        strPath = rs!المسار
        strFile = Dir(strPath)
        
        If Len(strFile) > 0 Then
            Application.FollowHyperlink strPath, , True, "print"
        End If
        
        rs.MoveNext
    Loop
    
    rs.Close
    Set rs = Nothing
    Set db = Nothing
End Sub

 

تم تعديل أغسطس 3, 2023 بواسطه kanory

[samiali4]

27 دقائق مضت, kanory said:

Sub PrintFiles()
    Dim db As DAO.Database
    Dim rs As DAO.Recordset
    Dim strPath As String
    Dim strFile As String
    
    Set db = CurrentDb
    Set rs = db.OpenRecordset("SELECT المسار FROM جدول_طابعة_مرفقات")
    
    Do While Not rs.EOF
        strPath = rs!المسار
        strFile = Dir(strPath)
        
        If Len(strFile) > 0 Then
            Application.FollowHyperlink strPath, , True, "print"
        End If
        
        rs.MoveNext
    Loop
    
    rs.Close
    Set rs = Nothing
    Set db = Nothing
End Sub

 

تم التجربة  ويقوم بتحديد مكان الملف المطلوب طباعة 
ولكن تظهر رالة الخطا التالية 

 

تم تعديل أغسطس 3, 2023 بواسطه samiali4