Favorilerine Ekle | Giriş Sayfan Yap | Tavsiye Et

 

Kurs Tanıtım Sayfası | Süper Üye Kimdir? | Menü Tasarımı Konulu Örnek Ders
Kod İndir| Hazır Kodlar | Makaleler| İpuçları | VB .NET Kursu | Dersler | Forum | Alt Bölümler | Servisler
    Merhaba Misafir
    anasayfa » visual basic hazır kodlar » VERGİ İADE ZARFININ ÖN SAYFASI NASIL YAZDIRILIR
Üye Girişi
Kullanıcı Adı:  
Şifre : 
Kaydet ?
Siteden tam olarak faydalanabilmek için üye olmalısınız.
Unuttuğunuz şifrenizi öğrenebilmek için kayıt sırasında verdiğiniz Hatırlatma Cevabı'nı bilmeniz gereklidir.
Şifre hatırlatma işlevini sadece 3 defa kullanma hakkınız vardır.
Kullanıcı adını ve şifresini unutan üyelere email ile yardım verilmez.

Aktivasyon Gelmedi mi?Aktivasyon mesajınız email adresinize gelmedi mi?
Buraya tıklayarak bir kez daha aktivasyon mesajı gönderilmesini sağlayabilirsiniz.
Lütfen email hesabınızın BULK ve SPAM klasörlerini de kontrol ediniz.
Rastgele Makale

Microsoft Agent Kullanımı

Yazar: hdturk
Microsoft Agent Kullanımı


Webmasterlar
Sitenize Ekleyin!
Sitenizde "Son Eklenen 10 Visual Basic Yazısı"'nı göstermek ve içeriğini zenginleştirmek için buraya tıklayınız.

Vbasicmaster.com'a link verin!
Aşağıdaki minik banneri sitenize eklemek için tıklayın!

Üye Sayısı:
Ziyaretçiler nerede?
Yayın № : 2197
Yayın Tar:06.03.2005
Yazar : sahin2
Hit :2513

Bu Yazarın Yazıları Sadece bu yazarın  göster
Bu Yazıyı Tavsiye Et

Private Sub Command2_Click()
Printer.FontName = Form1000.FontName
Printer.FontSize = 8
Dim x, y, i
x = 1500
y = 13000
For i = 1000 To 10000 Step 250
'Yataylar
Printer.DrawWidth = 3
Printer.Line (1000, 750)-(15600, 750)
Printer.Line (1000, 10250)-(15600, 10250)
Printer.DrawWidth = 2
Printer.Line (1000, i)-(15600, i)
Next
'Dikeyler
Printer.DrawWidth = 3
Printer.Line (1000, 750)-(1000, 10250) 'İlk kalın çizgi
Printer.Line (8300, 750)-(8300, 10250) 'İkinci kalın çizgi ortadaki
Printer.Line (15600, 750)-(15600, 10250) 'Üçüncü kalın çizgi sondaki
Printer.DrawWidth = 2
Printer.Line (1775, 1000)-(1775, 10000) '1
Printer.Line (2600, 1000)-(2600, 10000) '2
Printer.Line (3300, 1000)-(3300, 10000) '3
Printer.Line (7200, 1000)-(7200, 10250) '4
Printer.Line (9075, 1000)-(9075, 1250) '1 küçük
Printer.Line (9900, 1000)-(9900, 1250) '2 küçük
Printer.Line (10600, 1000)-(10600, 1250) '3 küçük
Printer.Line (9075, 1500)-(9075, 9750) '1
Printer.Line (9900, 1500)-(9900, 9750) '2
Printer.Line (10600, 1500)-(10600, 9750) '3
Printer.Line (14500, 1000)-(14500, 10250) '4
Printer.FontBold = True
Printer.CurrentX = 2800
Printer.CurrentY = 800
Printer.Print "ÖZEL GİDER İNDİRİMİNE ESAS BELGENİN"
Printer.CurrentX = 10100
Printer.CurrentY = 800
Printer.Print "ÖZEL GİDER İNDİRİMİNE ESAS BELGENİN"
Printer.CurrentX = 3800
Printer.CurrentY = 10025
Printer.Print "T O P L A M"
Printer.CurrentX = 9775
Printer.CurrentY = 1275
Printer.Print "N A K L E D İ L E N T O P L A M"
Printer.CurrentX = 10775
Printer.CurrentY = 9775
Printer.Print "T O P L A M"
Printer.CurrentX = 10100
Printer.CurrentY = 10025
Printer.Print "G E N E L T O P L A M"
Printer.CurrentX = 1050
Printer.CurrentY = 1025
Printer.Print " SR NO"
Printer.CurrentX = 8350
Printer.CurrentY = 1025
Printer.Print " SR NO"
Printer.CurrentX = 1825
Printer.CurrentY = 1025
Printer.Print "TARİHİ"
Printer.CurrentX = 9125
Printer.CurrentY = 1025
Printer.Print "TARİHİ"
Printer.CurrentX = 2650
Printer.CurrentY = 1025
Printer.Print "FİŞ NO"
Printer.CurrentX = 9950
Printer.CurrentY = 1025
Printer.Print "FİŞ NO"
Printer.CurrentX = 3450
Printer.CurrentY = 1025
Printer.Print "KİMDEN ALINDI?I"
Printer.CurrentX = 10750
Printer.CurrentY = 1025
Printer.Print "KİMDEN ALINDI?I"
Printer.CurrentX = 7500
Printer.CurrentY = 1025
Printer.Print "TUTARI"
Printer.CurrentX = 14800
Printer.CurrentY = 1025
Printer.Print "TUTARI"
''''''''**************************************************'''''''''''''''''''
Printer.FontBold = False
Printer.FontItalic = True
Printer.FontSize = 6
Printer.CurrentX = 1000
Printer.CurrentY = 10425
Printer.Print "Proğram: Şahin Vegi İade Proğram 2005"
End Sub




Bu sayfa için henüz yorum eklenmemiş.

© Hakan Ersöz 2000-2013| Üyelik Sözleşmesi | | Ödeme Bildirimi
Sitemizden yenilikleri hemen öğrenin, pop upları engelleyin, chat yapın... ToolBarımızı indirin:
Vasicmaster Toolbar'ı indirin