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

**محمد التميمي** · April 4

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

اخواني الكرام محتاج كود لطباعة استمارة من فولدر خارجي طبقا للمثال المرفق . برابط (D:\CARDS\New)

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

CARDS.rarFetching info...

تم تعديل April 4 بواسطه محمد التميمي

**Eng.Qassim** · April 4

جرب هذه المحاولة

CARDS.rarFetching info...

**محمد التميمي** · April 4

في 4‏/4‏/2025 at 12:59, Eng.Qassim said:

جرب هذه المحاولة

CARDS.rar 169.69 kB · 7 downloads

Expand

السلام عليكم

شكرا جزيلا استاذ قاسم على المرور والاجابة على طلبي ..

لكن الجواب المطروح من جنابكم الكريم لا يلائم ما عندي واريد الاستغناء عن (txtBrows) وزر معاينة الاستمارة والبقاء على زر طباعة الاستمارة فقط والطباعة بشكل مباشر للاستمارة الموجودة في فولدر (New) الموجود مع مرفقات القاعدة.

علما انه تم طباعة الاستمارة من خلال (txtBrows) لكن بحجم نصف A4 لماذا ؟

مع فائق الشكر والتقدير....

**Foksh** · April 4

مداخلة سريعة ، هل اسم ملف الإستمارة ثابت ؟؟

على العموم ، جرب هذه الفكرة أيضاً اشتقاقاً من فكرة المهندس @Eng.Qassim ..

