Skip to main content

AccessTr.neT


Datagridview Verilerini Yazdırma

Datagridview Verilerini Yazdırma

#1
Private Sub Kart_Click(sender As Object, e As EventArgs) Handles Kart.Click
       Me.TopMost = False
       Dim Yazi As New PrintDocument
       Dim Dokuman As New PrintPreviewDialog
       AddHandler Yazi.PrintPage, AddressOf Liste_Yazdir
       Dokuman.Document = Yazi
       Dokuman.WindowState = FormWindowState.Maximized
       Dokuman.PrintPreviewControl.Zoom = 1.5

       Dim Sonuc As DialogResult = Dokuman.ShowDialog()
       If (Sonuc = DialogResult.Cancel) Then
           Me.TopMost = True
       End If
   End Sub
Private Sub Liste_Yazdir(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs)
       Dim Ortala As New StringFormat
       Ortala.Alignment = StringAlignment.Center 'ortala


       Dim sonsatir As Integer = 0
       Static startAt As Integer = 0

       Try

           e.Graphics.DrawString("Firma Kartı", FontN12, Brushes.Black, New RectangleF(25, 50, 730, 40), Ortala)

           For i As Integer = startAt To Kira_DataGridView.RowCount - 1

               e.Graphics.DrawString("Firma Kira Dosya Bilgileri", FontN12, Brushes.Black, New RectangleF(25, 300, 730, 20), Ortala)

               e.Graphics.DrawRectangle(Pens.LightGray, New Rectangle(30, 330, 50, 15))
               e.Graphics.DrawString("Durum", FontN7, Brushes.Black, New RectangleF(30, 332, 50, 15), Ortala)
               e.Graphics.DrawRectangle(Pens.LightGray, New Rectangle(30, 345 + (i - startAt) * 15, 50, 15))
               e.Graphics.DrawString(IIf(IsDBNull(Kira_DataGridView.Rows(i).Cells(3).Value), "", Kira_DataGridView.Rows(i).Cells(3).Value), FontN7, Brushes.Black, New RectangleF(30, 347 + (i - startAt) * 15, 50, 15), Ortala) 'tarih



               sonsatir = i + 1

               If (i + 1) Mod 50 = 0 Then '50 satırda diğer sayfaya geçer
                   e.HasMorePages = True
                   startAt = i + 1
                   Return
               End If
           Next



           e.HasMorePages = False
           startAt = 0
           sonsatir = 0

       Catch ex As Exception

       End Try

   End Sub
Bu şekilde Kira_DataGridView nesnesindeki verileri yazdırabiliyorum.
Benim istediğim 2. bir DataGridView nesnesindeki verileri Kira_DataGridView verileninin en son satırından sonra listelemesi

Örnek: Kira_DataGridView verileri
Ali
Hasan
2.DataGridView verileri
Mahmut
Süleyman

Sonuç Şöyle Olmalı...
Ali
Hasan
Mahmut
Süleyman

Yukarıdaki kodu nasıl düzenlemeliyim. Teşekkürler
drummers, 11-05-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla
#2
sayın drumers
2 ayrı tablodaki verileri bir sorguda birleştirip datagrite yazdırmayı deneseniz olurmu acaba denediniz mi ?
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task