17/10/2018, 09:39
ozanakkaya
Merhaba, kod içerisinde
şeklinde satır var. bunun üzerine
şeklinde kod yazarak deneyiniz. Veya
kodunun üzerine
şeklinde kod ekleyerek deneyiniz. Ayrıca Profil Bilgileri sayfsından eksik bilgilerinizi (ofis versiyonu) doldurunuz.
strCurFontSize = "fs" & lTmp
şeklinde satır var. bunun üzerine
if lTemp <16 then
lTemp = lTemp + 2
end if
şeklinde kod yazarak deneyiniz. Veya
RTF2HTML = strHTML
kodunun üzerine
strHTML = Replace(strHTML, "\fs18 ", "\fs24 ")
strHTML = Replace(strHTML, "\fs16 ", "\fs20 ")
şeklinde kod ekleyerek deneyiniz. Ayrıca Profil Bilgileri sayfsından eksik bilgilerinizi (ofis versiyonu) doldurunuz.