تحقق شرط عند الطباعة

[husseinharby]

السلام عليكم

لدى تقرير يعرض الخط bold

اريد كود عند الطباعة ان يتحول الخط الي italic

او بأختصار 

عند العرض يكون الخط bold

وعند الطباعة يكون الخط italic

تم تعديل أغسطس 6, 2021 بواسطه husseinharby

[د.كاف يار]

في ازرار الطباعة ضع الكود التالي قبل تنفيذ امر الطباعة

و لا تنسى تغيير اسم التقرير 

تعيين نوع الخط للتسمية و مربع النص

Dim ctl As Control
For Each ctl In Reports!Report1.Controls
    If TypeName(ctl) = "TextBox" Then
        Reports!Report1.Controls(ctl.Name).FontName = "Arial"
    End If
    
    If TypeName(ctl) = "acLabel" Then
        Reports!Report1.Controls(ctl.Name).FontName = "Arial"
    End If
    
Next ctl

 

[husseinharby]

شكرا اخى الفاضل