Jump to content
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


Go to solution Solved by سليم حاصبيا,

Recommended Posts

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

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

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

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

Link to post
Share on other sites

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

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

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

  • Like 1
Link to post
Share on other sites

mhmgly1

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

Link to post
Share on other sites
  • Ali Mohamed Ali changed the title to طلب كود طباعة مطاطى للفاتورة

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

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

()sub test

 ثم متغير dim lr

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

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

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

End sub

 

Link to post
Share on other sites
  • Solution

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

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

 

Link to post
Share on other sites
Guest
This topic is now closed to further replies.
  • Recently Browsing   0 members

    No registered users viewing this page.

×
×
  • Create New...