تصدير او حفظ تقرير الى صورة jpg

[محمد عبد الشفيع]

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

كل عام وانتم بخير بمناسبة شهر رجب المحرم 

اخوانى واسأتذتى الاعزاء

بالمرفقات قاعدة بيانات بها جدول ونموذج وتقرير عند فتح النموذج هناك زر لمعاينة التقرير قبل الطباعة  وبالضغط عليه يتم فتح التقرير فى وضع المعاينة

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

اما الزر الاخر زر jpg وهو لتصدير او حفظ التقرير كما هو ظاهر بهيئته الى صورة بصيغة jpg  واريد الكود الذى ينفذ هذا المطلوب ويكن بنفس طريقة زر pdf من حيث فتح مربع حوار اختيار مكان الحفظ 

ولكم منى جزيل الشكر والعرفان

jpg.rarFetching info...

[محمد عبد الشفيع]

للرفع

[محمد عبد الشفيع]

  في 10‏/3‏/2019 at 18:42, محمد عبد الشفيع said:

للرفع

Expand  

 

[طير البحر]

مهتم جدا

 

[Moosak]

وعليكم السلام ورحمة الله 🙂 

استخدم طابعة افتراضية تحفظ التقرير على شكل صور ..

مثل :
https://www.ab-tools.com/en/software/freeimageprinter/

 

أو
https://virtual-imageprinter.en.softonic.com/

 

ويمكنك أن تعين هذه الطابعة كطابعة افتراضية لهذا التقرير بحيث يتم الحفظ مباشرة عليها 🙂 

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

السلام عليكم ورحمة الله وبركاته
بالإضافة لما تفضل به الأستاذ موسى جزاه الله خيرا
انا استخدم هذا البرنامج Universal Document Converter  وهذا موقع الشركة: https://www.print-driver.com/download 
بعد إتمام عملية تنصيب البرنامج تابع الفيديو . ومرفق ملفك بعد التعديل.

بالتوفيق

 

 

 

 

jpg.rarFetching info... شرج عمل برنامج Universal Document Converter.rarFetching info...

[UserUser2]

  في 23‏/3‏/2024 at 03:19, سامي الحداد said:

السلام عليكم ورحمة الله وبركاته
بالإضافة لما تفضل به الأستاذ موسى جزاه الله خيرا
انا استخدم هذا البرنامج Universal Document Converter  وهذا موقع الشركة: https://www.print-driver.com/download 
بعد إتمام عملية تنصيب البرنامج تابع الفيديو . ومرفق ملفك بعد التعديل.

بالتوفيق

 

 

 

 

jpg.rar 38.48 kB · 11 downloads شرج عمل برنامج Universal Document Converter.rar 4.28 \u0645\u064a\u062c\u0627 \u0628\u0627\u064a\u062a · 21 downloads

Expand  

جزاك الله خيرا 
لو محتاج عند التصدير يحفظ الصوره فى فولدر محدد برقم العميل هياخده من النموذج واسم الصوره يحمل اسم العميل والتاريخ الموجود فى النموذج 
صيغه التعديل هتكون ايه ؟
 
مثل الكود ده بدل ماهو PDF يكون صوره 

Dim FS, Cf, strFolder
Const msoFileDialogFilePicker As Long = 3
Dim objDialog As Object
Set objDialog = Application.FileDialog(msoFileDialogFilePicker)
strFolder = "D:\System\PDF\" & Me.id
Set FS = CreateObject("Scripting.FileSystemObject")
If FS.FolderExists(strFolder) = False Then
Set Cf = FS.CreateFolder(strFolder)
If FS.FolderExists(strFolder) = True Then
End If
End If
 Dim FileName As String, fldrPath As String, filepath As String
  Dim answer As Integer
 
  FileName = Me.pn & " " & "-" & " " & Me.tes & " " & "-" & " " & Format([Qdate], "dd-mm-yyyy")       'filename for PDF file*
  fldrPath = "D:\System\PDF\" & Me.id  'folder path where pdf file will be saved *
 'CurrentProject.Path &
  filepath = fldrPath & "\" & FileName & ".pdf"
 
  'check if file already exists
  If FileExists(filepath) Then
    answer = MsgBox(Prompt:="PDF file already exists: " & vbNewLine & filepath & vbNewLine & vbNewLine & _
      "هل تريد استبدال الملف الموجود؟", Buttons:=vbYesNo, Title:="هذا الملف موجود")
   If answer = vbNo Then Exit Sub
 End If
 

