إذا تمكنا من تعيين زر طباعة مخصص في ورقة عمل Excel الخاصة بنا ، فيمكن أن يكون سهل الاستخدام للغاية وموفرًا للوقت لأوراق الطباعة. باستخدام وحدات ماكرو VBA ، يمكننا القيام بذلك بسهولة. لذلك ستوفر لك هذه المقالة 5 وحدات ماكرو بسيطة لاستخدام رمز VBA لزر الطباعة في Excel.

تنزيل Practice Workbook

يمكنك قم بتنزيل قالب Excel المجاني من هنا وتدرّب بنفسك.

5 أمثلة لاستخدام VBA رمز زر الطباعة في Excel

دعنا نتعرف على مجموعة البيانات الخاصة بنا أولاً والتي تمثل بعض مبيعات مندوب مبيعات في مناطق .

1. استخدم رمز VBA لإنشاء زر طباعة لمربع حوار الطباعة في Excel

أولاً ، سننشئ زر طباعة ثم نكتب رموزًا له.

الخطوات:

• انقر فوق كما يلي: المطور & gt؛ & gt؛ Insert & gt؛ & gt؛ مربع الزر.

بعد فترة وجيزة ، ستحصل على علامة الجمع (+) في المؤشر .

• اسحب هذا المؤشر وفقًا لحجم الزر المطلوب وبعد فترة ، مربع الحوار المسمى تعيين ماكرو سيفتح.

• أعط اسم و اضغط جديد .

A VBA ستظهر نافذة

• ثم اكتب الرموز التالية فيه-

2542

• الآن ارجع إلىورقة .

توزيع الكود

• هنا ، قمت بإنشاء إجراء فرعي ، مربع حوار .
• ثم استخدم مربعات حوار (xlDialogPrint). اعرض لفتح مربع حوار طباعة .

تم إنشاء الزر.

• انقر بزر الماوس الأيمن فوق على الزر وحدد تحرير النص من قائمة السياق لتغيير اسم الزر.

• لاحقًا ، فقط اكتب الاسم و انقر فوق الماوس في أي مكان خارج الزر .

ثم اضغط فقط على الزر .

ثم ستحصل على مربع الحوار طباعة . إذا أردت ، يمكنك طباعة الآن.

إذا لم يكن لديك أي طابعة في هذه اللحظة ، يمكنك حفظ باسم PDF . لمزيد من الاستخدام أو طباعة لاحقًا.

• الآن اضغط على موافق .

• في هذه اللحظة فقط أدخل اسمًا واضغط حفظ .

ها هو المطبوع PDF .

اقرأ المزيد: كيفية ضبط إعدادات الطباعة في Excel (8 حيل مناسبة)

2. استخدم رمز VBA لإنشاء زر طباعة للورقة النشطة

هنا ، سنستخدم VBA ل طباعة و نشط ورقة .

الخطوات:

• اتبع أول خطوتين من القسم الأول لإنشاء زر و تعيين ماكرو .
• اكتب اسم الماكرو واضغط جديد .

بعد فترة وجيزة ، سيتم فتح نافذة VBA .

• ثم اكتب الرموز التالية فيها-

2692

• لاحقًا ، ارجع إلى

تفصيل الكود

• هنا ، قمت بإنشاء إجراء Sub ، ActiveSheet .
• ثم استخدم PrintOut إلى حدد الورقة النشطة و اطبع .

• الآن فقط اضغط الزر .

A مربع الحوار المسمى حفظ إخراج الطباعة باسم سيفتح.

• أعط اسم واضغط حفظ .

ثم ستحصل على نسخة مطبوعة PDF .

يمكنك بسهولة قم بتغيير الطابعة إذا كنت في حاجة إليها.

• انقر فوق في ملف بجانب الصفحة الرئيسية

• ثم حدد خيار طباعة و انقر فوق في القائمة المنسدلة للتحديد a طابعة .

قراءة المزيد: كيفية طباعة كافة الأوراق في Excel (3 طرق)

3. قم بتطبيق كود VBA لإنشاء زر طباعة للأوراق المحددة في Excel

