kali inii ane mau membahas cara membuat laporan dengan menggunakan templet ms excel. mengapa kita harus menggunakan templet?? ya....agar lebih mudah aja gan penerapannya jika di dalam laporan kita terdapat banyak headeratau beberapa penempatan header yang sesuai dengan kebutuha atau custome header. dikatakan lebih mudah di sini karena hanya memanggil sebuah templet yang sudah kita siapkan kemudian mengisi kolom kolom yang sesuai dengan kebutuhan laporan kita...
langsung aja gan kita kerjakan ....yapps
langkah 1 :
buka ms excel dan buat data kemudian simpan dalam bentuk templet (Excel 97-2003 Templet)
langkah ke 2 :
buka laman kerja vb nya gan
tambahkan reference Microsoft.Office.Interop.Excel
langkah ke 3 :
buat form designnya juga gan
langkah ke 4 :
tuliskan kodingannya gan ...
Imports Excel = Microsoft.Office.Interop.Excel
Public Class Form1
Public Class Form1
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
End Sub
Private Sub btn_cetak_Click(sender As Object, e As EventArgs) Handles btn_cetak.Click
Dim excel_App As Excel.Application
Dim excel_WorkBook As Excel.Workbook
Dim excel_WorkSheet As Excel.Worksheet
Dim misvalue As Object = System.Reflection.Missing.Value
excel_App = New Excel.Application
excel_WorkBook = excel_App.Workbooks.Open("E:\latihan visual studio\Templet Excel.xlt")
excel_WorkSheet = excel_WorkBook.Worksheets(1)
excel_WorkSheet = excel_WorkBook.Sheets("sheet1")
excel_WorkSheet.Cells(3, 2) = txt_nama.Text
excel_WorkSheet.Cells(4, 2) = txt_alamat.Text
excel_App.Visible = True
Dim excel_App As Excel.Application
Dim excel_WorkBook As Excel.Workbook
Dim excel_WorkSheet As Excel.Worksheet
Dim misvalue As Object = System.Reflection.Missing.Value
excel_App = New Excel.Application
excel_WorkBook = excel_App.Workbooks.Open("E:\latihan visual studio\Templet Excel.xlt")
excel_WorkSheet = excel_WorkBook.Worksheets(1)
excel_WorkSheet = excel_WorkBook.Sheets("sheet1")
excel_WorkSheet.Cells(3, 2) = txt_nama.Text
excel_WorkSheet.Cells(4, 2) = txt_alamat.Text
excel_App.Visible = True
End Sub
End Class
End Class
langkah ke 6 :
jalankan programnya gan....
udah dulu ya gan/.......ane mau tidur dulu
0 comments:
Post a Comment