طباعة مجموعات متعددة من التحديدات (جميع مناطق الطباعة) على صفحة واحدة في Excel

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

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

2. انقر إدراج > وحدة، ثم الصق رمز فبا أدناه في نافذة الوحدة النمطية الافتتاحية الجديدة.

فبا: طباعة عدة صفوف محددة على صفحة واحدة في إكسيل

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. الآن ينبثق مربع حوار كوتولس ل إكسيل. الرجاء تحديد عدة صفوف ستتم طباعتها ، وانقر فوق OK زر لطباعة هذه الصفوف.

ملاحظة: يحمل العلم CTRL المفتاح ، يمكنك تحديد عدة صفوف غير متجاورة في نفس الوقت.

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

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

ملاحظة: يحمل العلم CTRL المفتاح ، يمكنك تحديد عدة صفوف غير متتالية في نفس الوقت.

2. في مربع الحوار "نسخ نطاقات متعددة" ، حدد جميع الخيار، وانقر فوق Ok .

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

3. حدد الخلية A1 في ورقة العمل الجديدة التي تم إنشاؤها ، وانقر فوق OK زر.

4. ابق في ورقة العمل الوجهة ، وانقر فوق كوتولس > حذف > حذف الصفوف الفارغة > في الورقة النشطة.

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

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

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

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

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

الملاحظات:

(1) بعد النقر فوق ملف أضف زر ، يمكنك تحديد عدة نطاقات غير متتالية في ورقة عمل واحدة بالضغط على CTRL مفتاح ثم اختيارهم واحدًا تلو الآخر ؛

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

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

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