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

هنا سأتحدث عن طباعة عدة صفوف محددة في صفحة واحدة باستخدام VBA في Excel. يرجى القيام بما يلي:

1. اضغط على مفتاحي Alt + F11 معًا لفتح نافذة Microsoft Visual Basic for Applications.

2. انقر فوق إدراج > وحدة، ثم الصق الكود التالي VBA في نافذة الوحدة الجديدة.

VBA: طباعة عدة صفوف محددة في صفحة واحدة في Excel

Sub Extract_to_Print()
Dim Rg As Range, Rg1 As Range, Rg2 As Range
Dim xAddress As String
Dim xSht As Worksheet
Dim I As Long
Dim xScreenUpdate As Boolean
Dim xAlert As Boolean
On Error Resume Next
xAddress = Application.ActiveWindow.RangeSelection.Address
Set Rg = Application.InputBox("Please select ranges you will print:", "Kutools for Excel", xAddress, , , , , 8)
If Rg Is Nothing Then Exit Sub
xScreenUpdate = Application.ScreenUpdating
xAlert = Application.DisplayAlerts
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set xSht = ThisWorkbook.Worksheets.Add
I = 1
For Each Rg1 In Rg.Areas
Rg1.Copy xSht.Range("A" & I)
I = I + Rg1.Rows.Count
Next
xSht.PrintOut
xSht.Delete
Application.ScreenUpdating = xScreenUpdate
Application.DisplayAlerts = xAlert
End Sub

3. اضغط على مفتاح F5 أو انقر فوق زر التشغيل لتشغيل هذا الكود VBA.

4. الآن تظهر نافذة حوار Kutools لـ Excel. يرجى تحديد عدة صفوف ستقوم بطباعتها، ثم انقر فوق الزر موافق لطباعة هذه الصفوف.

ملاحظة: بالضغط مع الاستمرار على مفتاح Ctrl، يمكنك تحديد عدة صفوف غير متجاورة في نفس الوقت.

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

1. قم بإنشاء ورقة عمل جديدة، ثم حدد الصفوف التي تريد طباعتها من الجدول الخاص بك، واضغط على Kutools > نطاق > نسخ النطاقات.

ملاحظة: بالضغط مع الاستمرار على مفتاح Ctrl، يمكنك تحديد عدة صفوف غير متجاورة في نفس الوقت.

2. في نافذة الحوار نسخ نطاقات متعددة المنبثقة، حدد الخيار الكل، ثم انقر فوق الزر موافق.

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

3. حدد الخلية A1 في ورقة العمل الجديدة، ثم انقر فوق الزر موافق.

4. ابقَ في ورقة العمل الوجهة، واضغط على Kutools > حذف > حذف الصفوف الفارغة > في ورقة العمل النشطة.

ثم تظهر نافذة حوار تعرض لك عدد الصفوف التي تم حذفها. فقط أغلقها.

5. انقر فوق ملف (أو زر Office) > طباعة لطباعة هذه الصفوف.

في الواقع، قامت Kutools لـ Excel بتصميم معالج طباعة التحديدات المتعددة لطباعة نطاقات متعددة معًا في Excel.

1. انقر فوق Kutools Plus > طباعة > معالج طباعة التحديدات المتعددة لفتح معالج طباعة التحديدات المتعددة.

2. في معالج طباعة التحديدات المتعددة الذي يفتح، انقر إضافة زر  لإضافة الصفوف التي ستقوم بطباعتها معًا، ثم انقر على إنهاء زر.

ملاحظات:

(1) بعد النقر على إضافة زر , يمكنك تحديد نطاقات متعددة غير متصلة في ورقة عمل واحدة بالضغط مع الاستمرار على Ctrl مفتاح ثم اختيارها واحدة تلو الأخرى؛

(2) لإزالة نطاق/صف من قائمة النطاقات للطباعة ، ما عليك سوى تحديد هذا النطاق/الصف والنقر على حذف زر.

(3) لا تدعم هذه الأداة طباعة الصفوف والأعمدة بأكملها، مثل الصف الكامل $4:$4 أو العمود الكامل $B:$B.

3. تم لصق الصفوف/النطاقات المحددة كصور مرتبطة في ورقة عمل جديدة. تابع النقر فوق ملف (أو زر Office) > طباعة لطباعتها.