طباعة أفقية خاصة

[dah_med]

السلام عليكم

إخواني في المنتدى

عندي ملف خاص بالمستخدمين الموجود بالمرفقات و المطلوب هو ماكرو لطباعة الصفحات أوفقيا مع توقف الطباعة عند أخر موظف مكتوب. علما أن هناك صفحات بها معدلات في بعض الأعمدة لا أحتاج طباعتها مادام فارغة

أخوكم محمد.د

مستخدمي المدارس الابتدائية.rar

تم تعديل نوفمبر 20, 2013 بواسطه دغيدى

[دغيدى]

أخى الكريم

الأمر هين

ولكن عدد الأعمدة كثير جدا برجاء تحديد متحتويات الطباعة ( الأعمدة التى تريد ان تظهر فى الطباعة)

[dah_med]

أخي دغيدي

المطلوب طباعة جميع الأعمدة فهذه الويثيقة خاصة للمراقبة

هل من حل

 

 

 

 

 

 

[دغيدى]

ممكن ولكن البيانات لا تكون ظاهرة

[عبد الله-بلال]

أخي الدغيدي جزاكم الله خير

نعم أخي الدغيدي في بعض الأحيان نحتاج إلى طباعة أعمدة كثيرة فهل من حل ؟ و جزاكم الله خيرا

[dah_med]

أخي دغيدى

لا يهم ظهرها لمهم ظهرها وطباعتها في الورق

[عبدالله باقشير]

أخي دغيدى

لا يهم ظهرها لمهم ظهرها وطباعتها في الورق

 

جرب الكود التالي

Sub Macro1()
Dim Lr As Long
Application.PrintCommunication = False
With ActiveSheet.PageSetup
    .PrintTitleRows = "$1:$9"
    .Zoom = False
    .FitToPagesWide = 1
    .FitToPagesTall = False
End With
Application.PrintCommunication = True
    
Lr = Cells(Rows.Count, "B").End(xlUp).Row
Lr = WorksheetFunction.Count(Range("B10:B" & Lr))
If Lr Then
    Range("B10").Resize(Lr, 51).PrintPreview
End If
End Sub

تحياتي

[dah_med]

السلام عليكم

أخي عبد الله

لقد أدرجت الكود في الملف لكنه يظهر خطأ

أنظر الملف

مستخدمي المدارس الابتدائية.rar

[عبدالله باقشير]

السلام عليكم

أخي عبد الله

لقد أدرجت الكود في الملف لكنه يظهر خطأ

أنظر الملف

 

هذ لاكسل 2003

Sub Macro_print()
Dim Lr As Long
With ActiveSheet.PageSetup
    .PrintTitleRows = "$1:$9"
    .Zoom = False
    .FitToPagesWide = 1
    .FitToPagesTall = False
End With
    
Lr = Cells(Rows.Count, "B").End(xlUp).Row
Lr = WorksheetFunction.Count(Range("B10:B" & Lr))
If Lr Then
    Range("B10").Resize(Lr, 51).PrintPreview
End If
End Sub

تحياتي