التحكم فى نطاق الطباعة فى اخر عمود للبيانات

[ابوحمزه المصرى]

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

اسعد الله اوقاتكم اخوانى اعضاء اوفيسنا

هل يمكن ربط نظاق الطباعة بأخر بيانات فى الاعمده

lc = Range("b2").End(xlToRight).row
ActiveSheet.PageSetup.PrintArea = "$b$2:$R$25"

حيث ان عمود الـR  فى المثال غير ثابت فى امتداد البيانات المسجله فى الشيت

[إبراهيم ابوليله]

اخى ابو حمزه

جرب الكود الاتى

Sub Set_Print_Area()
'كود ملائمة الطابعه
Application.ScreenUpdating = False
'Sheets("PRINT").Select
With ActiveSheet
With .PageSetup
'.CenterFooter = "صفحة &L من &J" ' اظهار كلمه صفحه من الى
  .PrintTitleRows = "$3:$3" ' تثبيت عنوان رأس كل صفحة والذي هو أول صف
  .Zoom = False ' تفعيل مربع ملاءمة الصفحة
  .FitToPagesWide = 1 ' 1 = تفعيل ملاءمة عرض الصفحات 0 = عدم تفعيل ملاءمة عرض الصفحات
  .FitToPagesTall = False ' False  = عدم تفعيل ملاءمة الصفحات طولياً True = تفيل ملاءمة طولياَ أي البيانا في ورقة فقط
End With
'With .Range("A1:I60000")
  '.Select
  '.AutoFilter
  '.AutoFilter Field:=2, Criteria1:=">""", Operator:=xlAnd
   'ActiveSheet.PrintPreview
  '.AutoFilter: [a1].Select
'End With
End With
Application.ScreenUpdating = True
End Sub

تقبل تحياتى

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

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

جرب ما يلي :

lc = Range("IV2").End(xlToLeft).Column
Set Rng = Range(Cells(2, 2), Cells(25, lc))
ActiveSheet.PageSetup.PrintArea = Rng.Address

أو

lc = Range("IV2").End(xlToLeft).Column
ActiveSheet.PageSetup.PrintArea = Range(Cells(2, 2), Cells(25, lc)).Address

 

تم تعديل أبريل 18, 2016 بواسطه بن علية حاجي

[ابوحمزه المصرى]

اخى الفاضل ابراهيم ابو ليله بارك الله فيك على الاهتمام و المشاركه الطيبه

اخى الفاضل بن علية حاجي حل ممتاز كدت ان اتوصل اليه لولا address. التى حالت بينى وبين الحل ... شكراً جزيلا وبارك الله فيك وزادك علماً

 

تم تعديل أبريل 18, 2016 بواسطه ابو حمزه المصرى