Jumat, 14 Desember 2012

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

0 komentar:

Poskan Komentar

 

TUTORIAL KARTIWA Copyright © 2011 - |- Template created by O Pregador - |- Powered by Blogger Templates