كود لطباعة صفحة واحدة

[Ali994m]

السلام عليكم

اذا ممكن المساعدة في شرح اضافة أمر لطباعة الصفحة الاولى فقط للزر Print

كما نبهنا كثيرا من قبل وطالما تريد العمل بالأكواد فكان عليك لزاماً رفع الملف بإمتداد Xlsm , وذلك تجنباً لعدم اهدار وقت الأساتذة

وجزاكم الله كل خير

 

 

المصنف1.xlsm

[Ali Mohamed Ali]

وعليكم السلام-تم اضافة و تجربة الكود على الطابعة ويعمل كما تريد

Option Explicit
Sub PrintFirstPage()
Dim sh As Worksheet
For Each sh In Sheets
sh.PrintOut 1, 1, 1, , , , True, , False
Next sh
End Sub

وهذا ايضاً كود اخر  حتى يكون لديك عدة اختيارات وعدة بدائل

Sub PrintAllFirstPage()
'Update 20140924
Dim xWs As Worksheet
For Each xWs In Application.ActiveWorkbook.Worksheets
    xWs.PrintOut from:=1, To:=1
Next
End Sub

 

Print First Page Only.xlsm

[Ali994m]

جزاك الله كل خير

 

[Ali994m]

السلام عليكم 

أخي حدثت مشكلة في أن الطباعة تمت للصفحة الأولى من الورقة النشطة. الملف الأصلي يضم ثلاث ورقات يرجى المساعدة في تعديل الكود لتتم الطباعة للصفحة الأولى من الورقة المحددة في الكود مثلاً كالورقة Report

تعذر رفع الملف الأصلي الذي يضم ثلاث ورقات بسبب حجمه الكبير

وجزاكم الله كل خير

[Ali Mohamed Ali]

بسيطة -طالما انك تريد  طباعة الصفحة الأولى من شيت report فعليك بهذا الكود , وهذا بالفعل ما تريد الذى يخص صفحة بعينها من الملف

Sub PrintAllFirstPage()
Dim xWs As Worksheet
Set xWs = Sheets("report")
    xWs.PrintOut from:=1, To:=1
End Sub