Merhabalar;
Raporda metin kutusunun yönünü aşağıdan yukarı yapma konusunu baya araştırdım ama sonuca ulaşamadım. Benzer konu daha önce burada işlenmiş. Fakat ben metni ters yazmadan metin yönünü ayarlamak istiyorum. Lebans'ın sitesinde bir örnek buldum. Örnek Ek'tedir. Bunu kendi uygulamamıza nasıl entegre edebiliriz veya konu ile ilgili başka bir çözüm yöntemi var mıdır?
Yardımcı olursanız sevinirim.
Etiketin Im(Tag) bolumune "Dikey" yazilmasi ile asagidan yukari yazdirilabilir.
Call Cevir(Form) veya Call Cevir(Report)
Function Cevir(Rpt As Form)
Dim Sayac, Harf, Kelime
Dim Kont As Control
For Each Kont In Rpt.Controls
If Kont.Tag = "Dikey" Then
Kelime = Space(Abs((Rpt.Controls(Kont.Name).Height / 265)) - Len(Rpt.Controls(Kont.Name).Caption)) & StrReverse(Rpt.Controls(Kont.Name).Caption)
MsgBox Kelime
For Sayac = 1 To Len(Kelime)
Harf = Harf & Mid(Kelime, Sayac, 1) & vbCrLf
Next Sayac
Rpt.Controls(Kont.Name).Caption = Harf
End If
Next Kont
Merhabalar,
Hocam kusura bakmayın biraz geç dönüş yaptım. Verdiniz kodda run time error 5 invalid pro... Hatasını verdi.
(Kelime=space.... Satırı hata verdi.)
Acaba musait olduğunuz zaman tekrar bakabilir misiniz?
Tekrar merhabalar;
Hocam verdiğiniz kodları iş yerinde yazarken bir hata yapmışım galiba. Evdeki pc de düzgün çalışıyor ilginiz için çok teşekkür ederim. Fakat benim yapmak istediğim tam olarak böyle değildi.
Raporu matbu bir form üzerine yazdırma işleminde kullanacağım. Metin kutusuda bulunan veriyi; excel'de hücre biçimlendir/hizalama sekmesinde bulunan yönlendirme özelliği gibi 90 derece olacak şekilde yapmak istiyorum.
Access de metin kutusunun özellik penceresi diğer sekmesinde bulunan vertical özelliğini evet yapınca yukarıdan aşağı olacak şekilde ayarlıyor bunun tam tersini niye yapmamışlar acaba.
(07-04-2016, 18:49)serdar2020 demiş ki: Konu hakkında bir çözüm öneriniz var mı acaba?
Pratik yolu
Yazilmasini istediginiz form veya rapor sayfa basi seklini Word, Excel uygulamasinda 90 derece cevirip, resim dosyasi olusturun, kopyala-yapistir ile nesne uzerine yerlestirin.
Doksan.rar (Boyut: 43,49 KB / İndirilme: 113)
kod ile metni 90 derece ile yontem bulabiirsem paylasirim.
Etiketleri excelde ayarlayip kopyala yapıştır ile raporda kullanıyorum. Ama sorun metin kutularinda.
Lebans sitesinde örnekler var ama bana çok karışık geldi. Rotate.ocx gibi bir yöntem varmış galiba.
Kod ile bir çözüm bulabilirseniz paylaşımlarınızı bekliyorum. İlginiz ve destekleriniz için teşekkürler.
