Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click
        Dim aplikasi As New word.Application
        Dim dokumen As word.Document

        dokumen = aplikasi.Documents.Open("D:\ACER\Documents Kuliah\File Aplikasi Kacamata Visual Studio\Cetak 	Word\OrderKacamata.docx")

        dokumen.Bookmarks("BNAMA").Select()
        aplikasi.Selection.TypeText(txtnamapelanggan.Text)

        dokumen.Bookmarks("BALAMAT").Select()
        aplikasi.Selection.TypeText(txtalamat.Text)

        dokumen.Bookmarks("BTELEPON").Select()
        aplikasi.Selection.TypeText(txttelepon.Text)

        dokumen.Bookmarks("BNAMAPRODUCT").Select()
        aplikasi.Selection.TypeText(txtproduct.Text)

        dokumen.Bookmarks("BHARGAPRODUCT").Select()
        aplikasi.Selection.TypeText(txtharga.Text)

        dokumen.Bookmarks("BJUMLAHPRODUCT").Select()
        aplikasi.Selection.TypeText(cbproduct.Text)

        dokumen.Bookmarks("BMETODEPEMBAYARAN").Select()
        aplikasi.Selection.TypeText(txtmetode.Text)

        dokumen.Bookmarks("BDISKON").Select()
        aplikasi.Selection.TypeText(txtdiskon.Text)

        dokumen.Bookmarks("BJENISLENSA").Select()
        aplikasi.Selection.TypeText(cbjenislensa.Text)

        dokumen.Bookmarks("BTOTAL").Select()
        aplikasi.Selection.TypeText(txttotal.Text)

        dokumen.Bookmarks("BUANGMUKA").Select()
        aplikasi.Selection.TypeText(txtmuka.Text)

        dokumen.Bookmarks("BSISAPEMBAYARAN").Select()
        aplikasi.Selection.TypeText(txtsisa.Text)

        dokumen.Bookmarks("BPESANTANGGAL").Select()
        aplikasi.Selection.TypeText(dtppesan.Text)

        dokumen.Bookmarks("BSELESAITANGGAL").Select()
        aplikasi.Selection.TypeText(dtpselesai.Text)

        dokumen.SaveAs("D:\ACER\Documents Kuliah\File Aplikasi Kacamata Visual Studio\Cetak Word\" + txtnamapelanggan.Text + "OrderKacamataNew.docx")
        MsgBox("Sukses")
        aplikasi.Visible = True