كيف يمكنك طباعة صفوف محددة متعددة على صفحة واحدة في 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 أو انقر زرتشغيللتشغيل هذا الكود.

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) > طباعة.