DoCmd.OutputTo ObjectType:=acOutputReport, objectName:="QWE", outputformat:=acFormatPDF, outputFile:=filepath

 

تم تعديل مارس 23, 2024 بواسطه UserUser2

[Foksh]

  في 23‏/3‏/2024 at 15:21, UserUser2 said:

جزاك الله خيرا 
لو محتاج عند التصدير يحفظ الصوره فى فولدر محدد برقم العميل هياخده من النموذج واسم الصوره يحمل اسم العميل والتاريخ الموجود فى النموذج 
صيغه التعديل هتكون ايه ؟
 
مثل الكود ده بدل ماهو PDF يكون صوره 

Dim FS, Cf, strFolder
Const msoFileDialogFilePicker As Long = 3
Dim objDialog As Object
Set objDialog = Application.FileDialog(msoFileDialogFilePicker)
strFolder = "D:\System\PDF\" & Me.id
Set FS = CreateObject("Scripting.FileSystemObject")
If FS.FolderExists(strFolder) = False Then
Set Cf = FS.CreateFolder(strFolder)
If FS.FolderExists(strFolder) = True Then
End If
End If
 Dim FileName As String, fldrPath As String, filepath As String
  Dim answer As Integer
 
  FileName = Me.pn & " " & "-" & " " & Me.tes & " " & "-" & " " & Format([Qdate], "dd-mm-yyyy")       'filename for PDF file*
  fldrPath = "D:\System\PDF\" & Me.id  'folder path where pdf file will be saved *
 'CurrentProject.Path &
  filepath = fldrPath & "\" & FileName & ".pdf"
 
  'check if file already exists
  If FileExists(filepath) Then
    answer = MsgBox(Prompt:="PDF file already exists: " & vbNewLine & filepath & vbNewLine & vbNewLine & _
      "هل تريد استبدال الملف الموجود؟", Buttons:=vbYesNo, Title:="هذا الملف موجود")
   If answer = vbNo Then Exit Sub
 End If
 

DoCmd.OutputTo ObjectType:=acOutputReport, objectName:="QWE", outputformat:=acFormatPDF, outputFile:=filepath

 

Expand  

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

[UserUser2]

  في 23‏/3‏/2024 at 16:28, Foksh said:

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

Expand  

محتاج تنفذها بالوسيط مثل مثال الاستاذ سامى 

 

 

  في 23‏/3‏/2024 at 16:28, Foksh said:

يحفظ الصوره فى فولدر محدد برقم العميل هياخده من النموذج واسم الصوره يحمل اسم العميل والتاريخ

Expand  

 

تم تعديل مارس 23, 2024 بواسطه UserUser2

[kkhalifa1960]

تفضل استاذ @UserUser2 

https://www.print-driver.com/how-to/convert-access-to-jpeg

اقرأ هذا المحتوي ونزل الطابعة  (How to Convert Access Report to JPEG) 

[Foksh]

  في 23‏/3‏/2024 at 17:13, UserUser2 said:

محتاج تنفذها بالوسيط مثل مثال الاستاذ سامى 

Expand  

الوسيط كأحد البرامج التي تدعم حفظ التقارير بصيغة Pdf ثم تحولها الى صورة مثل Irfan .. أو بأحدى الطرق التي ذكرها الأساتذة ،

انا عن نفسي استخدم الطريقة التي أشار إليها الاستاذ خليفة و الاستاذ سامي الحداد

تم تعديل مارس 24, 2024 بواسطه Foksh

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

  في 23‏/3‏/2024 at 15:21, UserUser2 said:

