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