طلب كود طباعة مطاطى للفاتورة

[mhmgly1]

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

عندى ملف عمل يحتوى على مكرو   زر  طباعة  بامتداد معين 

البيانات  تزيد ونحتاج  على كود  مطاطى حتى  يتسنا طباعة   التقرير كلما زادت البيانات يتم الطباعة من نفس الزر كلما زادت البيانات 

وشكر للجميع مقدما 

[محمد طاهر عرفه]

هذا القسم مخصص لملاحظات و الاقتراحات

سيتم نقل الموضوع لقسم الاكسيل

كما يرجى توضيح الطلب

[هانى محمد]

mhmgly1

لا تنتظر المساعدة من أحد بدون رفع ملف مدعوم بشرح كافى عن المطلوب فلا يمكن العمل على التخمين وتجنباً لعدم اهدار واضاعة وقت كل من يطلع على مشاركتك دون جدوى أو أهمية ؟!!!

[حسين مامون]

لنفترض ان البيانات في العمود a1:e

اولا نكتب اسم الماكرو  

()sub test

 ثم متغير dim lr

Lr = cells(rows.count,"a").end(xlup).row

ثم الجزء الذي سيطبع البانات من اول صف الى اخر خلية فيها بيانات

Range("a1:e"&lr).printout

End sub

 

[سليم حاصبيا]

بعد اذن الأخ حسين

PrintOut  ليست من خصائص الــــ Range

بل هي من حصائص الـــ Sheet لذلك بهذه الطريقة تحصل على خطأ  (أعنقد ذلك لكن لم اتحقق) 

الكود الصحيح

Option Explicit

Sub Print_Out()
Dim lr%
With ActiveSheet
lr = .Cells(Rows.Count, "a").End(xlUp).Row
.PageSetup.PrintArea = Range("a1:e" & lr).Address
.PrintOut
End With
End Sub