انتقل إلى المحتوى الرئيسي

كيفية طباعة الأعمدة المحددة معًا في صفحة واحدة في Excel؟

بشكل افتراضي ، يقسم Excel عدة أعمدة محددة إلى صفحات منفصلة أثناء الطباعة. إذا كنت تريد طباعة الأعمدة المحددة معًا على صفحة واحدة ، فماذا ستفعل؟ ستوضح لك هذه المقالة طرق تحقيق ذلك.

اطبع الأعمدة المحددة مع رمز VBA
يمكنك بسهولة طباعة الأعمدة المحددة مع أداة مذهلة


اطبع الأعمدة المحددة مع رمز VBA

يمكنك طباعة عدة أعمدة محددة معًا على صفحة واحدة باستخدام كود VBA. الرجاء القيام بما يلي.

1. صحافة قديم + F11 مفاتيح في نفس الوقت لفتح Microsoft Visual Basic للتطبيق نافذة.

2. في ال Microsoft Visual Basic للتطبيق الإطار، انقر فوق إدراج > وحدة. ثم انسخ والصق رمز فبا التالي في نافذة الوحدة النمطية.

كود فبا: طباعة الأعمدة المحددة معًا

Sub Print_MultiAreas()
	Dim xRg As Range
	Dim xSht As Worksheet
	Dim xArea As Range
	Dim xTxt As String
	On Error Resume Next
	xTxt      = ActiveWindow.RangeSelection.Address
	Set xRg   = Application.InputBox("Please select columns:", "Kutools for Excel", xTxt, , , , , 8)
	If xRg Is Nothing Then Exit Sub
		Set xSht = Worksheets.Add(After: = Sheets(Sheets.Count))
		For Each xArea In xRg.Areas
			xArea.Copy Destination: = xSht.Range(xArea.Address)
			xSht.Range(xArea.Address).Value = xArea.Value
		Next
		xSht.PrintPreview
		'xSht.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False
		Application.DisplayAlerts = False
		xSht.Delete
		Application.DisplayAlerts = True
		xRg.Parent.Activate
	End Sub

3. اضغط على F5 مفتاح لتشغيل الكود. ثم كوتولس ل إكسيل ينبثق مربع الحوار ، يرجى تحديد الأعمدة التي تريد طباعتها واحدًا تلو الآخر مع الاستمرار في الضغط على CTRL مفتاح. وأخيرًا انقر فوق ملف OK زر. انظر لقطة الشاشة:

4. ثم ستحصل على نافذة معاينة قبل الطباعة ، انقر فوق طباعة زر لبدء الطباعة.

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


يمكنك بسهولة طباعة الأعمدة المحددة مع أداة مذهلة

إذا كان من الصعب عليك التعامل مع التعليمات البرمجية لـ VBA ، فيمكنك تجربة ملف معالج الطباعة متعددة التحديدات فائدة كوتولس ل إكسيل. مع هذه الأداة ، يمكنك بسهولة طباعة عدة أعمدة محددة معًا على صفحة واحدة بنقرات عديدة فقط.

قبل التطبيق كوتولس ل إكسيلالرجاء قم بتنزيله وتثبيته أولاً.

1. حدد الأعمدة واحدًا تلو الآخر مع الاستمرار في الضغط على CTRL مفتاح. ثم اضغط كوتولس بلس > الطباعة > معالج الطباعة متعددة التحديدات.

2. في ال معالج طباعة التحديدات المتعددة - الخطوة 1 من 3 في مربع الحوار ، يتم سرد جميع الأعمدة المحددة في مربع القائمة ، يرجى النقر فوق نهاية .

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

ملاحظات: إذا كنت تريد تحديد إعدادات الطباعة ، فالرجاء النقر فوق التالى في هذه الخطوة 1 من 3 مربع حوار ، ثم حدد الإعدادات حسب حاجتك كما هو موضح أدناه.

  إذا كنت ترغب في الحصول على نسخة تجريبية مجانية (30 يومًا) من هذه الأداة المساعدة ، الرجاء الضغط لتنزيلهثم انتقل لتطبيق العملية حسب الخطوات المذكورة أعلاه.

أفضل أدوات إنتاجية المكتب

الميزات الشعبية: البحث عن التكرارات أو تمييزها أو تحديدها   |  حذف الصفوف الفارغة   |  دمج الأعمدة أو الخلايا دون فقدان البيانات   |   جولة بدون صيغة 
سوبر بحث: معايير متعددة VLookup    VLookup ذات القيمة المتعددة  |   VLookup عبر أوراق متعددة   |   بحث غامض ....
قائمة منسدلة متقدمة: إنشاء القائمة المنسدلة بسرعة   |  القائمة المنسدلة التابعة   |  قائمة منسدلة متعددة التحديد ....
مدير العمود: إضافة عدد محدد من الأعمدة  |  نقل الأعمدة  |  تبديل حالة رؤية الأعمدة المخفية  |  مقارنة النطاقات والأعمدة 
الميزات المميزة: التركيز على الشبكة   |  عرض تصميم   |   شريط الفورمولا الكبير    مدير المصنفات والأوراق   |  مكتبة الموارد (النص السيارات)   |  منتقي التاريخ   |  اجمع أوراق العمل   |  تشفير/فك تشفير الخلايا    إرسال رسائل البريد الإلكتروني عن طريق القائمة   |  سوبر تصفية   |   مرشح خاص (تصفية غامق / مائل / يتوسطه خط ...) ...
أفضل 15 مجموعة أدوات12 نص الأدوات (إضافة نص, إزالة الأحرف، ...)   |   +50 رسم الأنواع (مخطط جانت، ...)   |   40+ عملي الصيغ (احسب العمر على أساس تاريخ الميلاد، ...)   |   19 إدخال الأدوات (أدخل رمز الاستجابة السريعة, إدراج صورة من المسار، ...)   |   12 تحويل الأدوات (أرقام إلى كلمات, نتيجة تحويل عملة، ...)   |   7 دمج وتقسيم الأدوات (الجمع بين الصفوف المتقدمة, تقسيم الخلايا، ...)   |   ... و اكثر

عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت.  انقر هنا للحصول على الميزة التي تحتاجها أكثر...

علامة تبويب kte 201905


يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير

  • تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
  • فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
  • يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations