اذهب الي المحتوي
أوفيسنا

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


mhmgly1
إذهب إلى أفضل إجابة Solved by سليم حاصبيا,

الردود الموصى بها

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

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

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

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

رابط هذا التعليق
شارك

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

 

رابط هذا التعليق
شارك

زائر
هذا الموضوع مغلق.
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information