مثل الكود ده بدل ماهو PDF يكون صوره

Expand  

اخي الكريم 

ارفق ملفك للتعديل عليه وأبشر خيرا ان شاءالله

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

  في 23‏/3‏/2024 at 18:52, kkhalifa1960 said:

اقرأ هذا المحتوي ونزل الطابعة  (How to Convert Access Report to JPEG) 

Expand  

 

  في 23‏/3‏/2024 at 22:55, Foksh said:

انا عن نفسي استخدم الطريقة التي أشار إليها الاستاذ خليفة

Expand  

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

[Foksh]

  في 24‏/3‏/2024 at 14:37, سامي الحداد said:

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

Expand  

كلامك سليم 100000 % ، كل العذر منك استاذنا @سامي الحداد ، ولكني فعلاً لم اقم بتجربة المرفق وكنت اتصفح من الجوال 

 

هذا دليل ان الواحد مع التعب يحس الاسلاك في مخه تعمل ماس 

[UserUser2]

  في 24‏/3‏/2024 at 06:09, سامي الحداد said:

اخي الكريم 

ارفق ملفك للتعديل عليه وأبشر خيرا ان شاءالله

Expand  

@سامي الحداد

TEST IMAGE.accdbFetching info...

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

اخي الكريم اسف على التاخير سوف انظر في المرفق غدا ان شاءالله تعالى 

[UserUser2]

  في 25‏/3‏/2024 at 11:39, سامي الحداد said:

اخي الكريم اسف على التاخير سوف انظر في المرفق غدا ان شاءالله تعالى 

Expand  

اعانك الله 
وجزاك الله خيرا 

[صالح حمادي]

السلام عليكم

هذه فكرة يمكن استخدامها و تطويرها

 

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

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

تفضل اخي الكريم @UserUser2 

تم تنفيذ الخطوات التالية:

1. سيتم إنشاء مجلد "Documents" بجانب قاعدة البيانات.

2. سيتم إنشاء مجلد "PDF" تحت مجلد "Documents".

3. سيتم إنشاء مجلد "JPEG" تحت مجلد "Documents".

الغرض من إنشاء هذه المجلدات هو تلبية طلب الأخ السائل، الذي رغب في حفظ الصورة عند التصدير في مجلد محدد برقم العميل واسم الصورة تحمل اسم العميل والتاريخ الموجود في النموذج. ونظرًا لصعوبة تنفيذ هذا الطلب بالنسبة للصور بواسطة برنامج وسيط ، اما بالنسبة للــ  PDF  فآمره سهل جدا وهو ما تم عمله اولا فقد تم تنفيذ الخطوات التالية بعد إنشاء المجلدات:

1. يتم حفظ الملف بالأسماء المذكورة والتاريخ بصيغة PDF.

 2. يتم إرسال الملف للطابعة الافتراضية "Universal Documents Converter".

3. يتم تحديد الصيغة المطلوبة، وفي حالتنا نريد صيغة الصور JPEG.

4. يتم إنشاء الملف المطلوب بكلا الصيغتين PDF و JPEG.

5. يتم حفظ الملف تحت المجلد الخاص به.  

الاكواذ المستخدمة

Option Compare Database
Option Explicit

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

