كود لطبع عدد مخصص من الاعمدة

[خالد ابوعوف]

السلام عليكم - حياكم الله

محتاج كود لطبع عدد معين من الاعمدة على أن يكون العمود الاول( العنوان الرئيسي)  ثابت يطبع مع كل اختيار

جزيتم خيرا

 

 

كود لطبع عدد مخصص من الاعمدة.xlsx

تم تعديل مايو 3, 2019 بواسطه خالد ابوعوف

[بن علية حاجي]

السلام عليكم ورحمة الله

يمكن ذلك جدا ولكن باستعمال خاصية إخفاء / إظهار الأعمدة، لأنه لا يمكن طباعة أعمدة غير متجاورة، مثلا العمود A والأعمدة المختارة 15-22، في صفحة واحدة إلا باستعمال هذه الخاصية وذلك بإخفاء الأعمدة من 2 إلى 14. مع العلم أنه يمكن القيام بذلك برمجيا (عن طريق كود).... والله أعلم

بن علية حاجي

[سليم حاصبيا]

ممكن هذا الحل باستعمال شيت مساعد (الملف مرفق)

الماكرو

Option Explicit

Sub Pprint_Sames_columns()
 Dim xRg
 Dim arr
 Dim i%, r%, m%: m = 1
 r = Sheets("salim").Range("a1").CurrentRegion.Rows.Count
 Sheets("Print_sheet").Cells.Clear
   xRg = Application.InputBox(" أكتب أرقام الأعمدة مع فاصلة بين كل رقم والذي يليه", "المطلوب أرقام الأعمدة", Type:=2)
    arr = Split(xRg, ",")
    For i = LBound(arr) To UBound(arr)
    If IsNumeric(arr(i)) Then
      Sheets("salim").Cells(1, Int(CInt(arr(i)))).Resize(r).Copy _
      Sheets("Print_sheet").Cells(1, m)
      m = m + 1
    End If
   Next
Sheets("Print_sheet").PrintPreview
End Sub

 

Print Same Colmns.xlsm

[وجيه شرف الدين]

بارك الله فيكم استاذ سليم ما شاء الله عمل روعة

[خالد ابوعوف]

جزيت خيرا  استاذ سليم

هو المطلوب