hanan_ms

توسيـــــــــــع اكثر ************************************ ( استكــــــــــــــــمال 😇 توضيح بالمستطاع جعل مثال @Moosak ازرار ونمط تفاعلي بدل تغير اللون لو كان شرطي اجعلة مسار للصور بأطار صورة واحدة بحجم الزر بصف الجذر مستمر ولا يتضمن حقل نص ظاهر فقط الاكواد موجودة في المرفق وعند تحريك المؤشر + جزء الكود الى اربع تفريعات او رقم التفريع الكل لكتابة كود بشرط مثال If Me.Button_Name.Caption = " XXX " then Run Cod with IF me.Nod_Text = 4 then Check Qury #! + تعديل الجدول عامود فرع الاول ثم عامود تفريع الثاني الى .. عند ضغط يظهر التفريعات ثم التحكم بسطر واحل للكل ... وجهة نظري اذا في تحديث انا سأعدل في وقت آخر شجر المزيفة الى عملية بموضوع آخر ******************************************** 1- اضافة مجموع بسيط من شريط التقدم 2- اضافة تحديد السجل مع بعض التصحيحات __________________________( Up_Date Change Scrollbar To Skin Full And Group Combo Box with Control + ... 😇 محاولة ) تحميل المرفق https://www.mediafire.com/file/26mlu30k4sqrlby/New_Clock_Skin_7D_Logine+To+8+And+SKin_Tab_with_GrubV1_Update_Silent-Print-with_Out_PDF.rar/file

توسيـــــــــــع اكثر ************************************ ( استكــــــــــــــــمال 😇 1- تعديل للتحريك في قائمة في الجنب وليس مقيدة مثل مثال استاذ @Moosak بمسمى عرض الشجرة المزيفة ولا يمكن الا الفتح اما على التقرير او النموذج + جدول ابحث عن الجذر ومن مميزات الشجرة المزيفة يكمن عرض نص طويل واسطر متعددة او خيارات متعددة واجماليات من اسم وصرف واخر دفعه تحت بعض وتخصيصها مميز - ما رايك بالتفاعلية بدل استخدام الوان شرطية او ازار تقليدية @Moosak😇 - مع امكانية كتابة اكواد التحقق او تنفيذ غير مقيد 2- عرض نافذة بتصميم مختلف لعرض البيانات تجريبي 3- تجربة شريط التقدم بحركة مستمرة ولكن يفضل عملة بنافذة جديدة 😇 ويحتاج الى بعض التحديث وتعديل الكود ( ! ));;( 4- يمكن عرض الصور مكان الدائرة المتحركة مع تصحيح كنت ناسية مسار بسبب العجله 😂 *********************************************************************( موضوع @Moosak اسفل الرابط تحميل المرفق https://www.mediafire.com/file/l3t8s9ugrzx0aly/New_Clock_Skin_6D_Logine+To+8+And+SKin_Tab_with_GrubV1_Update_Silent-Print-with_Out_PDF.rar/file مثال الاستاذ @Moosak

توسيـــــــــــع اكثر ************************************ 1- تصحيح عند النقر مع اضافة قوالب جديده شريط ازرار تاب ( بمجموعات ) ثلاثي الابعاد (3) قوالب 2-اضافة قائمة الجانبية بسيط بكود سطر واحد من غير دالة وهي ابسط طريقة والازرار معدوده ما يحتاج نموذج مرتبط بجدول وسيط كمثال @Moosak يعتمد فوق بعض مع ازرار تفاعلية 😇 *************************************( على السريع وللتوضيح تحميل المرفق https://www.mediafire.com/file/jnf7dw5ka9y1mxf/New_Clock_Skin_5D_Logine+To+8+And+SKin_Tab_with_GrubV1_Update_Silent-Print-with_Out_PDF.rar/file

توسيـــــــــــع اكثر ************************************ 1- ساعة حديث يمكنك تعديلها الكود بسيط 2- شريط ازرار تاب ( بمجموعات ) ثلاثي الابعاد قائمة مائلة حسب رغبتك في الواجهة 3- اضافة تغير الزر عند تحريك مؤشر الماوس على ذوق @Moosak برتقالي من غير وميض ولا ترميش تحميل المرفق https://www.mediafire.com/file/33ltkeuo11man6k/New_Clock_Skin_4D_Logine+To+8+And+SKin_Tab_with_GrubV1_Update_Silent-Print-with_Out_PDF.rar/file

توسيـــــــــــع اكثر ************************************************** 1- اضافىة شريط ازرار تاب ( بمجموعات )2 ثلاثي الابعاد 3-D 2-اضافة نافذة جديد لتحديد الاتصال مع تغير بسيط 😇 3- نسيت ازرار @Moosak فضتهم 😂 تحميل المرفق https://www.mediafire.com/file/99f53ngslzmikhv/Sken_3D_Logine+To+8+And+SKin_Tab_with_GrubV1_Update_Silent-Print-with_Out_PDF.rar/file

توسيـــــــــــع اكثر ************************************************** 1- اضافة 8 نوافذ لتسجيل الدخول الخاص لقواعد البيانات 2- من النوافذ للاستاذ @Moosak من غير وميض ولا ترميش 3- الخاص عرض نافذة تسجيل (دخول مع تعين الخلفية فيديو للعرض فقط مع اطار الشفاف) للاستاذ @Moosak ملاحظة نسيت اضافة زر انهاء والاغلاق 😇 تحمبل المرفق https://www.mediafire.com/file/tbn3nm21e9q7wsf/Logine+To+8+And+SKin_Tab_with_GrubV1_Update_Silent-Print-with_Out_PDF.rar/file موضوع استاذ @Moosak:

تحديـــــــــــــــــــــــث وتوسع ********************************************************** ( سهل ) اضافة ميزة اضافة شريط ازرار تاب ( بمجموعات ) كود بسيط جرب وافادة اكثر حول تصميم وتصاميم عند استاذ @Moosak كود اسفل الفيديو مع تحميل المرفق :: كود: تجربة التصميم تاب ومجموعات بسيط 1- من خلال اداة (SpinButton) ActiveX Private Sub SpinButton0_Updated(Code As Integer) If Me.SpinButton0 = 1 Then Me.RF_1.Caption = "تنبيهات المنتهي" Me.RF_2.Caption = "تنبيهات قبل الانتهاء" Me.RF_3.Caption = "تنبهات اجراءات مهملة" Me.RF_4.Caption = "تأخيرات للصرف والتحصيل" Me.X_M.Caption = "3-" & Me.SpinButton0 Exit Sub End If If Me.SpinButton0 = 2 Then Me.RF_1.Caption = "كفالات بنكية" Me.RF_2.Caption = "لم يتم تسليم المستندات" Me.RF_3.Caption = "استعلام عن الشركات" Me.RF_4.Caption = "استعلام عن جهات الطالبة" Me.X_M.Caption = "3-" & Me.SpinButton0 Exit Sub End If If Me.SpinButton0 = 3 Then Me.RF_1.Caption = "سهولة انشاء اشرطة متعددة" Me.RF_2.Caption = "عرض التقرير مهما تغير تغيرة دقة الشاشة" Me.RF_3.Caption = "مخططات النظم متقدمة" Me.RF_4.Caption = "تقارير متقدمة :)" Me.X_M.Caption = "3-" & Me.SpinButton0 Exit Sub End If 2- كود بسيط لكل زر مرة واحدة فقط في التاب وهذه الاكواد لكل زر في الشريط من 1 الى 4 Private Sub RF_1_Click() '=========================(Code Run Skin) If Me.RRR_1.Visible = False Then Me.RRR_1.Visible = True End If If Me.RRR_2.Visible = True Then Me.RRR_2.Visible = False End If If Me.RRR_3.Visible = True Then Me.RRR_3.Visible = False End If If Me.RRR_4.Visible = True Then Me.RRR_4.Visible = False End If If Me.TXT.Visible = True Then Me.TXT.Visible = False End If Me.RF_1.BackColor = RGB(191, 191, 191) Me.RF_2.BackColor = RGB(114, 114, 114) Me.RF_3.BackColor = RGB(114, 114, 114) Me.RF_4.BackColor = RGB(114, 114, 114) '=========================(Code Run Button Only \ Grub SpinButton) Dim MsG1 As String Dim MsG2 As String Dim MsG3 As String If Me.SpinButton0 = 1 Then MsG2 = "Sand Massage !" MsG1 = "مارأيك في التصميم " MsG3 = " التصميم سهل وليس معقد ببساطة " & vbCrLf & "***************************************" & vbCrLf _ & "تصحيح الوقت المتبقي" & vbCrLf & "Orc Mod 2025-2026 (( Button 1 X1 Grub 1 ))" MyMsgBox (MsG3), (MsG2), (MsG1), msg_Question, Btn_OK_Only, Arabic_Center ', True, 2.5 Exit Sub End If If Me.SpinButton0 = 2 Then MsG2 = "Sand Massage !" MsG1 = "مارأيك في التصميم " MsG3 = " التصميم سهل وليس معقد ببساطة " & vbCrLf & "***************************************" & vbCrLf _ & "تصحيح الوقت المتبقي" & vbCrLf & "Orc Mod 2025-2026 (( Button 1 X1 Grub 2 ))" MyMsgBox (MsG3), (MsG2), (MsG1), msg_Question, Btn_OK_Only, Arabic_Center ', True, 2.5 Exit Sub End If If Me.SpinButton0 = 3 Then MsG2 = "Sand Massage !" MsG1 = "مارأيك في التصميم " MsG3 = " التصميم سهل وليس معقد ببساطة " & vbCrLf & "***************************************" & vbCrLf _ & "تصحيح الوقت المتبقي" & vbCrLf & "Orc Mod 2025-2026 (( Button 1 X1 Grub 3 ))" MyMsgBox (MsG3), (MsG2), (MsG1), msg_Question, Btn_OK_Only, Arabic_Center ', True, 2.5 Exit Sub End If End Sub Private Sub RF_2_Click() '=========================(Code Run Skin) If Me.RRR_2.Visible = False Then Me.RRR_2.Visible = True End If If Me.RRR_1.Visible = True Then Me.RRR_1.Visible = False End If If Me.RRR_3.Visible = True Then Me.RRR_3.Visible = False End If If Me.RRR_4.Visible = True Then Me.RRR_4.Visible = False End If If Me.TXT.Visible = True Then Me.TXT.Visible = False End If Me.RF_2.BackColor = RGB(191, 191, 191) Me.RF_1.BackColor = RGB(114, 114, 114) Me.RF_3.BackColor = RGB(114, 114, 114) Me.RF_4.BackColor = RGB(114, 114, 114) '=========================(Code Run Button Only \ Grub SpinButton) Dim MsG1 As String Dim MsG2 As String Dim MsG3 As String If Me.SpinButton0 = 1 Then MsG2 = "Sand Massage !" MsG1 = "مارأيك في التصميم " MsG3 = " التصميم سهل وليس معقد ببساطة " & vbCrLf & "***************************************" & vbCrLf _ & "تصحيح الوقت المتبقي" & vbCrLf & "Orc Mod 2025-2026 (( Button 2 X1 Grub 1 ))" MyMsgBox (MsG3), (MsG2), (MsG1), msg_Question, Btn_OK_Only, Arabic_Center ', True, 2.5 Exit Sub End If If Me.SpinButton0 = 2 Then MsG2 = "Sand Massage !" MsG1 = "مارأيك في التصميم " MsG3 = " التصميم سهل وليس معقد ببساطة " & vbCrLf & "***************************************" & vbCrLf _ & "تصحيح الوقت المتبقي" & vbCrLf & "Orc Mod 2025-2026 (( Button 2 X1 Grub 2 ))" MyMsgBox (MsG3), (MsG2), (MsG1), msg_Question, Btn_OK_Only, Arabic_Center ', True, 2.5 Exit Sub End If If Me.SpinButton0 = 3 Then MsG2 = "Sand Massage !" MsG1 = "مارأيك في التصميم " MsG3 = " التصميم سهل وليس معقد ببساطة " & vbCrLf & "***************************************" & vbCrLf _ & "تصحيح الوقت المتبقي" & vbCrLf & "Orc Mod 2025-2026 (( Button 2 X1 Grub 3 ))" MyMsgBox (MsG3), (MsG2), (MsG1), msg_Question, Btn_OK_Only, Arabic_Center ', True, 2.5 Exit Sub End If End Sub Private Sub RF_3_Click() '=========================(Code Run Skin) If Me.RRR_3.Visible = False Then Me.RRR_3.Visible = True End If If Me.RRR_2.Visible = True Then Me.RRR_2.Visible = False End If If Me.RRR_1.Visible = True Then Me.RRR_1.Visible = False End If If Me.RRR_4.Visible = True Then Me.RRR_4.Visible = False End If If Me.TXT.Visible = True Then Me.TXT.Visible = False End If Me.RF_3.BackColor = RGB(191, 191, 191) Me.RF_2.BackColor = RGB(114, 114, 114) Me.RF_1.BackColor = RGB(114, 114, 114) Me.RF_4.BackColor = RGB(114, 114, 114) '=========================(Code Run Button Only \ Grub SpinButton) Dim MsG1 As String Dim MsG2 As String Dim MsG3 As String If Me.SpinButton0 = 1 Then MsG2 = "Sand Massage !" MsG1 = "مارأيك في التصميم " MsG3 = " التصميم سهل وليس معقد ببساطة " & vbCrLf & "***************************************" & vbCrLf _ & "تصحيح الوقت المتبقي" & vbCrLf & "Orc Mod 2025-2026 (( Button 3 X1 Grub 1 ))" MyMsgBox (MsG3), (MsG2), (MsG1), msg_Question, Btn_OK_Only, Arabic_Center ', True, 2.5 Exit Sub End If If Me.SpinButton0 = 2 Then MsG2 = "Sand Massage !" MsG1 = "مارأيك في التصميم " MsG3 = " التصميم سهل وليس معقد ببساطة " & vbCrLf & "***************************************" & vbCrLf _ & "تصحيح الوقت المتبقي" & vbCrLf & "Orc Mod 2025-2026 (( Button 3 X1 Grub 2 ))" MyMsgBox (MsG3), (MsG2), (MsG1), msg_Question, Btn_OK_Only, Arabic_Center ', True, 2.5 Exit Sub End If If Me.SpinButton0 = 3 Then MsG2 = "Sand Massage !" MsG1 = "مارأيك في التصميم " MsG3 = " التصميم سهل وليس معقد ببساطة " & vbCrLf & "***************************************" & vbCrLf _ & "تصحيح الوقت المتبقي" & vbCrLf & "Orc Mod 2025-2026 (( Button 3 X1 Grub 3 ))" MyMsgBox (MsG3), (MsG2), (MsG1), msg_Question, Btn_OK_Only, Arabic_Center ', True, 2.5 Exit Sub End If End Sub Private Sub RF_4_Click() '=========================(Code Run Skin) If Me.RRR_4.Visible = False Then Me.RRR_4.Visible = True End If If Me.RRR_2.Visible = True Then Me.RRR_2.Visible = False End If If Me.RRR_3.Visible = True Then Me.RRR_3.Visible = False End If If Me.RRR_1.Visible = True Then Me.RRR_1.Visible = False End If If Me.TXT.Visible = True Then Me.TXT.Visible = False End If Me.RF_4.BackColor = RGB(191, 191, 191) Me.RF_2.BackColor = RGB(114, 114, 114) Me.RF_3.BackColor = RGB(114, 114, 114) Me.RF_1.BackColor = RGB(114, 114, 114) '=========================(Code Run Button Only \ Grub SpinButton) Dim MsG1 As String Dim MsG2 As String Dim MsG3 As String If Me.SpinButton0 = 1 Then MsG2 = "Sand Massage !" MsG1 = "مارأيك في التصميم " MsG3 = " التصميم سهل وليس معقد ببساطة " & vbCrLf & "***************************************" & vbCrLf _ & "تصحيح الوقت المتبقي" & vbCrLf & "Orc Mod 2025-2026 (( Button 4 X1 Grub 1 ))" MyMsgBox (MsG3), (MsG2), (MsG1), msg_Question, Btn_OK_Only, Arabic_Center ', True, 2.5 Exit Sub End If If Me.SpinButton0 = 2 Then MsG2 = "Sand Massage !" MsG1 = "مارأيك في التصميم " MsG3 = " التصميم سهل وليس معقد ببساطة " & vbCrLf & "***************************************" & vbCrLf _ & "تصحيح الوقت المتبقي" & vbCrLf & "Orc Mod 2025-2026 (( Button 4 X1 Grub 2 ))" MyMsgBox (MsG3), (MsG2), (MsG1), msg_Question, Btn_OK_Only, Arabic_Center ', True, 2.5 Exit Sub End If If Me.SpinButton0 = 3 Then MsG2 = "Sand Massage !" MsG1 = "مارأيك في التصميم " MsG3 = " التصميم سهل وليس معقد ببساطة " & vbCrLf & "***************************************" & vbCrLf _ & "تصحيح الوقت المتبقي" & vbCrLf & "Orc Mod 2025-2026 (( Button 4 X1 Grub 3 ))" MyMsgBox (MsG3), (MsG2), (MsG1), msg_Question, Btn_OK_Only, Arabic_Center ', True, 2.5 Exit Sub End If End Sub تحميل المرفق : https://www.mediafire.com/file/z0p7absaqc72iy1/SKin_Tab_with_GrubV1_Update_Silent-Print-with_Out_PDF.rar/file

استخدم طابعة زيبرا وغير حجم طابع الملصق من وضع التصميم التقرير والطبع الى ضبط مقاسات من الارتفاع والعرض فقط ولا تحتاج الى كود ,طريقة بسيط

تحديث واستكمــــــــــــــــال 1- امكانية عرض التقرير بتغير حجم النافذة 2- مع بعض التصحيحات 😇 =========================== 1- عرض معاينة المسحوبات مع التحكم والتصحيح 2- تفعيل عند تحريك عجلة المواس للتقليب بين الصفحات 3- تحسين في الواجهة مع بعض التصحيحات 😇 وسعة الموضوع من تحويل الملفات الى نافذة التقرير والتحكم 😂 من يقدر يشغلة من غير تقسيم حسب الطلب تحميل المرفق https://www.mediafire.com/file/72tbjuus7f5owu9/V_1_8_PDF_To_IMG_Trluoon.rar/file

😇 تحديث 1- تصحيح التوقيت التنفيذ للاحتساب عن طريق دالة بسيطة 2- اضافة تاب سفلي كتغير واضافة الى النافذة بطريقة سهلة ---------------------------------------------- =========================() تحميل المرفق https://www.mediafire.com/file/g4uyr43fywxh1jy/Update_Silent-Print-with_Out_PDF.rar/file

@ابو جودي والبتعله الحوت اشرايك بشعار 😂 1- تنفيذ امر الاستخراج والطباعة صامت من غير صندوق الرسالة اجراء الطباعة وعد الصفحات انتظار فقط 2- كود مبسط ثلاث حقول 'Selected Objecit Print = (1) or PDF = (2) حدد النوع Type_Object = 2 'Name_report اسم التقرير reportName = "report1" 'If PDF Out Path File مسار الاستخراج pdfPath = CurrentProject.Path & "\" & reportName & "_" & Format(Now(), "yyyymmdd_hhnnss") & ".pdf" فقط Private Sub Comando0_Click() '=============================( Msgbox Dim strMsg_Give_Nmae As response Dim Run_Cod1 As Integer Dim MsG1 As String Dim MsG2 As String Dim MsG3 As String Dim iprgrs As Integer Dim PDF_Print_Finction As String Dim path_pdf As String Dim Report_T As String Dim Type_Object As String Dim reportName As String Dim pdfPath As String Dim totalPages As Long 'Selected Objecit Print = (1) or PDF = (2) Type_Object = 2 'Name_report reportName = "report1" 'If PDF Out Path File pdfPath = CurrentProject.Path & "\" & reportName & "_" & Format(Now(), "yyyymmdd_hhnnss") & ".pdf" '=========================================================================================================== '*****************(Only_Code)***************************** ' جلب إجمالي الصفحات للتقرير totalPages = GetReportPageCount(reportName) Me.ProgressBar3.Min = 0 Me.ProgressBar3.Max = totalPages Me.ProgressBar3.Value = 0 If Not ReportExists(reportName) Then MsG2 = "Sand Massage !" MsG1 = "تم الغاء التنفيذ " MsG3 = " لالتقرير غير موجود ولم نتمكن من العثور علية " MyMsgBox (MsG3), (MsG2), (MsG1), msg_Erorr_Job, Btn_Non, Arabic_Center ', True, 2.5 Exit Sub End If Me.Comando0.Caption = "جار التنفيذ..." Me.xc.Caption = "اجمالي الصفحات.." & totalPages For iprgrs = 1 To 6 'totalPages - 1 Me.ProgressBar3 = iprgrs Next If Type_Object = 2 Then Call externallyPDFSilent(reportName, pdfPath) Me.Comando0.Caption = "تصدير التقرير" End If If Type_Object = 1 Then Call externallyPrintSilent(reportName, pdfPath) Me.Comando0.Caption = "طباعة التقرير صامت" End If ' تحديث ProgressBar (هنا تحديث مبدئي، يمكنك توسعتها في حالة التصدير صفحة صفحة) Me.ProgressBar3.Value = totalPages Me.xc.Caption = "جاري المعالجة... 100%" Call externallyPrintSilent(reportName, pdfPath) If Dir(pdfPath) <> "" Then If Type_Object = 2 Then MsG2 = "Sand Massage !" MsG1 = "تم التنفيذ تصدير PDF " MsG3 = " لا يتوفر الان عملية تأمين الالي للبيانات بتاريخ واليوم " MyMsgBox (MsG3), (MsG2), (MsG1), msg_OK, Btn_Non, Arabic_Center ', True, 2.5 End If If Type_Object = 1 Then MsG2 = "Sand Massage !" MsG1 = "تم التنفيذ الطباعة " MsG3 = " لا يتوفر الان عملية تأمين الالي للبيانات بتاريخ واليوم " MyMsgBox (MsG3), (MsG2), (MsG1), msg_OK, Btn_Non, Arabic_Center ', True, 2.5 End If ' MsgBox "تم إنشاء ملف PDF بنجاح:" & vbCrLf & pdfPath & vbCrLf & _ ' "إجمالي الصفحات: " & totalPages, vbInformation End If End Sub تحميل المرفق https://www.mediafire.com/file/wrl147f1wl7uwmk/Silent-Print-with_Out_PDF.rar/file

تحديث واستكمال 1- اضافة واجهة وازار 2- عند التحويل انشاء تلقائي جداول عند مسار الملف الصور المحول مع الربط الآلي 3- عرض والتقسيم بكود عام 4- اضافة اداوت التحكم بعد التحويل PDF الى صور 5- استخراج التقرير الى صور JPG Png ... 6- فتح اي تقرير للنافذة التقرير مع التقسيم دالة عامة + كود الاستدعاء داخل الزر -- للتجربة تحميل المرفق https://www.mediafire.com/file/k8qiz3dnjofr3wv/V_1_4_PDF_To_IMG_Trluoon.rar/file

استكمال وتحديث 1- اضافة تقسيم لاي ملف PDF الحد استعاب ملف pDF هو 10 الف صفحة ادوبي لا يمكنه فتح اكثر من فينهار الادوبي - تقسيم بحرية 100 او 1000 او 10 الف 2- تصحيح عرض الصور الملونة + ابيض واسود - من غير وميض ولا ترميش 3- اضافة خيارات لنوع الامتداد الصورة 4- اضافة دمج الملفات الصور الى pDF - بالامكان اضافة ملف بنفس المكان فوق ملف PDF = دمج بالاضافة بتغير مسار ملف الى تحويل صور 5- اضافة تحكم بالقائمة و تحديد الملفات مع بعض التصحيحات 6- اضافة زر التوقف التحويل ملف PDF الى صور 7- وعرض الصور دمج الملفات pDF والطباعة ملون او ابيض وسود نافذة التقرير عن طريق دالة عامة فقط انسخ مدوال الخاص في الدالة ونموذج frm_1 , وكود لاي تقرير منبثق ونمط حدود بلا فقط ( سهل جدا يقسم تلقائي حتى لو كان استعلام ) كود الاستدعاء موجد داخل الزر ------(☕) لتقسيم ازالة علامة صح في مربع نعم \ لا , قبل تنفيذ التحويل تحميل المرفق https://www.mediafire.com/file/e0rmnt58xlncgam/V_1_3_PDF_To_IMG_Trluoon.rar/file

تحديث واستكمال 1- يحول الملفات PDF للنوعين املون ,وابيض واسود (الى صور) 2-طبقا لحواف الصفحة 3- عرض مجموعات للملف المحول PDF To IMG 4- عند التنفيذ الاستخراج والتحويل عدم تمكين الازرار والحقول الى بعد الانتهاء ونسيت الزر نفسة بس المهم الي يمشي في السوق والطلب ولا يكون عليه شبه يمكن اجنبي يعمل Exe خارجي عند مسار Documents لتمرير واستخراج صور *************** المهم ======( استاذ\ @Foksh عندك كود ودالة ما تظهر رسالة حفظ كل ما تقدم شريط التقدم صح عدل المرفق وخلني اشوفه لو تناديني يا اميره اسلوب لطيف 😂🌹 تجميل المرفق https://www.mediafire.com/file/7xcv908w0d10bop/V_1_2_PDF_To_IMG_Trluoon.rar/file

اداة بسيط للتحويل الملفات من PDF الى صور يدعم برامج الوسيط من غير تقيد Adobe ومع اي ابديت وتحديث 1- يمكن تصغير حجم النافذة اقل من المستطيل كود بسيط لتصغير حجم عرض الصفحة 2- يمكن حذف الاضافة وعرض ==( -للاستكمال استبدل 100% بعدد الاجمالي للصفحات مع بعض التعديل قبل الانتهاء لقياس شريط التقدم + عند ضغط تنفذ الا ستخراج يجب الغاء تمكين الحقول والازرارا ☕ ==( لنظر اعتقد فتح موقع بسيط لعرض المواضيع تحميل قريبا عند حساب @hanan_ms استاذ @Foksh هل تنصح بستخدام ادوات OLE للصور ( للاستخراج للورد و الاكسل وادوبي ) تحميل المرفق https://www.mediafire.com/file/p3lw3gxlb2g5cv4/PDF_To_IMG_Trluoon.accdb/file