0 Laporan Ms. Word dengan koding melalui VB 6

Membuat Laporan Ms. Word dengan koding melalui VB 6 - Langsung aja ya mungkin akan berguna coz jika di bedakan anda membuat di ms word pengaturan tata letak lebih bisa rapi dan bisa memaksimalkan bentuk laporan.

Sebelum masuk kode, kita buat laporan dulu di ms .word.., konsepnya sih tingggal cemplungin data- data yang bersangkutan. Setelah jadi kan tinggal cemplungin data caranya letakan kursor yang kedip- kedip itu loh.sebagai tempat tulisan yang akan di insert melalui kode VB... trus klik insert , klik bookmark , trus ketik kode bookmark,... ini terserah anda ... kita ambil contoh ketik "angka" tanpa tanda kutip, klik OK....

MS word selesei... Sekarang Masuk ke VB 6.0 ... jikA udah buat form... klik project yang ada di menu bar... trus reference .... cari Microsoft Word 12.0 Object Library... klik Ok lankah persiapan udah selesei.. selanjutnya buat button.. trus klik button itu untuk masuk ke event kliknya... masukan kode dibawah ini

Set wrdApp = New Word.Application 

wrdApp.Visible = False

 'open File dukokumen HasilCetak.docx 

Set wrdDoc = wrdApp.Documents.Open("" & App.Path & "\cetak\HasilCetak.doc") 

'mengisi
wrdDoc.Bookmarks("angka").Range.text = "1" 

'print tapi false 

wrdDoc.PrintOut Background:=False 

'menutup wrdDoc.Close 0 

Set wrdDoc = Nothing 

wrdApp.Quit 

Set wrdApp = Nothing

langkah terkhir masukan deklarasi berikut

Private wrdApp As Word.Application 'MS Word object
Private wrdDoc As Word.Document 'MS Word Document
Private wrdSelection As Word.Selection 'MS Word Selection

Jika kurang paham komen aja ya atau baca pengumuman di atas...atau download demo yang sudah saya buat >> http://adf.ly/Bny8c  - Laporan Ms. Word dengan koding melalui VB 6