Private Sub Comaand4_Click()
    On Error GoTo ErrorHandler
    
    Dim dbPath As String
    Dim localNewFolder As String
    Dim defaultNewFolder As String
    Dim imagePath As String
    Dim imgFile As String
    
    dbPath = CurrentProject.Path
    
    localNewFolder = dbPath & "\New"
    defaultNewFolder = "D:\CARDS\New"
    
    If Dir(localNewFolder, vbDirectory) <> "" Then
        imgFile = Dir(localNewFolder & "\*.*")
        
        Do While imgFile <> ""
            Select Case LCase(Right(imgFile, 4))
                Case ".jpg", ".jpeg", ".bmp", ".png", ".gif", ".tif"
                    imagePath = localNewFolder & "\" & imgFile
                    Exit Do
                Case Else
                    imgFile = Dir()
            End Select
        Loop
    End If
    
    If imagePath = "" Then
        If Dir(defaultNewFolder, vbDirectory) <> "" Then
            imgFile = Dir(defaultNewFolder & "\*.*")
            
            Do While imgFile <> ""
                Select Case LCase(Right(imgFile, 4))
                    Case ".jpg", ".jpeg", ".bmp", ".png", ".gif", ".tif"
                        imagePath = defaultNewFolder & "\" & imgFile
                        Exit Do
                    Case Else
                        imgFile = Dir()
                End Select
            Loop
        End If
    End If
    
    If imagePath <> "" Then
        Shell "mspaint /pt """ & imagePath & """", vbHide
        MsgBox "تم إرسال الإستمارة للطباعة", vbInformation + vbMsgBoxRight, ""
    Else
        MsgBox "لا توجد استمارة لطباعتها", vbExclamation
    End If
    
    Exit Sub
    
ErrorHandler:
    MsgBox "حدث خطأ", vbCritical + vbMsgBoxRight, ""
End Sub

وقد جعلت الكود أولاً يقرأ المجلد New اذا كان بجانب قاعدة البيانات فيأخذ الإستمارة منه ، وإلا فيذهب إلى المسار الذي حددته سابقاً ليطبع لك الصورة المعبرة عن الإستمارة منه .

Database.accdbFetching info...

تم تعديل April 4 بواسطه Foksh
إضافة المرفق

**محمد التميمي** · April 4

في 4‏/4‏/2025 at 16:41, Foksh said:

مداخلة سريعة ، هل اسم ملف الإستمارة ثابت ؟؟

Expand

السلام عليكم

اي تسمية بالانكليزي مثلا (ِASD)

**Foksh** · April 4

في 4‏/4‏/2025 at 17:05, محمد التميمي said:

اي تسمية بالانكليزي مثلا (ِASD)

Expand

وعليكم السلام ورحمة الله وبركاته ..

اقصد اسم الاستمارة SDN !!!

هل هو ثابت ؟؟؟

**محمد التميمي** · April 4

في 4‏/4‏/2025 at 17:07, Foksh said:

وعليكم السلام ورحمة الله وبركاته ..

اقصد اسم الاستمارة SDN !!!

هل هو ثابت ؟؟؟

Expand

ثابت ان شاء الله

**Foksh** · April 4

في 4‏/4‏/2025 at 17:09, محمد التميمي said:

ثابت ان شاء الله

Expand

اذاً هل تريد للكود ان يتم تحديد مسار واسم ملف الاستمارة ؟؟ أم تبقى على هذه الفكرة كما شاركتها سابقاً بحيث ان الكود يقوم بطباعة أول صورة يجدها في المجلد ؟؟؟

**محمد التميمي** · April 4

في 4‏/4‏/2025 at 17:11, Foksh said:

اذاً هل تريد للكود ان يتم تحديد مسار واسم ملف الاستمارة ؟؟ أم تبقى على هذه الفكرة كما شاركتها سابقاً بحيث ان الكود يقوم بطباعة أول صورة يجدها في المجلد ؟؟؟

Expand

نعم استاذي الفاضل الفكرة هي يتم طباعة صورة الاستمتارة الوحيدة باسم ASD مباشر من خلال زر امر في نموذج والاستمارة موجودة بفولدر (NEW) بجانب قاعدة البيانات

بحسب المرفق الاول في المشاركة

تم تعديل April 4 بواسطه محمد التميمي

**Foksh** · April 4

في 4‏/4‏/2025 at 17:14, محمد التميمي said:

نعم استاذي الفاضل الفكرة هي يتم طباعة صورة الاستمتارة الوحيدة باسم ASD مباشر من خلال زر امر في نموذج والاستمارة موجودة بفولدر (NEW) بجانب قاعدة البيانات

Expand

توهتني .. اسم الصورة في المرفق ليست ASD كما أشرت . أذاكنت تفضل تحديداسم صورة الاستمارة من خلال الكود فهو سهل ، لكن اذا كانت الصورة وحيدة ولا وجود لملفات أخرى غيرها في المجلد فالكود في المرفق يلبي حاجتك بدون تحديد اسم صورة الاستمارة . والكود ايضاً يدعم حالتين إما المجلد الي بجانب قاعدة البيانات بغض النظر عن مساره أو ذلك الموجود في المسار الذي ذكرته لنا سابقاً في القرص D ... جربه واخبرنا بالنتيجة بعد الطباعة ؟؟؟

**محمد التميمي** · April 4

في 4‏/4‏/2025 at 17:17, Foksh said:

توهتني .. اسم الصورة في المرفق ليست ASD كما أشرت . أذاكنت تفضل تحديداسم صورة الاستمارة من خلال الكود فهو سهل ، لكن اذا كانت الصورة وحيدة ولا وجود لملفات أخرى غيرها في المجلد فالكود في المرفق يلبي حاجتك بدون تحديد اسم صورة الاستمارة . والكود ايضاً يدعم حالتين إما المجلد الي بجانب قاعدة البيانات بغض النظر عن مساره أو ذلك الموجود في المسار الذي ذكرته لنا سابقاً في القرص D ... جربه واخبرنا بالنتيجة بعد الطباعة ؟؟؟

Expand

الله لا يتوهك عزيزي الكريم سالتني عن اسم الاستمارة ثابت فقلت لك اسمها ASD ثابت اريد من خلال المسار في D:\CARD\New

**Foksh** · April 4

في 4‏/4‏/2025 at 17:21, محمد التميمي said:

الله لا يتوهك عزيزي الكريم سالتني عن اسم الاستمارة ثابت فقلت لك اسمها ASD ثابت اريد من خلال المسار في D:\CARD\New

Expand

حسناً جرب الملف المرفق وأخبرني بالنتيجة ،، وغير اسمها الى اي اسم تريده :yes:

**محمد التميمي** · April 4

في 4‏/4‏/2025 at 17:21, Foksh said:

حسناً جرب الملف المرفق وأخبرني بالنتيجة ،، وغير اسمها الى اي اسم تريده

Expand

وين الملف

**Foksh** · April 4

في 4‏/4‏/2025 at 16:41, Foksh said:

مداخلة سريعة ، هل اسم ملف الإستمارة ثابت ؟؟

على العموم ، جرب هذه الفكرة أيضاً اشتقاقاً من فكرة المهندس @Eng.Qassim ..

Private Sub Comaand4_Click()
    On Error GoTo ErrorHandler
    
    Dim dbPath As String
    Dim localNewFolder As String
    Dim defaultNewFolder As String
    Dim imagePath As String
    Dim imgFile As String
    
    dbPath = CurrentProject.Path
    
    localNewFolder = dbPath & "\New"
    defaultNewFolder = "D:\CARDS\New"
    
    If Dir(localNewFolder, vbDirectory) <> "" Then
        imgFile = Dir(localNewFolder & "\*.*")
        
        Do While imgFile <> ""
            Select Case LCase(Right(imgFile, 4))
                Case ".jpg", ".jpeg", ".bmp", ".png", ".gif", ".tif"
                    imagePath = localNewFolder & "\" & imgFile
                    Exit Do
                Case Else
                    imgFile = Dir()
            End Select
        Loop
    End If
    
    If imagePath = "" Then
        If Dir(defaultNewFolder, vbDirectory) <> "" Then
            imgFile = Dir(defaultNewFolder & "\*.*")
            
            Do While imgFile <> ""
                Select Case LCase(Right(imgFile, 4))
                    Case ".jpg", ".jpeg", ".bmp", ".png", ".gif", ".tif"
                        imagePath = defaultNewFolder & "\" & imgFile
                        Exit Do
                    Case Else
                        imgFile = Dir()
                End Select
            Loop
        End If
    End If
    
    If imagePath <> "" Then
        Shell "mspaint /pt """ & imagePath & """", vbHide
        MsgBox "تم إرسال الإستمارة للطباعة", vbInformation + vbMsgBoxRight, ""
    Else
        MsgBox "لا توجد استمارة لطباعتها", vbExclamation
    End If
    
    Exit Sub
    
ErrorHandler:
    MsgBox "حدث خطأ", vbCritical + vbMsgBoxRight, ""
End Sub

وقد جعلت الكود أولاً يقرأ المجلد New اذا كان بجانب قاعدة البيانات فيأخذ الإستمارة منه ، وإلا فيذهب إلى المسار الذي حددته سابقاً ليطبع لك الصورة المعبرة عن الإستمارة منه .

Database.accdb 708 kB · 0 downloads

Expand

😯

**محمد التميمي** · April 4

في 4‏/4‏/2025 at 17:23, Foksh said:

😯

Expand

احسنت تم الطباعة الاستمارة مباشرة لكن بنصف ورقة يعني الاستمارة ظهرت صغيرة

**Foksh** · April 4

في 4‏/4‏/2025 at 17:28, محمد التميمي said:

احسنت تم الطباعة الاستمارة مباشرة لكن بنصف ورقة يعني الاستمارة ظهرت صغيرة

Expand

المشكلة قد تكون بسبب إعدادات الطباعة في Paint ، حيث يقوم البرنامج بطباعة الصورة بحجمها الأصلي دون تكبيرها لتناسب الورقة

**محمد التميمي** · April 4

في 4‏/4‏/2025 at 17:33, Foksh said:

المشكلة قد تكون بسبب إعدادات الطباعة في Paint ، حيث يقوم البرنامج بطباعة الصورة بحجمها الأصلي دون تكبيرها لتناسب الورقة

Expand

بارك الله بجهودك استاذي الكريم ساعمل على حل مشكلة اعدادات الطابعة المهم الكود يعمل بشكل جيد

شكرا جزيلا..

في 4‏/4‏/2025 at 12:59, Eng.Qassim said:

جرب هذه المحاولة

CARDS.rar 169.69 kB · 10 downloads

Expand

بارك الله بجهودك استاذ قاسم وجعله الله في ميزان حسناتك

شكرا جزيلا

في 4‏/4‏/2025 at 17:41, محمد التميمي said:

بارك الله بجهودك استاذي الكريم ساعمل على حل مشكلة اعدادات الطابعة المهم الكود يعمل بشكل جيد

شكرا جزيلا..

بارك الله بجهودك استاذ قاسم وجعله الله في ميزان حسناتك

شكرا جزيلا

Expand

اخواني الكرام في رايكم لمن اعطي علامة افضل اجابة اعينوني اعانكم الله

تم تعديل April 4 بواسطه محمد التميمي

**Eng.Qassim** · April 4

السلام عليكم ...انا استخدمت (txtBrows).. على اعتبار ان المجلد يحتوب على اكثر من صورة

بالنسبة الى مشكلة نصف الصفحة بالتاكيد لديك مشكلة في اعدادات الطباعة

المثال المرفق يطبع لك جميع الصور في الفولدر

CARDS.rarFetching info...

**Eng.Qassim** · April 4

في 4‏/4‏/2025 at 17:41, محمد التميمي said:

خواني الكرام في رايكم لمن اعطي علامة افضل اجابة اعينوني اعانكم الله

Expand

ليس المهم لمن افضل اجابة ...المهم انك استفدت وحللت مسألتك وقد يحتاج لها غيرك

تسجيل الدخول

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

الردود الموصى بها

محمد التميمي

Eng.Qassim

محمد التميمي

Foksh

محمد التميمي

Foksh

محمد التميمي

Foksh

محمد التميمي

Foksh

محمد التميمي

Foksh

محمد التميمي

Foksh

محمد التميمي

Foksh

محمد التميمي

Eng.Qassim

Eng.Qassim

Join the conversation

تصفح هذا الموضوع مؤخراً 0 اعضاء متواجدين الان

تصفح الموقع

تصفح جديد الموقع

Support

Important Information