userform yazdırma

[abtani]

Sayın mahmut_bayram'a ait Kod Arşiv Programı (2951 Kod) ait kodlarını incelerken bir user formu yazdırmak için pratik bir şekilde
"Private Sub CommandButton1_Click()
UserForm1.PrintForm
End Sub"
şeklinde bir makro ile formun yazıldığını gördüm ve uyguladım.Formumun üzerinde bulunan ara,kaydet,sil,kapat gibi butonlarımda doğal olarak yazıcıdan çıktı.Bu butonların ve arka planın yazıcı çıktısında görünmemesi için kolay,pratik bir şey yapılabilirmi,yoksa her birini kısmı excelde bir hücreye atamak gibi uzun bir yol izlemekten başka çare yokmudur? Saygılarımla...

 

[Orion1]

Userform'un üzerindeki bulanan nesnelerin, içindeki verileri Excel'de hücrelere atıp o şekilde yazdırabilirsiniz.

 

[abtani]

Userform'un üzerindeki bulanan nesnelerin, içindeki verileri Excel'de hücrelere atıp o şekilde yazdırabilirsiniz.

Evet,dediğinizi uyguluyorum,belki daha pratik bir şekilde makro yardımı ile yapılabilmi diye sormuştum.Hevesim yarım kaldı sayenizde.Excel ve kod bilgilerimde çok yol aldım.Teşekkür eder,saygılar sunarım.

 

[Orion1]

Evet,dediğinizi uyguluyorum,belki daha pratik bir şekilde makro yardımı ile yapılabilmi diye sormuştum.Hevesim yarım kaldı sayenizde.Excel ve kod bilgilerimde çok yol aldım.Teşekkür eder,saygılar sunarım.

Rica ederim.
Saygılar bizden.

 

[Orion1]

Sizin için bir örnek dosya hazırladım.
Kolay gelsin.

Private Sub CommandButton1_Click()
If IsDate(TextBox1.Value) Then
    Range("B2").Value = CDate(TextBox1.Value)
End If
Range("B3").Value = TextBox2.Value * 1
Range("B4").Value = TextBox3.Value
Range("B5").Value = ComboBox1.Value
Range("B6").Value = TextBox4.Value
ActiveSheet.PrintOut Copies:=1
Unload Me
End Sub

Private Sub UserForm_Initialize()
TextBox1.Value = Format(Date, "dd.mm.yyyy")
ComboBox1.AddItem "ERKEK"
ComboBox1.AddItem "KIZ"
ComboBox1.ListIndex = 0
End Sub

 

[abtani]

Duyarlılığınıza bir kere daha teşekkür ederim.

 

[Seyit Tiken]

Fikir verme açısında, ekli dosyayı incelemenizi öneririm.

 

[mt621]

yazdırma sorunu

arkadaşlar yaptığınız dosyada biraz değişiklik yapmaya çalıştım ama başaramadımyardım edermisiniz.

 

[Ahmet ÖZGÜR]

Sayın mahmut_bayram'a ait Kod Arşiv Programı (2951 Kod) ait kodlarını incelerken bir user formu yazdırmak için pratik bir şekilde
"Private Sub CommandButton1_Click()
UserForm1.PrintForm
End Sub"
şeklinde bir makro ile formun yazıldığını gördüm ve uyguladım.Formumun üzerinde bulunan ara,kaydet,sil,kapat gibi butonlarımda doğal olarak yazıcıdan çıktı.Bu butonların ve arka planın yazıcı çıktısında görünmemesi için kolay,pratik bir şey yapılabilirmi,yoksa her birini kısmı excelde bir hücreye atamak gibi uzun bir yol izlemekten başka çare yokmudur? Saygılarımla...

Merhaba,
Peki bu kodu yatay yazdırma için nasıl kullanırız.

 

[Ahmet ÖZGÜR]

http://www.excel.web.tr/f50/userformu-yatay-yazd-305-rma-t25638.html
5. konuda başarılı bir cevap buldum