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 » Forum Anasayfa » Kategori: Visual Basic.Net
Ü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

rgb kodunu k?rmrz?-yesil-mavi renk kodlar?na ay?rma

Yazar: barkiniseri

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?

"PrintDocument1 yazdırma sorunu"

70 satırdan sonra 2 . sayfaya yazdırmak istiyorum başaramadım


Private Sub PrintDocument1_PrintPage(sender As Object, e As PrintPageEventArgs) Handles PrintDocument1.PrintPage


        On Error Resume Next
        Dim i, konum As Integer

        Dim blackPen As New Pen(Color.LightGray, 10)

        konum = 60

        e.Graphics.DrawString("xxx xxx xxx", New Font("thoma", 8, FontStyle.Bold), Brushes.Black, 200, 10)
        e.Graphics.DrawString("Liste Tarihi: " & Now(), New Font("thoma", 8, FontStyle.Bold), Brushes.Black, 10, 30)
        'e.Graphics.DrawString("Teslim Alma Tarihi :" & Date.Now, New Font("thoma", 8, FontStyle.Bold), Brushes.Black, 200, 30)

        e.Graphics.DrawLine(Pens.Gray, 0, konum, 790, 50)

        e.Graphics.DrawString("sira", New Font("thoma", 6, FontStyle.Regular), Brushes.Black, 2, konum)
        e.Graphics.DrawString("TCKimlikNo", New Font("thoma", 6, FontStyle.Regular), Brushes.Black, 20, konum)
        e.Graphics.DrawString("Adi", New Font("thoma", 6, FontStyle.Regular), Brushes.Black, 80, konum)
        e.Graphics.DrawString("Soyadi", New Font("thoma", 6, FontStyle.Regular), Brushes.Black, 180, konum)
        e.Graphics.DrawString("BabaAdi", New Font("thoma", 6, FontStyle.Regular), Brushes.Black, 260, konum)
        e.Graphics.DrawString("DogumYeri", New Font("thoma", 6, FontStyle.Regular), Brushes.Black, 330, konum)
        e.Graphics.DrawString("DogumTarihi", New Font("thoma", 6, FontStyle.Regular), Brushes.Black, 440, konum)
        e.Graphics.DrawString("Uyrugu", New Font("thoma", 6, FontStyle.Regular), Brushes.Black, 510, konum)
        e.Graphics.DrawString("GelisTarihi", New Font("thoma", 6, FontStyle.Regular), Brushes.Black, 550, konum)
        e.Graphics.DrawString("OdaNo", New Font("thoma", 6, FontStyle.Regular), Brushes.Black, 650, konum)
        e.Graphics.DrawString("AyrilisTarihi", New Font("thoma", 6, FontStyle.Regular), Brushes.Black, 690, konum)

        konum = 75


        For i = 0 To DataGridView1.Rows.Count - 1
            e.Graphics.DrawString(i + 1, New Font("thoma", 6, FontStyle.Regular), Brushes.Black, 2, konum)
            e.Graphics.DrawString(DataGridView1.Rows(i).Cells("TCKimlikNo").Value, New Font("thoma", 6, FontStyle.Regular), Brushes.Black, 20, konum)
            e.Graphics.DrawString(DataGridView1.Rows(i).Cells("Adi").Value, New Font("thoma", 6, FontStyle.Regular), Brushes.Black, 80, konum)
            e.Graphics.DrawString(DataGridView1.Rows(i).Cells("Soyadi").Value, New Font("thoma", 6, FontStyle.Regular), Brushes.Black, 180, konum)
            e.Graphics.DrawString(DataGridView1.Rows(i).Cells("BabaAdi").Value, New Font("thoma", 6, FontStyle.Regular), Brushes.Black, 260, konum)
            e.Graphics.DrawString(DataGridView1.Rows(i).Cells("DogumYeri").Value, New Font("thoma", 6, FontStyle.Regular), Brushes.Black, 330, konum)
            e.Graphics.DrawString(DataGridView1.Rows(i).Cells("DogumTarihi").Value.ToString.Substring(0, 10), New Font("thoma", 6, FontStyle.Regular), Brushes.Black, 440, konum)
            e.Graphics.DrawString(DataGridView1.Rows(i).Cells("Uyrugu").Value, New Font("thoma", 6, FontStyle.Regular), Brushes.Black, 510, konum)
            e.Graphics.DrawString(DataGridView1.Rows(i).Cells("GelisTarihi").Value, New Font("thoma", 6, FontStyle.Regular), Brushes.Black, 550, konum)
            e.Graphics.DrawString(DataGridView1.Rows(i).Cells("VerilenOdaNo").Value, New Font("thoma", 6, FontStyle.Regular), Brushes.Black, 650, konum)
            e.Graphics.DrawString(DataGridView1.Rows(i).Cells("AyrilisTarihi").Value, New Font("thoma", 6, FontStyle.Regular), Brushes.Black, 690, konum)
            konum = konum + 15

            If i = 70 Then
                konum = 75
                e.HasMorePages = True
            End If


        Next
        e.HasMorePages = False

        Exit Sub

    End Sub

Üyeye Özelden Mesaj At kartall112 | 03.12.2015 10:06



Tüm Kategoriler | Visual Basic.Net | Visual Basic.Net  1. Sayfa
© 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