اكسيل / ملف كامل جميع اكواد الطباعة فى الماكرو Printing Codes In Excel VBA

بسم الله الرحمن الرحيم
اهلا بكم متابعى موقع عالم الاوفيس

ملف كامل عن الطباعة فى الاكسل 

درس جديد من دروس اكسل vba وف هذا الدرس سوف نتعرف على جميع اكواد الطباعة المستخدمة فى الاكسيل Excel VBA
من خلال مجموعة الاكواد الموجودة اليوم سوف تساعدك على اتمام جميع مراحل الطباعة بكل سهولة ويسر



1- طباعة التعليقات   Print Comments


نستخدم هذا الكود لتنشيط اعددات طباعة التعليقات الموجودة فى الخلايا  فى نهاية الصفحة
لنفرض ان لديك 5 صفحات للطباعة وكل صقحة بها مجموعةمن التعليقات  بمجرد تنفيذ هذا الكود سيتم طباعة جميع التعليقات فى الصفحة الاخيرة رقم 6.

Sub printComments()
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



Emad ghazi
كاتب المقالة
كاتب ومحرر اخبار اعمل في موقع عالم الاوفيس .

جديد قسم : اكسل متقدم

إرسال تعليق