USERFORM un kendisini yazdırmak

[sukruyilmaz1]

Arkadaşlar kolay gelsin. Oluşturduğumuz Userform un kendisini nasıl yazdırıyoruz? Yani Userformda oluştuduğumuz label lar, listboxlar, comboboxlar ekranda göründüğü gibi yazdırılacak.

ekteki örnek üzerinde açıklarsanız çok sevinirim.

Saygılarımla..

 

[serqet]

Private Sub CommandButton1_Click()
UserForm1.PrintForm
End Sub

 

[sukruyilmaz1]

Çok teşekkür ederim. Sn. Serqet.

 

[serqet]

Çok teşekkür ederim. Sn. Serqet.

Rica Ederim.

 

[sukruyilmaz1]

Peki üstadım yazdırırken userformda görünen " yazdır" butonunun görünmemesini nasıl sağlarız?

 

[ahmet kabadayı]

MER HABA

Private Sub CommandButton1_Click()
CommandButton1.Visible = False
UserForm1.PrintForm
CommandButton1.Visible = True
End Sub

iyi günler

 

[sukruyilmaz1]

Teşekkür ederim Ahmet Bey. Eline sağlık.