حفظ التقارير بصيغة jpeg

[Ibrahim IQ]

السلام عليكم ....

هل هناك اي كود او الطريقة ؟

1- لحفظ التقارير بصيغة jpeg . ولكن ليس بشكل متتالي مثلا التقارير 10 صفحة اي الصفحة في الصورة الوحدة .

2- لحفظ التقارير بصيغة pdf. ولكن ليس بشكل متتالي مثلا التقارير 10 صفحة اي الصفحة في lملف pdf جديد . بمعنى كل ال 10 صفحة ليس في ملف الواحد .

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

AccessJpeg.rar

[jjafferr]

وعليكم السلام

 

تحويل التقرير الى صورة ، سواء bmp او png او jpg او غيرها ، هي من الاسئلة العريقة التي لا تزال الروح فيها ، ونراها بين فترة واخرى

 

هناك نوعان من الصور التي يستطيع تقرير الاكسس طباعتها ، وهما خاصّتان بمايكروسوفت فقط ، صيغة snp ، ثم في الاكسس 2007 فما فوق تم اضافة صيغة xps (في نفس الوقت الذي تم إضافة صيغة pdf كذلك) ،

لا توجد برامج تحويل هذه الصيغ الى صيغ الصور المتعارف عليها مثل bmp او png او jpg او غيرها ، غير عدد جدا محدود ، مثل تحويل xps الى صور: xps2img:

https://sourceforge.net/projects/xps2img/

 

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

انا لا استخدم طابعة الورق عندما اريد ان اجرب اطبع التقارير ، وانما اطبع بصيغة pdf باستخدام طابعة افتراضية مجانية مثل http://www.dopdf.com/

 

اما الطابعات الافتراضية لتحويل التقارير الى صور ، فمنها (المجانية):

https://www.print-driver.com/stories/convert-pdf-to-jpg-via-the-command-line

http://emfprinter.sourceforge.net/

والتي بعد ان تطبع التقرير (تحفظ التقرير بصيغة صورة) ، فيمكنك ان تغير اسم ومكان الصورة بالكود:

نسخ الملف من مجلد الى آخر
FileCopy "Source_Path_And_Name", "Destination_Path_And_Name"
مثل
dim New_File_Location as string
'New_File_Location= application.currentproject.path & "\Files\" & me.ID & ".doc"
New_File_Location="D:\BD\File_1.doc"
FileCopy "D:\myFile.doc", New_File_Location


نقل الملف من مجلد الى آخر، او تغيير اسم الملف
Name "old_path_AND_name" As "new_path_AND_name"
مثل
dim New_File_Location as string
'New_File_Location= application.currentproject.path & "\Files\" & me.ID & ".doc"
New_File_Location="D:\BD\File_1.doc"
Name "D:\myFile.doc" As New_File_Location


حذف الملف
Kill "SourcePathAnd Name"

.

وعملت على احد برامج طباعة هويات الموظفين ، لطباعة الهويات على طابعة الهويات Fargo DTC550

وعند طباعة التقرير (الهوية بالصورة) مباشرة من التقرير الى الطابعة ، لاحظت ان الصور غير واضحة ، وبعد البحث اخبرني احد اصحابي "شكرا اخي محمد نادر" والذي كان قد قام بهذه الخطوة قبلي بعدة اشهر ، ان افضل طريقة للطباعة على هذه الطابعة هي:

ان تطبع التقرير بصيغة xps ، ثم تفتح الصورة بواسطة xps viewer والذي يتم تنصيبه مع تنصيب الاكسس 2007 فما فوق ، وتطبع الهوية من هناك ، والصور كانت واضحة جدا

 

وقد قمت بشراء الطابعة الافتراضية للمشروع اعلاه:

https://code-industry.net/imageprinterpro/

ولكن نتيجة الطباعة كانت نفسها كالتي بـ xps viewer

 

جعفر

 

[Ibrahim IQ]

4 ساعات مضت, jjafferr said:

وعليكم السلام

 

تحويل التقرير الى صورة ، سواء bmp او png او jpg او غيرها ، هي من الاسئلة العريقة التي لا تزال الروح فيها ، ونراها بين فترة واخرى

 

هناك نوعان من الصور التي يستطيع تقرير الاكسس طباعتها ، وهما خاصّتان بمايكروسوفت فقط ، صيغة snp ، ثم في الاكسس 2007 فما فوق تم اضافة صيغة xps (في نفس الوقت الذي تم إضافة صيغة pdf كذلك) ،

لا توجد برامج تحويل هذه الصيغ الى صيغ الصور المتعارف عليها مثل bmp او png او jpg او غيرها ، غير عدد جدا محدود ، مثل تحويل xps الى صور: xps2img:

https://sourceforge.net/projects/xps2img/

 

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

انا لا استخدم طابعة الورق عندما اريد ان اجرب اطبع التقارير ، وانما استخدم طابعة افتراضية مجانية مثل http://www.dopdf.com/

 

اما الطابعات الافتراضية لتحويل التقارير الى صور ، فمنها (المجانية):

https://www.print-driver.com/stories/convert-pdf-to-jpg-via-the-command-line

http://emfprinter.sourceforge.net/

والتي بعد ان تطبع التقرير (تحفظ التقرير بصيغة صورة) ، فيمكنك ان تغير اسم ومكان الصورة بالكود:

نسخ الملف من مجلد الى آخر
FileCopy "Source_Path_And_Name", "Destination_Path_And_Name"
مثل
dim New_File_Location as string
'New_File_Location= application.currentproject.path & "\Files\" & me.ID & ".doc"
New_File_Location="D:\BD\File_1.doc"
FileCopy "D:\myFile.doc", New_File_Location


نقل الملف من مجلد الى آخر، او تغيير اسم الملف
Name "old_path_AND_name" As "new_path_AND_name"
مثل
dim New_File_Location as string
'New_File_Location= application.currentproject.path & "\Files\" & me.ID & ".doc"
New_File_Location="D:\BD\File_1.doc"
Name "D:\myFile.doc" As New_File_Location


حذف الملف
Kill "SourcePathAnd Name"

.

وعملت على احد برامج طباعة هويات الموظفين ، لطباعة الهويات على طابعة الهويات Fargo DTC550

وعند طباعة التقرير (الهوية بالصورة) مباشرة من التقرير الى الطابعة ، لاحظت ان الصور غير واضحة ، وبعد البحث اخبرني احد اصحابي "شكرا اخي محمد نادر" والذي كان قد قام بهذه الخطوة قبلي بعدة اشهر ، ان افضل طريقة للطباعة على هذه الطابعة هي:

ان تطبع التقرير بصيغة xps ، ثم تفتح الصورة بواسطة xps viewer والذي يتم تنصيبه مع تنصيب الاكسس 2007 فما فوق ، وتطبع الهوية من هناك ، والصور كانت واضحة جدا

 

وقد قمت بشراء الطابعة الافتراضية للمشروع اعلاه:

https://code-industry.net/imageprinterpro/

ولكن نتيجة الطباعة كانت نفسها كالتي بـ xps viewer

 

جعفر

 

شكرا استاذ ( جعفر ) للتوضيح دائما احنا نحتاج لخبرتك ..... الف شكر

[jjafferr]

هلا ومرحبا