Yazdır Butonu Hakında

[satan22]

Selam Arkadaşlar sizden istediğim Ekteki dosyada formu açtıktan sonra istediğim müşteriye ait bilgilerin yazdır butonuna tıkladığım zaman yazdırma sayfasında görülen bilgilerin otomotik olarak oraya yerleştirilmesi ve yazdırılmasını istiyorum. Bu konu hakkında yardımcı olursanız çok sevinirim. Şimdiden teşekkürler. Umarım en kısa zamanda yardımcı olursunuz.

 

[hamitcan]

Aşağıdaki kodu forma ekleyin.

Private Sub CommandButton3_Click()
With Sheets("YAZDIRMA")
.[C10] = FormatDateTime(DTPicker1, vbShortDate)
.[C12] = Sheets("MUSTERİ").Cells(ComboBox2.ListIndex + 1, 1)
.[C14] = ComboBox2.Text
.[C16] = TextBox3.Text
.[C18] = ComboBox1.Text
.[C20] = TextBox5.Text
.[C22] = TextBox6.Text
.[C24] = TextBox7.Text
.[C26] = TextBox4.Text
.PrintOut
End With

 

[satan22]

hemen deniyorum.. İlgiden dolayı çok teşekkürler..

 

[satan22]

çok teşekkürler sayenizde mantığıda anladım.. hakkınızı helal edin..

 

[hamitcan]

Helal olsun ne yaptık ki.