إجمالي مرات مشاهدة الصفحة

السبت، 16 أبريل 2016

حفظ نطاق الطباعة كصورة Export Print Area As JPG

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

أقدم لكم كود يقوم بتصدير نطاق الطباعة Print Area كصورة ، ويتم تسمية الصورة بمحتوى الخلية A1.
تم إعداد نطاق الطباعة في الملف المرفق ليكون النطاق A1:E12 كما هو موضح بالصورة التالية :

قم بوضع الكود التالي في موديول عادي Standard Module ثم نفذ الأمر ليتم تصدير نطاق الطباعة كصورة بامتداد JPG في نفس مسار المصنف الحالي ، ويمكن تعديل المسار من خلال الكود ليلائم المستخدم.
 Sub ExportPrintAreaToJPG()
    Dim I As Integer
    Dim intCounter As Integer
    Dim objChart As Chart
    Dim strRange As String
    
    strRange = CStr(Worksheets("Sheet1").PageSetup.PrintArea)
    
    Application.ScreenUpdating = False
        Call Sheet1.Range(strRange).CopyPicture(xlScreen, xlPicture)
        
        With Sheet2
            .Shapes.AddChart
            .Activate
            .Shapes.Item(1).Select
            Set objChart = ActiveChart
            
            .Shapes.Item(1).Width = Sheet1.Range(strRange).Width
            .Shapes.Item(1).Height = Sheet1.Range(strRange).Height
            
            objChart.Paste
            objChart.Export Filename:=ThisWorkbook.Path & "\" & Sheet1.Range("A1").Value & ".JPG"
            intCounter = Sheet2.Shapes.Count
            
            For I = 1 To intCounter
                .Shapes.Item(1).Delete
            Next I
        End With
        Application.Goto Sheet1.Range("A1")
    Application.ScreenUpdating = False
    
    MsgBox "Done...", 64
End Sub

وهذه الصورة هي ناتج عملية التصدير التي قام بها الكود

إعداد / ياسر خليل أبو البراء

هناك 13 تعليقًا:

  1. جميل ما شاء الله
    ولكن انا ملاحظ انه بياخد لقطه من المعروض على الشاشه بمعنى لو كان هناك هيدر او فوتر مش هيظهر كنت بعمل طريقة تانيه غير مباشرة من غير اكواد عن طريق الحفظ باسم ثم حفظ بصيغة pdf بحيث تظهر الصفحة مطابقة للطباعه ثم الفتح عن طريق ادوب واخذ سناب شوت ثم لصق في الرسام ثم حفظ باسم بصيغة jpg
    السؤال هل هناك طريقة اني اعمل حفظ باسم بصيغة jpg مباشرة بحيث تطلع الصورة مطابقة للمطبوع ويظهر فيها الهيدر والفوتر

    ردحذف
  2. اكثر من رائع
    ربنا يجازيك خيرا

    ردحذف
  3. اكثر من رائع
    ربنا يجازيك خيرا

    ردحذف
  4. أزال المؤلف هذا التعليق.

    ردحذف
  5. بارك الله فيكم إخواني لمروركم العطر بالمدونة
    أخي صائد اللحظات سأحاول العمل على طلبك وإن كان طلبك يتطلب برنامج Acrobat Professional لإتمام الأمر ..أفضل تصديره إلى PDF بالأكواد وهذا أمره يسير .. وبعدها يمكنك التعامل بأحد البرامج التي تحول ملفات الـ PDF إلى JPG

    أخي الكريم محمد وعليكم السلام
    الأسماء المستخدمة في الكود أسماء أوراق العمل البرمجية في محرر الأكواد ..إن شاء الله سأفرد موضوع حول الأمر
    يمكنك تغيير Sheet1 إلى Sheets("INV") و Sheet2 إلى Sheets("0")

    ردحذف
  6. السيد الجليل ياسر خليل

    جزاك الله خيرا

    لقد قمت بالمحاولة وتم تعديل المطلوب

    بارك الله فيك


    ردحذف
  7. الحمد لله أن تم المطلوب على خير .. تقبل تحياتي

    ردحذف
  8. أخي ياسر ماعميتحمل ملف التطبيق معقول لاني مالجوال ؟

    ردحذف
  9. أثناء التحميل ستمر بعدة صفحات في كل مرة تنقر على Skip Ad بعدها يمكنك التحميل إن شاء الله

    ردحذف
  10. روعة ...ماشاء الله عليك

    ردحذف
  11. الأروع هو مرورك العطر أخي مهند

    ردحذف
  12. وجزيت خيراً بمثل ما دعوت لي أخي الكريم

    ردحذف