إذا كنت تريد طباعة محدد أوراق محددة فمن الممكن أيضًا استخدام VBA .

الخطوات:

• اتبع أول خطوتين من القسم الأول لإنشاء زر و قم بتعيين a ماكرو .
• ثم اكتب اسم الماكرو واضغط جديد .

بعد فترة وجيزة ،ستفتح نافذة VBA .

• لاحقًا ، اكتب الرموز التالية فيها-

3474

ثم ارجع إلى الورقة .

Code Breakdown

• هنا ، قمت بإنشاء إجراء Sub ، SelectedSheets .
• ثم استخدم ActiveWindow إلى حدد ورقة من نشطة نافذة Excel .
• التالي ، استخدم PrintOut لطباعة متعددة محددة أوراق .

• الآن حدد الأوراق واضغط زر الطباعة . لقد اخترت ورقتين.

• أعط اسم لـ PDF واضغط حفظ .

يحتوي ملف PDF على t صفحات wo للورقتين .

اقرأ المزيد: كيفية طباعة أوراق معينة باستخدام VBA Macro في Excel (4 طرق)

قراءات مماثلة:

• كيفية طباعة ورقة Excel بحجم A4 (4 طرق)
• كيفية الحفظ الرأس في Excel عند الطباعة (3 طرق)
• Excel VBA: كيفية تعيين منطقة الطباعة ديناميكيًا (7 طرق)
• كيفية طباعة Excel ورقة ذات خطوط (3 طرق سهلة)
• كيفية طباعة الرسم البياني في Excel (5 طرق)

4. قم بتضمين Excel VBA لإنشاء زر طباعة لورقة معينة بنطاق محدد

هنا ، سنقوم بإنشاء زر طباعة لـ طباعة a محددًا النطاق من ورقة محددة .

الخطوات:

• اتبع أولاًخطوتين من القسم الأول لإنشاء الزر وتعيين ماكرو.
• اكتب اسم الماكرو واضغط جديد .

بعد فترة وجيزة ، ستفتح نافذة VBA .

• ثم اكتب الرموز التالية -

6114

• لاحقًا ، ارجع إلى جدول البيانات.

Code Breakdown

• هنا ، قمت بإنشاء إجراء Sub ، SpecificSheetnRange .
• ثم استخدم مع العبارة حدد a محدد
• التالي ، PrintArea = "B2: D11"> سيحدد النطاق من الورقة المحددة وسوف يطبع .

• الآن فقط اضغط على على زر الطباعة .

• قم بتعيين اسم من أجل PDF واضغط حفظ .

إنها الورقة المحددة المطبوعة .

قراءة المزيد: Excel VBA: تعيين منطقة الطباعة لنطاقات متعددة (5 أمثلة)

5. قم بتضمين Excel VBA لإنشاء زر طباعة للورقة النشطة مع النطاق المحدد

أيضًا ، يمكنك تحديد نطاق من الورقة النشطة ويمكنك إنشاء زر الطباعة إلى طباعة باستخدام VBA .

الخطوات:

• اتبع التعليمات أول خطوتين من القسم الأول لإنشاء الزر وتعيين ماكرو .
• لاحقًا ، اكتب اسم الماكرو واضغط جديد .

بعد فترة وجيزة ، VBAسيتم فتح نافذة .

• في نافذة VBA ، اكتب الرموز التالية -

4633

• ثم ارجع إلى الورقة .

Code Breakdown

• هنا ، قمت بإنشاء إجراء Sub ، ActiveSheetnRange .
• ثم استخدم النطاق ("B2: D11"). PrintOut إلى حدد a range and print.

• اضغط على زر الطباعة .

• أعط اسمًا واضغط حفظ .

ثم ستحصل على النطاق المطبوع .

قراءة المزيد: زر Excel لطباعة أوراق محددة (بخطوات سهلة)

الخاتمة

أتمنى أن تكون الإجراءات الموضحة أعلاه سيكون جيدًا بما يكفي لاستخدام رمز VBA لزر الطباعة في Excel. لا تتردد في طرح أي سؤال في قسم التعليقات ويرجى إعطائي ملاحظات.