Visual Basıc'de Rapor Alma Hk.

[ikayserili]

selam arkadaşlar.
https://www.kontrolkalemi.com/forum.../54898-elektronik-paket-programi-v-1-8-a.html
adresindeki programıma bir özellik katmak istiyorum ama nasıl yapacağımı bilmiyorum.
Programda bölümlerden herhangi birisinde hesaplama yaptıktan sonra rapor butonu aktif olacak ve kullanıcı isterse yaptığı hesabı word, pdf veya resim gibi şekilde bilgisayara kaydedecek. Sonra Bu Dosyayı artık yazdırırmı başkasına mail'mi atar orası kullanıcının bileceği iş

konuda bana bir örnek yapabilirmisiniz ?
mesela forma 3 textbox 2 command ekleyin ve 1-2 textbox birbiri ile çarpsın 1 command ile ve text3'e yazsın. hesap bitince 2ci commad(rapor ver) aktif olsun.
rapor ver basınca raporu nereye kaydedeceğini sorsun ve onaylanınca kaydetsin.
şimdiden teşekkürler.

 

[phantasa]

programı kullanmadım ama program verilerini pdf word gibi dosyalara export edebiliyorsa dediğin olur. diğer türlü zor olabilir gibi.

 

[ikayserili]

kendi sorumu kendim cevaplayım bari :
Biraz Araştırma, Biraz Örneklere Batıktan sonra ve Vb Kitabımdaki bilgilerle örneği yapabildim.

3 Adet Textbox, 2 Adet Commad Buton, 1 Adet CommonDialog ekleyin foruma. ve kodları kopyalayın.

Private Sub Command1_Click()
Text3.Text = Text1 * Text2
Command2.Enabled = True
End Sub

Private Sub Command2_Click()
CommonDialog1.DialogTitle = "Raporu Kaydedeceğiniz Yeri Seçiniz"
CommonDialog1.Filter = "Yazı Dosyası (*.txt) | *.txt"
CommonDialog1.FileName = "Deneme1"
CommonDialog1.Action = 2
Open CommonDialog1.FileName For Output As #1
Print #1, "Birinci Sayı ve İkinci Sayının Çarpımı:"
Print #1, "Birinci Sayı", Text1.Text
Print #1, "İkinci Sayı", Text2.Text
Print #1, "Sonuç", Text3.Text
Close #1
End Sub

Private Sub Form_Load()
Command2.Enabled = False
End Sub