Public Class Form1


    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        DataGridView1.Rows.Add("SAYIN", "TELAT", "TÜRKYILMAZ", "ÇAY MAH. NO:4", "ZONGULDAK")
        DataGridView1.Rows.Add("BAYAN", "FATMA", "TUNALI", "TEPEBAŞI CADDESİ NO:110", "ESKİŞEHİR")
        DataGridView1.Rows.Add("BAY", "ALİ", "YILDIRIM", "HÜRRİYET MAH. NO:50", "BİLECİK")
    End Sub

    Private Sub AÇToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AÇToolStripMenuItem.Click
        OpenFileDialog1.Filter = "ADR|*.ADR|*.*|*.*"
        OpenFileDialog1.FileName = "ADRESLER"
        If OpenFileDialog1.ShowDialog() <> _
        Windows.Forms.DialogResult.OK Then Exit Sub
        DataGridView1.Rows.Clear()
        FileOpen(1, OpenFileDialog1.FileName, OpenMode.Input)
        Do While Not EOF(1)
            DataGridView1.Rows.Add(Split(LineInput(1), Chr(9)))
        Loop
        FileClose()
        MsgBox("BİLGİLER YÜKLENDİ")
    End Sub
 

    Private Sub KAYDETToolStripMenuItem_Click_1(sender As Object, e As EventArgs) Handles KAYDETToolStripMenuItem.Click

        SaveFileDialog1.Filter = "ADR|*.ADR|*.*|*.*"
        SaveFileDialog1.FileName = "ADRESLER"
        If SaveFileDialog1.ShowDialog() <> _
        Windows.Forms.DialogResult.OK Then Exit Sub

        FileOpen(1, SaveFileDialog1.FileName, OpenMode.Output)
        For R = 0 To DataGridView1.Rows.Count - 2
            PrintLine(1, _
            DataGridView1(0, R).Value & Chr(9) & _
            DataGridView1(1, R).Value & Chr(9) & _
            DataGridView1(2, R).Value & Chr(9) & _
            DataGridView1(3, R).Value & Chr(9) & _
            DataGridView1(4, R).Value)
        Next
        FileClose()
        MsgBox("KAYIT TAMAMLANDI")
    End Sub
 
    Private Sub YAZDIRToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles YAZDIRToolStripMenuItem.Click
        Dim CEVAP = MsgBox("UYARI", MsgBoxStyle.YesNo, "TEBRİKLER YAZDIRILACAKTIR...")
        If CEVAP <> 6 Then Exit Sub

        PrintDocument1.DefaultPageSettings.Landscape = True
        PrintDocument1.Print()
    End Sub
 
    Private Sub PrintDocument1_PrintPage(sender As Object, e As Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
        Static SATIR
        e.HasMorePages = True
        e.Graphics.PageUnit = GraphicsUnit.Millimeter
        Dim GÖNDEREN1 As String = "TELAT TÜRKYILMAZ"
        Dim GÖNDEREN2 As String = "BİLECİK ŞEYH EDEBALİ ÜNİVERSİTESİ"
        Dim GÖNDEREN3 As String = "GÜLÜMBE KÖYÜ/BİLECİK"

        Dim ALICI1 As String = DataGridView1(0, SATIR).Value & " " & _
                    DataGridView1(1, SATIR).Value & " " & _
                    DataGridView1(2, SATIR).Value

        Dim ALICI2 As String = DataGridView1(3, SATIR).Value
        Dim ALICI3 As String = DataGridView1(4, SATIR).Value
        Dim NewFont As New Font("ARIAL", FontStyle.Bold + FontStyle.Italic)

        e.Graphics.DrawString("ALICI", 
                             New Font("ARIAL", 14, FontStyle.Underline), _
                             Brushes.Black, 20, 50)

        e.Graphics.DrawString(ALICI1, _
                                  New Font("ARIAL", 14, FontStyle.Bold), _
                                  Brushes.Black, 20, 60)

        e.Graphics.DrawString(ALICI2, _
                                  New Font("ARIAL", 14, FontStyle.Bold), _
                                  Brushes.Black, 20, 70)

        e.Graphics.DrawString(ALICI3, _
                          New Font("ARIAL", 14, FontStyle.Bold), _
                          Brushes.Black, 20, 80)

        e.Graphics.DrawString("BAYRAMINIZI EN İÇTEN DİLEKLERİMLE KUTLARIM.", _
                                      New Font("ARIAL", 14, FontStyle.Bold), _
                                      Brushes.Black, 100, 105)

        e.Graphics.DrawString("GÖNDEREN", _
              New Font("ARIAL", 14, FontStyle.Underline), _
              Brushes.Black, 140, 150)
        e.Graphics.DrawString(GÖNDEREN1, _
                    New Font("ARIAL", 14, FontStyle.Bold), _
                    Brushes.Black, 150, 160)

        e.Graphics.DrawString(GÖNDEREN2, _
                            New Font("ARIAL", 14, FontStyle.Bold), _
                            Brushes.Black, 150, 170)

        e.Graphics.DrawString(GÖNDEREN3, _
                             New Font("ARIAL", 14, FontStyle.Bold), _
                             Brushes.Black, 150, 180)
        SATIR += 1
        If SATIR > DataGridView1.Rows.Count - 2 Then e.HasMorePages = False
    End Sub

    
End Class