| لوحة التميز الأسبوعي | |||||
| العضو المتميز | المشرف المتميز | المراقب المتميز | المدير المتميز | الموضوع المتميز | القسم المتميز |
|
|
|
|
|
|
| mmagedmemo |
ali mohamed ali
|
لا تميز خلال هذه الفترة | لا تميز خلال هذه الفترة | كيفية عمل تسلسل من رقم بداية إلى رقم نهاية وطباعتها بخطوة واحدة | اكسيل اسئله واجابات |
Function HdrFtr(sText As String, _
Optional ByVal sFont As String, _
Optional iColor As Long, _
Optional iFontSize As Long) As String
Dim sColor As String
Dim sFontSize As String
If Len(sFont) Then sFont = "&""" & sFont & """"
If Abs(iFontSize) Then sFontSize = "&" & Abs(iFontSize)
If iColor <> 0 Then
sColor = "&K" & _
Right("0" & Hex(iColor And &HFF), 2) & _
Right("0" & Hex(iColor &H100 And &HFF), 2) & _
Right("0" & Hex(iColor &H10000 And &HFF), 2)
End If
HdrFtr = sFont & sFontSize & sColor & sText
End Function
Sub Header_Footer()
Application.ScreenUpdating = False
Dim ws As Worksheet
Set ws = Sheet1
ws.PageSetup.LeftHeader = HdrFtr(ws.Range("h2").Value, "Calibri,Regular", vbBlue, 18)
ws.PageSetup.CenterHeader = HdrFtr(ws.Range("g2").Value, "Calibri,Regular", vbBlue, 18)
ws.PageSetup.RightHeader = HdrFtr(ws.Range("f2").Value, "Calibri,Regular", vbBlue, 18)
ws.PageSetup.LeftFooter = HdrFtr(Format(ws.Range("h3").Value, "yyyy/mm/dd"), "Calibri,Regular", vbBlue, 18)
ws.PageSetup.CenterFooter = HdrFtr(ws.Range("g3").Value, "Calibri,Regular", vbBlue, 18)
ws.PageSetup.RightFooter = HdrFtr(ws.Range("f3").Value, "Calibri,Regular", vbBlue, 18)
Application.ScreenUpdating = True
End Sub
Application.ScreenUpdating = False
Dim ws As Worksheet
Set ws = Sheet1
تحميل محتوى الموضوع
عرض نسخة صالحة للطباعة
أرسل هذا الموضوع إلى صديق ws.PageSetup.LeftHeader = HdrFtr(ws.Range("h2").Value, "Calibri,Regular", vbBlue, 18)
ws.PageSetup.CenterHeader = HdrFtr(ws.Range("g2").Value, "Calibri,Regular", vbBlue, 18)
ws.PageSetup.RightHeader = HdrFtr(ws.Range("f2").Value, "Calibri,Regular", vbBlue, 18)
ws.PageSetup.LeftFooter = HdrFtr(Format(ws.Range("h3").Value, "yyyy/mm/dd"), "Calibri,Regular", vbBlue, 18)
ws.PageSetup.CenterFooter = HdrFtr(ws.Range("g3").Value, "Calibri,Regular", vbBlue, 18)
ws.PageSetup.RightFooter = HdrFtr(ws.Range("f3").Value, "Calibri,Regular", vbBlue, 18)
Application.ScreenUpdating = True
End Subws.PageSetup.LeftHeader = HdrFtr(ws.Range("h2").Value, "Calibri,Regular", vbBlue, 18ws.PageSetup.LeftFooter = HdrFtr(Format(ws.Range("h3").Value, "yyyy/mm/dd"), "Calibri,Regular", vbBlue, 18)Sub print_priv()
Application.ScreenUpdating = False
Header_Footer
ActiveSheet.Range("a2:d23").Select
ActiveSheet.PageSetup.PrintArea = "$a$2:$d$23"
ActiveWindow.SelectedSheets.PrintPreview
Application.ScreenUpdating = True
End Sub
[1]
تحديد رأس وتذيل صفحة الطباعة برمجيا
[3]
تحديد رأس وتذيل صفحة الطباعة برمجياالمشاركة الأصلية كتبت بواسطة: YasserKhalil
بارك الله فيك أخي الحبيب محمود أبو الدهب وجزاك الله خيراً
واصل بلا فواصل .. هكذا ترتقي
[5]
تحديد رأس وتذيل صفحة الطباعة برمجيا| الصفحة 1 من 5 | < | 1 | 2 | 3 | 4 | 5 | > | الأخيرة » |
|
الكلمات الدلالية
|
| يحديد ، وتذيل ، صفحة ، الطباعة ، برمجيا ، تحديد ، صفحة ، الطباعة ، برمجيا ، vba code for ، |
| اخلاء مسئولية: يخلى منتدى أكاديمية الصقر للتدريب مسئوليته عن اى مواضيع او مشاركات تندرج داخل الموقع ويحثكم على التواصل معنا ان كانت هناك اى إنتهاكات تتضمن اى انتهاك لحقوق الملكية الفكرية او الادبية لاى جهة - بالتواصل معنا من خلال نموذج مراسلة الإدارة .وسيتم اتخاذ الاجراءات اللازمة. |
| سياسة النشر: التعليقات المنشورة لا تعبر عن رأي منتدى أكاديمية الصقر للتدريب ولا نتحمل أي مسؤولية قانونية حيال ذلك ويتحمل كاتبها مسؤولية النشر. |
