مساعدة في كود الطباعة

[Hks99]

السلام عليكم .....

اجوا المساعدة في كود الطباعة بحيث اولا يكون مدى الطباعة مطاطي

ثانيا تكون العناوين موجودة اعلى كل صفحة يتم طبعتها 

SERIAL NO

IC DATE

A/C NO

RECEIVE DATE

TEST

ISSUE DATE

WEEKS

DUE DATE

SECTION

 

ولكم جزيل الشكر

ESSA.xls

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

جرب هذا الكود

Option Explicit
Sub Print_Areas()
With Sheets("List")
 Dim lr%: lr = .Cells(Rows.Count, 1).End(3).Row
 With .PageSetup
 .PrintArea = Range("a1:I" & lr).Address
 .PrintTitleRows = "$1:$2"
 End With
 End With
End Sub

الملف مرفق

 

ESSA_new.xls

[Hks99]

مشكوووووور كثير استاذي 

بارك الله فيك وجعله في ميزان حسناتك 

الله يزيدك من علمه ♥️