امر طباعة

[Emad Karali]

Sub Purchases_Today_Print()

Sheet27.[d1:k38].PrintOut

End Sub

السلام عليكم ممكن كود امر طباعة معقد شوية كود امر طباعة من d9 الى اخر خلية فيها بيانات اتمنى مساعدتكم

تم تعديل يونيو 20, 2017 بواسطه 3mda.v8

[Emad Karali]

ممكن المساعدة

[خالد الرشيدى]

السلام عليكم

تفضل اخي الكريم عل هذا ما تقصد

Sub K_print()
'C من الصف 9 الى اخر صف به بيانات بالعمود   D9:K طباعة النطاق
        'printpreview  بـــ PrintOut  ان اردت المعاينه قبل الطباعه استبدل 
       Range("D9:K" & Cells(Rows.Count, "c").End(xlUp).Row).PrintOut
End Sub

 

[Emad Karali]

شكرا اخي خالد الله يجزاك خير هوا المطلوب