تحميل برنامج يومية الايرادات والمصروفات مجانى 100 %

بسم الله الرحمن الرحيم

اهلا بكم متابعى موقع عالم الاوفيس

طباعة الفاتورة A5 فى الاكسل Excel

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

ولكن من خلال كود اكسل VBA يمكنك عمل ذلك اوتوماتيكيا

لطباعة ورقة A5 على Excel باستخدام VBA ، يمكنك استخدام الكو  التالية:

قم بفتح محررالاكواد  في Excel بالضغط على `ALT + F11` ، ثم قم بإدراج وحدة نمطية  جديدة او Module1 وقم بلصق الكود  التالى فيها.

Sub PrintA5()

    With ActiveSheet.PageSetup

        .PaperSize = xlPaperA5

        .Orientation = xlPortrait ' قم بتغييرها إلى xlLandscape إذا كنت ترغب في الطباعة بالوضع الأفقي

        .Zoom = False

        .FitToPagesTall = 1

        .FitToPagesWide = 1

    End With

   

    ActiveSheet.PrintOut

End Sub

 

عند تشغيل الكود، ستقوم بتعيين إعدادات الطباعة للورقة على A5 والتوجيه على الوضع الرأسي (يمكنك تغييره إلى الوضع الأفقي إذا رغبت)، ثم ستقوم بطباعة الورقة الحالية.

 

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