Private Sub CmdPrint_Click()
    Dim Fs As Object
    Dim StrFolder As String, FilePathPDF As String, FileName As String

    Set Fs = CreateObject("Scripting.FileSystemObject")
    StrFolder = CurrentProject.Path & "\Documents"
    If Not Fs.FolderExists(StrFolder) Then
        On Error Resume Next
        Fs.CreateFolder StrFolder
        On Error GoTo 0
        If Err.Number <> 0 Then
            MsgBox "حدث خطأ أثناء إنشاء المجلد الرئيسي: " & Err.Description, vbCritical + vbOKOnly, "خطأ"
            Err.Clear
            Exit Sub
        End If
    End If

    Dim PDFFolder As String
    PDFFolder = StrFolder & "\PDF"
    If Not Fs.FolderExists(PDFFolder) Then
        On Error Resume Next
        Fs.CreateFolder PDFFolder
        On Error GoTo 0
        If Err.Number <> 0 Then
            MsgBox " PDF خطأ في إنشاء مجلد فرعي " & Err.Description, vbCritical + vbOKOnly, "خطأ"
            Err.Clear
            Exit Sub
        End If
        MsgBox "الفرعي بنجاح PDF تم إنشاء المجلد", vbInformation + vbOKOnly, "تأكيد"
    End If

    FileName = Me.ID & " - " & Me.CNo & " - " & Me.CName & " - " & Format([iDate], "dd-mm-yyyy")
    FilePathPDF = PDFFolder & "\" & FileName & ".PDF"
    
    DoCmd.OpenReport "Report1", acViewPreview, , "[ID] = " & Me.ID
    DoCmd.OutputTo acOutputReport, "Report1", acFormatPDF, FilePathPDF, False
    DoCmd.Close acReport, "Report1", acSaveNo

    ShellExecute 0, "Open", FilePathPDF, vbNullString, vbNullString, vbNormalFocus
    ShellExecute 0, "Print", FilePathPDF, vbNullString, vbNullString, vbNormalFocus
    
    Dim JPEGFolder As String
    JPEGFolder = StrFolder & "\JPEG"
    If Not Fs.FolderExists(JPEGFolder) Then
        On Error Resume Next
        Fs.CreateFolder JPEGFolder
        On Error GoTo 0
        If Err.Number <> 0 Then
            MsgBox " JPEG خطأ في إنشاء مجلد فرعي  " & Err.Description, vbCritical + vbOKOnly, "خطأ"
            Err.Clear
            Exit Sub
        End If
        MsgBox "الفرعي بنجاح JPEG تم إنشاء المجلد", vbInformation + vbOKOnly, "تأكيد"
    End If
End Sub

بالنسبة للطابعة يجب ان تحفظ اعدادت موقع حفظ الملف Documents \Jpeg   مثال :   C:\Users\LENOVO\Downloads\TEST IMAGE\Documents\JPEG

وهذا هو المرفق

بالتوفيق

TEST IMAGE 2.rarFetching info...

[Foksh]

متابعة مع أخي الأستاذ @سامي الحداد ، لا زيادة عنه  :-

لإتمام العملية المطلوبة ، يجب أن يكون لديك الملف udceng.exe وهو ضروري لنجاح عملية حفظ التقرير على شكل صورة من الرابط التالي ، , والسبب وجود مكتبة خاصةبواسطة البرنامج . ثم يكون أمامك خياران اثنان .

• وضع الملف الذي تم تحميله من الرابط أعلاه حسب المسار الظاهر لديك في جهازك كما في النقطة رقم 2 .

• أو اختيار مسار الملف ( ويفضل أن يكون بجانب قاعدة البيانات التي تعمل عليها ) بشكل يدوي كما في النقطة 3 .
• والنقطة 1 هي إن كان إصدار الأوفيس لديك 32 فلا مشكلة فيها ، وأن كانت النسخة 64 ، فسيكون عليك تعديل الكود إلى التالي :-

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

 

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

أحسنت وأحسن الله اليك اخي الاستاذ @Foksh

بالفعل لقد فاتتني الاشارة الى المكتبات ونسخة 64 لان الاخ @UserUser2 كان بالفعل قد استخدم الطابعة الافتراضية لان ملفه كانت المكتبات موجودة بالفعل ولهذا لم افكر بالامر😄

اشكرك جزيل الشكر اخي الفاضل على هذه الاضافات ربي يسعدك.

[Foksh]

  في 26‏/3‏/2024 at 12:53, سامي الحداد said:

لان ملفه كانت المكتبات موجودة بالفعل

Expand  

ولا يهمك أخي @سامي الحداد ، علمت ذلك ، وأعلم أنها لم تفُتك هذه النقطة . وإنما كان تعليقي بشكل عام