*Sitemize Üye Olunca Elinize Ne Geçer?

<--- 1. Üye Olarak Linkleri Görebilirsiniz... --->

<--- 2. İstediğiniz Kadar Paylaşım Yapabilirsiniz... --->

<--- 3. Güzel Bir Forum Hayatı Yaşayabilirsiniz... --->


Join the forum, it's quick and easy


*Sitemize Üye Olunca Elinize Ne Geçer?

<--- 1. Üye Olarak Linkleri Görebilirsiniz... --->

<--- 2. İstediğiniz Kadar Paylaşım Yapabilirsiniz... --->

<--- 3. Güzel Bir Forum Hayatı Yaşayabilirsiniz... --->

Would you like to react to this message? Create an account in a few clicks or log in to continue.

● En Güncel Paylaşım Platformu ●

---Misafir--- Hos Geldiniz Daha iyi Bir Hizmet İçin Üye olunuz.ÜyeLer Link GörebiLir

    Vb Kod Yazdır Butonu

    MnyTirith
    MnyTirith
    MnyTirith
    ● Admin ●
    ● Admin ●


    <b>Doğum tarihi</b> Doğum tarihi : 20/06/90
    • Post n°1

    Vb Kod Yazdır Butonu Empty Vb Kod Yazdır Butonu

    Mesaj tarafından MnyTirith Cuma Mart 12, 2010 9:48 pm

    Arkadaşlar, diyelim ki bir text editör yapmaya karar verdiniz veya programınızın içindeki bir textbox içeriğini yazdırmak istiyorsunuz.Programınıza "yazdır" özelliği kazandırmak çok basit.

    Formunuza 1 adet textbox, componentslerden commondiologbox kontrolünü ve 1 tane buton ekleyin.

    Form Kodları
    ***********************


    Private Sub Command1_Click()

    CommonDialog1.CancelError = True

    On Error GoTo hata

    CommonDialog1.PrinterDefault = True

    CommonDialog1.Copies = 1

    CommonDialog1.ShowPrinter

    For kopya = 1 To CommonDialog1.Copies

    Printer.Print txtEdit.Text

    Printer.EndDoc

    Next kopya

    hata:

    Exit Sub

    End Sub

    • Sayfa başına dön

      Forum Saati C.tesi Nis. 27, 2024 5:03 pm