UserForm üzerindeki verileri yazdırma

[acebeci]

Çok saygıdeğer arkadaşlar ve hocalarım yapmaya çalıştığı şey oluşturdugum UserForm üzerinde bulunan textbox ve label lerdeki bilgileri yazdırabilmek yani formun kendisini yani alt zeminini değilde sadece üzerindeki bilgileri yazdırmak istiyorum bu mümkün mü acaba

 

[Ömer]

Merhaba,

"Yazdır" olarak bir sayfa oluşturup forma aldığınız bilgileri istediğiniz şablona göre bu sayfaya aktarıp yazdırabilirsiniz. Bence en mantıklı olanı bu şekilde yazdırmanızdır.

 

[acebeci]

Sayın Ömer Bey ilginizden dolayı çok teşekkür ederim.dediğiniz gibi birşey yapabilsem olur fakat onu nasıl becereceğim bilemiyorum.

 

[acebeci]

Yapılabilecek başka birşeyler varmı acba

 

[Ömer]

"Yazdır" adında bir sayfa ekleyip başlıkları ve bilgilerin olması gereken hücrelerini tablo üzerinde açıklayarak yeni bir dosya eklermisiniz. Ayrıca Userform'ada yazdır adında bir botun ekleyiniz.

Bu şablona göre ilgili kodları yazıp paylaşırım.

.

 

[acebeci]

Ömer Bey dosyayı yeniden ekledim.Yazdır diye bir sayfa ekledim Formun üzerinde YAZDIR butonu zaten vardı ama formun kendisini yazdırıyor zaten bende onu düzeltmek istiyorum.

 

[Ömer]

Açıklayıcı olması için hücreleri tek tek tanımladım.

Eski kodların yerine;

Private Sub CommandButton5_Click()
 
    With Sheets("YAZDIR")
        .Range("A1") = ComboBox1.Text
        .Range("B2") = TextBox16.Text
        .Range("E2") = TextBox1.Text
        .Range("B4") = TextBox4.Text
        .Range("B5") = TextBox5.Text
        .Range("B6") = TextBox6.Text
        .Range("B7") = TextBox7.Text
        .Range("B8") = TextBox8.Text
        .Range("B9") = TextBox9.Text
        .Range("B10") = TextBox10.Text
        .Range("B11") = TextBox11.Text
        .Range("B12") = TextBox12.Text
        .Range("B13") = TextBox13.Text
        .Range("B14") = TextBox14.Text
        .Range("B15") = TextBox15.Text
        .Range("B16") = TextBox17.Text
        .PrintOut
    End With
    
End Sub

.

 

[acebeci]

Sayın Ömer Bey ilginizden dolayı çok ama çok teşekkür ederim ayrıca açıklayıcı anlatımınız benim gibi acemi kullanıcılara çok ışık tutucu olmuş tekrar tekrar teşekkür eder çalışmalarınızda başarılar dilerim.İyiki varsınız