AccessTr.neT

Merhaba ekte BURADAN SEÇİN onay kutusu işaretli iken komut171 butonu ile worde tablo transferi yapılıyor... Bu tablonun enini 15cm yapmak yani sayfanın tamamına yaymak için kod vasıtasıyla bir çözüm bulunabilir mi?
Eğer çözüm yolu varsa kod nasıl değiştirilmeli?

Yardımlarınız için şimdiden teşekkürler...

WordApp.ActiveDocument.Range.Tables(1).Rows(1).Delete '**** Burayı ekledik. ****

kodunun hemen altına

Dim x As Integer

For x = 2 To 13



WordApp.ActiveDocument.Range.Tables(1).Columns(x).Width = "30"

Next x

kodu ekle.

verdiğiniz kod sadece 2. sütunun boyutunu değiştirdiği için başka tablolarda karışıklık oluşturuyo tüm tablonun boyutunu sayfaya sığdırmak için bir çözüm olabilir mi?

(13/06/2012, 16:39)kokotuna yazdı: [ -> ]verdiğiniz kod sadece 2. sütunun boyutunu değiştirdiği için başka tablolarda karışıklık oluşturuyo tüm tablonun boyutunu sayfaya sığdırmak için bir çözüm olabilir mi?

Verdiğim kod 1. sütun hariç tüm sütunların genişliğini 1,06cm olarak değiştirir. Koddaki "30"u değiştirerek genişliği arttırabilirsin.

Koddan önce,



Koddan sonra,

teşekkürler