بسم الله الرحمن الرحيم
اهلا بكم متابعى موقع عالم الاوفيس
ملف كامل عن الطباعة فى الاكسل
درس جديد من دروس اكسل vba وف هذا الدرس سوف نتعرف على جميع اكواد الطباعة المستخدمة فى الاكسيل Excel VBA
من خلال مجموعة الاكواد الموجودة اليوم سوف تساعدك على اتمام جميع مراحل الطباعة بكل سهولة ويسر
1- طباعة التعليقات Print Comments
نستخدم هذا الكود لتنشيط اعددات طباعة التعليقات الموجودة فى الخلايا فى نهاية الصفحة
لنفرض ان لديك 5 صفحات للطباعة وكل صقحة بها مجموعةمن التعليقات بمجرد تنفيذ هذا الكود سيتم طباعة جميع التعليقات فى الصفحة الاخيرة رقم 6.
Sub printComments()
With ActiveSheet.PageSetup
.printComments= xlPrintSheetEnd
End With
End Sub
With ActiveSheet.PageSetup
.printComments= xlPrintSheetEnd
End With
End Sub
2- الطباعة الهامش الضيق (تضييق حدود الصفحة) Print Narrow Margin
من خلال استخدام هذا الكود يتم طباعة الصفحة بهوامش ضيقة وسيتم تلقائيا تغيير حدود الصفحة .
Sub
printNarrowMargin()
With
ActiveSheet.PageSetup
.LeftMargin=
Application
.InchesToPoints(0.25)
.RightMargin=
Application.InchesToPoints(0.25)
.TopMargin=
Application.InchesToPoints(0.75)
.BottomMargin=
Application.InchesToPoints(0.75)
.HeaderMargin=
Application.InchesToPoints(0.3)
.FooterMargin=
Application.InchesToPoints(0.3)
End With
ActiveWindow.SelectedSheets.PrintOutCopies:=1,
Collate:=True,
IgnorePrintAreas:=False
End Sub
3- طباعة النطاق المحدد فقط Print Selection
سيساعدك هذا الكود فى طباعة اى نطاق انت تحددة بنفسك بدون الذهاب الى اعددات الطباعة وتحديد نطاق الطباعة
printSelection()
Selection.PrintOutCopies:=1,
Collate:=True
End Sub
4- طباعة صفحات محددة Print Custom Pages
بدلا من الدخول الى اعدادات الطباعة لتحديد عدد الصفحات التى تريد طباعتها
اليك هذا الكود الذى سيقوم بهذة اعملية بدلا عنك .كل ماعليك هو عند تشغيل الكود سوف يطلب منك تحديد صفحة البدء من خلال ادخال رقم فى Input Box ثم بعد ذلك ادخال رقم صفحة النهاية .
لنفرض ان لديك 10 صفحات للطباعة وتريد ان تطبع ن الصفحة رقم 2 الى الصفحة رقم 5 الان شغل الكود وادخل صفحة البدء وادخل صفحة النهاية .
Selection()
Dim startpageAs
Integer
Dim endpageAs
Integer
startpage=
InputBox("Please Enter Start Page number.", "Enter Value")
If Not
WorksheetFunction.IsNumber(startpage) Then
MsgBox"Invalid
Start Page number. Please try again.", "Error"
Exit Sub
End If
endpage=
InputBox("Please Enter End Page number.", "Enter Value")
If Not
WorksheetFunction.IsNumber(endpage) Then
MsgBox"Invalid
End Page number. Please try again.", "Error"
Exit Sub
End If
Selection.PrintOutFrom:=startpage,
To:=endpage, Copies:=1
Collate:=True
End Sub
وبهذا نكون قد انتهينا من مجموعة الاكواد الخاصة بالطباعة فى الاكسل ماكر excel vba