كود تصغير الخط عند الطباعه لايعمل

مغلقمُجاب

بدأه pkha201 في 23 سبتمبر 2013 · 3 رد · 422 مشاهدة · في قواعد بيانات Microsoft Access

#123 سبتمبر 2013 في 17:08 صاحب الموضوع

السلام عليكم ،،،

ارجو المساعده في حل مشكلتي حيث انني عملت تقرير به كود لتصغير الخط في الحقل كهذا المثال :

Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
If Len(Me.ClientCompany) > 30 Then
Me.ClientCompany.FontSize = 6
Else
Me.ClientCompany.FontSize = 11
End If
End Sub

حيث يعمل الكود عند العرض ويتم تصغير الخط ، ولكن المشكله عند الطباعه الكود لايعمل . فما الحل ؟

تم تعديل هذه المشاركة بواسطة pkha201 في 23 سبتمبر 2013 في 17:09

#223 سبتمبر 2013 في 18:59 أفضل إجابة

اخي الفاضل

السلام عليكم ورحمة الله وبركاته

اضف هذا الكود ايضا الى التقرير لحدث عند الطباعة

Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer)
If Len(Me.ClientCompany) > 30 Then
Me.ClientCompany.FontSize = 6
Else
Me.ClientCompany.FontSize = 11
End If
End Sub

بالتوفيق

post-15367-087183200%201340344597.gif