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