كيف يمكن ضبط منطقة الطباعة لتشمل العمود المحدد حتى آخر صف فيه في Excel؟
في Excel، يتم افتراضيًا تعيين منطقة الطباعة لتغطية ورقة العمل بأكملها حتى آخر صف يحتوي على بيانات. ولكن إذا كنت ترغب في طباعة الأعمدة من A إلى C فقط — حتى آخر صف يحتوي على بيانات — مع استبعاد أي بيانات في الأعمدة التي تلي العمود C، كما يظهر في لقطة الشاشة أدناه، فهل توجد طرق للتعامل مع هذا؟
ضبط منطقة الطباعة إلى الصف الأخير التي تحتوي على بيانات باستخدام طباعة التحديد
ضبط منطقة الطباعة إلى الصف الأخير التي تحتوي على بيانات باستخدام VBA
| ورقة عمل تحتوي على بيانات تمتد حتى العمود I | معاينة الطباعة تُظهر البيانات حتى العمود C فقط |
 |  |
ضبط منطقة الطباعة إلى الصف الأخير التي تحتوي على بيانات باستخدام طباعة التحديد
لطباعة تحديد معين حتى آخر صف يحتوي على بيانات، غيّر منطقة الطباعة إلى هذا التحديد قبل البدء بالطباعة.
1. اضغط مع الاستمرار على مفتاحCtrl، ثم حدد الأعمدة التي تريد طباعتها. انظر لقطة الشاشة:
2. انقر فوقFile > Print، ثم اخترطباعة التحديدمن قسمSetting. انظر لقطة الشاشة:
ضبط منطقة الطباعة إلى الصف الأخير التي تحتوي على بيانات
أقدّم هنا كود ماكرو لأتمتة هذه العملية أيضًا.
1. فعّل الورقة التي تستخدمها، ثم اضغط على مفاتيحAlt + F11 لفتح نافذةMicrosoft Visual Basic for Applications، وانقر بعد ذلك علىInsert > Module. انظر لقطة الشاشة.
2. الصق الكود أدناه في نصModule، ثم اضغط على مفتاحF5 لتنفيذه.
VBA: ضبط المنطقة إلى الصف الأخير
'UpdatebyExtendoffice20170811
Dim xRg As Range
Dim xRgLRow As Long
Dim xRgAddress As String
On Error Resume Next
xRgAddress = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Select a range：", "KuTools For Excel", xRgAddress, , , , , 8)
xRg.Select
xRgLRow = xRg.SpecialCells(xlCellTypeLastCell).Row
xRgAddress = Left(xRg.Address(1, 1), Len(xRg.Address(1, 1)) - 2)
xRgAddress = xRgAddress & xRgLRow
ActiveSheet.PageSetup.PrintArea = xRgAddress
End Sub
3. تظهر نافذة منبثقة لتذكيرك بتحديد نطاق الأعمدة الذي ترغب في استخدامه. انظر لقطة الشاشة:
4. انقر فوقOK، ثم تم ضبط منطقة الطباعة.
أفضل أدوات الإنتاجية لمكتبتك
عزِّز مهاراتك في Excel باستخدام Kutools لـ Excel، وعايش الكفاءة كما لم تفعل من قبل.يقدّم Kutools لـ Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية ووقت الحفظ.انقر هنا للحصول على الميزة التي تحتاجها أكثر من غيرها...
يجلب Office Tab واجهة ذات علامات تبويب إلى Office، ويجعل عملك أسهل بكثير
- تمكّن من التحرير والقراءة باستخدام علامات التبويب في Word وExcel وPowerPoint، وPublisher وAccess وVisio وProject.
- افتح وأنشئ مستندات متعددة في علامات تبويب جديدة داخل النافذة نفسها، بدلاً من فتح نوافذ جديدة.
- يزيد إنتاجيتك بنسبة 50% ويوفّر لك مئات نقرات الفأرة كل يوم!
جميع الإضافات من Kutools في برنامج تثبيت واحد!
Kutools for Office حزمةٌ تحتوي على إضافاتٍ مخصصة لتطبيقات Excel وWord وOutlook وPowerPoint، إلى جانب Office Tab Pro، مما يجعلها الخيار المثالي للفِرق التي تعمل عبر تطبيقات Office.
- حزمة شاملة واحدة— إضافات Excel وWord وOutlook وPowerPoint بالإضافة إلى Office Tab Pro
- برنامج تثبيت واحد، ترخيص واحد— الإعداد خلال دقائق (جاهز لـ MSI)
- يعمل بشكل أفضل معًا— إنتاجية ميسَّرة عبر تطبيقات Office
- تجربة مجانية لمدة 30 يومًا بكامل الميزات— بدون تسجيل، بدون بطاقة ائتمان
- أفضل قيمة— وفِّر مقارنةً بشراء الإضافات بشكل منفصل