بحث مخصص من جوجل فى أوفيسنا
Custom Search
|
البحث في الموقع
Showing results for tags 'كود طباعة راس وتذييل الصفحة'.
تم العثور علي 1 نتيجه
-
السلام عليكم الكود المرفق هو لطباعة راس وتذييل الصفحةمن خلايا محددة هل يمكن تعديله او اي كود اخر يقوم بعمل راس وتذييل صفحة فردية واخرى زوجية تختلف احدهما عن الاخرى شكرا للجميع وبارك الله في جهودكم الطيبة (Private Sub Workbook_BeforePrint(Cancel As Boolean) With ActiveSheet.PageSetup .RightHeader = Sheets("Sheet1").Range("A1").Value & Chr(13) & Sheets("Sheet1").Range("A2").Value .CenterHeader = Sheets("Sheet1").Range("b1").Value & Chr(13) & Sheets("Sheet1").Range("b2").Value .LeftHeader = Sheets("Sheet1").Range("c1").Value & Chr(13) & Sheets("Sheet1").Range("c2").Value .RightFooter = Sheets("Sheet1").Range("A3").Value & Chr(13) & Sheets("Sheet1").Range("A4").Value .CenterFooter = Sheets("Sheet1").Range("b3").Value & Chr(13) & Sheets("Sheet1").Range("b4").Value .LeftFooter = Sheets("Sheet1").Range("c3").Value & Chr(13) & Sheets("Sheet1").Range("c4").Value End With End Sub) صفحات فردية وزوجية مختلفة.rar