AccessTr.neT

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

sayın drumers
2 ayrı tablodaki verileri bir sorguda birleştirip datagrite yazdırmayı deneseniz olurmu acaba denediniz mi ?