25/03/2021, 00:32
Arkadaşlar ve hocalarım worde 27 karakter ile sınırlanmış İsim Soyisim gönderiyorum ismin bir altındaki satıra da bu ismin ünvanını gönderiyorum.
göndermekte ve yazdırmakta problemim yok fakat başaramadığım ve araştırıp bulamadığım konu bunları yazdırırken isim soyisim altına gelen ünvan ya ileride yada geride oluyor bir türlü oralatamadım
isim kısa veya uzun olursa ileride veya geride kalıyor
sütunu tek tek karakter olarak sayfım (86) karakter boşluk olarak saydım (160) boşluk var
buna uygun hesaplama yapmak istedim bir türlü her ismime göre ortalama yaptıramadım
yapmak istediğim olay
İsim Soyisim sütunun sonunaa 5 bolluk kalacak şekilde sola dayalı yazması ve altına yazılacak ünvan da isme göre ortalı olması
bu konuda yardımcı olurmusunuz
uyguladığım formül
İsim Soyisim
.Selection.Text = Space(160 - (Len(DLookup("Uzl_Adi_Soyadi", "Ek_süre_Talep_Sorgu")) * 1.7)) & Dlookup ("Uzl_Adi_Soyadi", "Ek_süre_Talep_Sorgu")
Ünvan
.Selection.Text = Space(160 - ((Len(DLookup("Uzl_Adi_Soyadi", "Ek_süre_Talep_Sorgu")) + (Len(DLookup("Uzl_Adi_Soyadi", "Ek_süre_Talep_Sorgu")) / 2)) * 1.7) + 12) & Dlookup ("Unvan", "Ek_süre_Talep_Sorgu")
göndermekte ve yazdırmakta problemim yok fakat başaramadığım ve araştırıp bulamadığım konu bunları yazdırırken isim soyisim altına gelen ünvan ya ileride yada geride oluyor bir türlü oralatamadım
isim kısa veya uzun olursa ileride veya geride kalıyor
sütunu tek tek karakter olarak sayfım (86) karakter boşluk olarak saydım (160) boşluk var
buna uygun hesaplama yapmak istedim bir türlü her ismime göre ortalama yaptıramadım
yapmak istediğim olay
İsim Soyisim sütunun sonunaa 5 bolluk kalacak şekilde sola dayalı yazması ve altına yazılacak ünvan da isme göre ortalı olması
bu konuda yardımcı olurmusunuz
uyguladığım formül
İsim Soyisim
.Selection.Text = Space(160 - (Len(DLookup("Uzl_Adi_Soyadi", "Ek_süre_Talep_Sorgu")) * 1.7)) & Dlookup ("Uzl_Adi_Soyadi", "Ek_süre_Talep_Sorgu")
Ünvan
.Selection.Text = Space(160 - ((Len(DLookup("Uzl_Adi_Soyadi", "Ek_süre_Talep_Sorgu")) + (Len(DLookup("Uzl_Adi_Soyadi", "Ek_süre_Talep_Sorgu")) / 2)) * 1.7) + 12) & Dlookup ("Unvan", "Ek_süre_Talep_Sorgu")