Merhaba,
Çok ilginç bir problemle karşı karşıya kaldım ve bir türlü işin içinden çıkamıyorum. Aşağıdaki kodu kullanarak sayfaya yazdırma işlemi yapıyorum. Birinci sayfada problem olmuyor ancak ikinci sayfaya geçtikten sonra 5. satırdan itibaren son iki satıra kadar metin sonlarına görünmez bir karakter ekleniyor. Yani ikinci sayfanın ilk dört satırı ve son iki satırında yine problem yok. Dosyayı pdf olarak kaydettiğim zaman metin sonlarına gelen görünmez karakter kodun altında belirtmiş olduğum görselde yer alan dikdörtgen içerisinde soru işareti olarak çıkıyor. Aynı zamanda metnin bulunduğu hücrede otomatik olarak hücre kaydır seçeneği de seçilmiş oluyor ve sayfa yapısını bozuyor. Sorun nereden kaynaklanıyor olabilir? Yardımlarınız rica olunur.
Çok ilginç bir problemle karşı karşıya kaldım ve bir türlü işin içinden çıkamıyorum. Aşağıdaki kodu kullanarak sayfaya yazdırma işlemi yapıyorum. Birinci sayfada problem olmuyor ancak ikinci sayfaya geçtikten sonra 5. satırdan itibaren son iki satıra kadar metin sonlarına görünmez bir karakter ekleniyor. Yani ikinci sayfanın ilk dört satırı ve son iki satırında yine problem yok. Dosyayı pdf olarak kaydettiğim zaman metin sonlarına gelen görünmez karakter kodun altında belirtmiş olduğum görselde yer alan dikdörtgen içerisinde soru işareti olarak çıkıyor. Aynı zamanda metnin bulunduğu hücrede otomatik olarak hücre kaydır seçeneği de seçilmiş oluyor ve sayfa yapısını bozuyor. Sorun nereden kaynaklanıyor olabilir? Yardımlarınız rica olunur.
Kod:
For Each labeller In UserForm1.Controls
If TypeName(labeller) = "Label" Then
If labeller.Visible = True And labeller.ForeColor = &HFF& Then
objws2.Cells(yaz1, "B") = labeller.Caption
objws2.Cells(yaz1, "A") = no1
no1 = no1 + 1
yaz1 = yaz1 + 1
End If
End If
Next labeller
Yine de ilginiz için teşekkür ederim.