Assalamu'alaikum, wr. wb
Tutorial VB (Visual Basic) kali ini tentang cara membuat program cetak data kelayar atau langsung keprinter yang tentunya data-data yang akan kita cetak atau ditampilkan tersebut telah diinput dengan program entri data yang telah mempunyai koneksi ke databse yang telah di create menggunakan AdoDc , Tool Data, atau AdoDb. Tapi pada kesempatan ini kita akan menggunakan Tool Data standar VB (Visual Basic) dalam memangil database.mdb yang sebelumnya kita menggunakan AdoDc dengan penambahan Componen Microsoft ADO Data Control 6.0 (OLEDB) yang dikombinasikan dengan DataGrid sebagaimana yang telah saya jelaskan di artikel cara koneksi database acces di Visual Basic (VB) 6.0 . Perbedaan yang mendasar antara kedua metode tersebut AdoDc dan Tool Data adalah pada Tool Data pencarian database dilakukan secara manual sesuai dengan direktori dimana file database.mdb kita simpan, sedangkan pada AdoDc hal tersebut bisa dilakukan secara otomatis.
Proses cetak data yang akan kita buat kali ini desainnya seperti gambar berikut :
Perhatikan letak direktori database yang akan gunakan dengan fasilitas Tool Data
Masukkan Coding Berikut :
Perhatikan pada form load letak database.mdb nya cocokan dengan properti ToolData pada form3. perhatikan juga Nama command yang digunakan Clayar dan Cprinter. pada command Clayar program akan memanggil form4 untuk menampilkan data. maka sobat harus menambahkan sebuah form seperti contoh dibawah ini. sebaiknya gunakan form dengan warna putih supaya penampilan data terlihat lebih bagus.
Tampilan cetak layar setelah command layar di klik.
Untuk cetak printer, program akan otomatis mencetak langsung sesuai dengan filename printer default yang terdapat pada setingan komputer sobat. Jika komputer sobat belum diinstall driver printer apapun maka proses program akan menampilkan data ke Microsoft Office OneNote.
Demikian tutorial VB (Visual Basic) dasar kali ini tentang pembuatan program proses percetakan data di Visual Basic 6.0 . moga bermanfaat.
Tutorial VB (Visual Basic) kali ini tentang cara membuat program cetak data kelayar atau langsung keprinter yang tentunya data-data yang akan kita cetak atau ditampilkan tersebut telah diinput dengan program entri data yang telah mempunyai koneksi ke databse yang telah di create menggunakan AdoDc , Tool Data, atau AdoDb. Tapi pada kesempatan ini kita akan menggunakan Tool Data standar VB (Visual Basic) dalam memangil database.mdb yang sebelumnya kita menggunakan AdoDc dengan penambahan Componen Microsoft ADO Data Control 6.0 (OLEDB) yang dikombinasikan dengan DataGrid sebagaimana yang telah saya jelaskan di artikel cara koneksi database acces di Visual Basic (VB) 6.0 . Perbedaan yang mendasar antara kedua metode tersebut AdoDc dan Tool Data adalah pada Tool Data pencarian database dilakukan secara manual sesuai dengan direktori dimana file database.mdb kita simpan, sedangkan pada AdoDc hal tersebut bisa dilakukan secara otomatis.
Proses cetak data yang akan kita buat kali ini desainnya seperti gambar berikut :
Perhatikan letak direktori database yang akan gunakan dengan fasilitas Tool Data
Masukkan Coding Berikut :
Dim DKatalog As Database
Dim TDaftar As Recordset
Dim nomor, sk As Integer
Private Sub CLAYAR_Click()
nomor = 1
sk = 1
Form4.Show
CetakPreview
End Sub
Private Sub CPRINTER_Click()
nomor = 1
sk = 1
CetakPrinter
Printer.EndDoc
End Sub
Private Sub CSelesai_Click()
Unload Me
'MENU_UTAMA.Show
End Sub
Private Sub CetakPrinter()
With Data1.Recordset
.MoveFirst
Printer.CurrentX = 0
Printer.CurrentY = 0
Do While Not .EOF
If sk = 1 Then
Printer.FontBold = True
Printer.FontSize = 20
Printer.Print
Printer.Print "Laporan Daftar Buku"
Printer.Print
Printer.FontBold = False
Printer.FontSize = 10
Printer.Print
Printer.Print
Printer.FontBold = True
Printer.Print Tab(3); "KODE";
Printer.Print Tab(17); "JUDUL BUKU";
Printer.Print Tab(55); "PENULIS";
Printer.Print Tab(75); "TAHUN";
Printer.Print Tab(87); "HVS";
Printer.Print Tab(99); "CD";
Printer.FontBold = False
Printer.Print
sk = 0
End If
Printer.Print Tab(3); !Kode;
Printer.Print Tab(17); !JudulBuku;
Printer.Print Tab(55); !Penulis;
Printer.Print Tab(75); !TahunTerbit;
Printer.Print Tab(87); !Hargahvs;
Printer.Print Tab(99); !HargaCD
.MoveNext
nomor = nomor + 1
Loop
Printer.Print
End With
Printer.NewPage
End Sub
Private Sub Command1_Click()
End Sub
Private Sub Form_Load()
Set DKatalog = OpenDatabase("C:\Users\DAnish\Desktop\Entri Data BUku Oke\databuku.mdb")
Set TDaftar = DKatalog.OpenRecordset("DaftarBuku")
TDaftar.Index = "xkode"
End Sub
Private Sub CetakPreview()
With Data1.Recordset
.MoveFirst
Do While Not .EOF
If sk = 1 Then
Form4.FontBold = True
Form4.FontSize = 20
Form4.Print
Form4.Print "Laporan Daftar Buku"
Form4.FontBold = False
Form4.FontSize = 10
Form4.Print
Form4.Print "=================================================="
Form4.FontBold = True
Form4.Print Tab(3); "KODE BUKU";
Form4.Print Tab(20); "JUDUL BUKU";
Form4.Print Tab(40); "PENULIS";
Form4.Print Tab(60); "TAHUN TERBIT";
Form4.Print
Form4.Print "=================================================="
Form4.FontBold = False
Form4.Print
sk = 0
End If
Form4.Print Tab(3); !Kode;
Form4.Print Tab(24); !JudulBuku;
Form4.Print Tab(47); !Penulis;
Form4.Print Tab(70); !TahunTerbit;
.MoveNext
nomor = nomor + 1
Loop
Form4.Print
Form4.Print "===================================================="
Form4.Print
Form4.Print "===================================================="
End With
End Sub
Dim TDaftar As Recordset
Dim nomor, sk As Integer
Private Sub CLAYAR_Click()
nomor = 1
sk = 1
Form4.Show
CetakPreview
End Sub
Private Sub CPRINTER_Click()
nomor = 1
sk = 1
CetakPrinter
Printer.EndDoc
End Sub
Private Sub CSelesai_Click()
Unload Me
'MENU_UTAMA.Show
End Sub
Private Sub CetakPrinter()
With Data1.Recordset
.MoveFirst
Printer.CurrentX = 0
Printer.CurrentY = 0
Do While Not .EOF
If sk = 1 Then
Printer.FontBold = True
Printer.FontSize = 20
Printer.Print
Printer.Print "Laporan Daftar Buku"
Printer.Print
Printer.FontBold = False
Printer.FontSize = 10
Printer.Print
Printer.Print
Printer.FontBold = True
Printer.Print Tab(3); "KODE";
Printer.Print Tab(17); "JUDUL BUKU";
Printer.Print Tab(55); "PENULIS";
Printer.Print Tab(75); "TAHUN";
Printer.Print Tab(87); "HVS";
Printer.Print Tab(99); "CD";
Printer.FontBold = False
Printer.Print
sk = 0
End If
Printer.Print Tab(3); !Kode;
Printer.Print Tab(17); !JudulBuku;
Printer.Print Tab(55); !Penulis;
Printer.Print Tab(75); !TahunTerbit;
Printer.Print Tab(87); !Hargahvs;
Printer.Print Tab(99); !HargaCD
.MoveNext
nomor = nomor + 1
Loop
Printer.Print
End With
Printer.NewPage
End Sub
Private Sub Command1_Click()
End Sub
Private Sub Form_Load()
Set DKatalog = OpenDatabase("C:\Users\DAnish\Desktop\Entri Data BUku Oke\databuku.mdb")
Set TDaftar = DKatalog.OpenRecordset("DaftarBuku")
TDaftar.Index = "xkode"
End Sub
Private Sub CetakPreview()
With Data1.Recordset
.MoveFirst
Do While Not .EOF
If sk = 1 Then
Form4.FontBold = True
Form4.FontSize = 20
Form4.Print
Form4.Print "Laporan Daftar Buku"
Form4.FontBold = False
Form4.FontSize = 10
Form4.Print
Form4.Print "=================================================="
Form4.FontBold = True
Form4.Print Tab(3); "KODE BUKU";
Form4.Print Tab(20); "JUDUL BUKU";
Form4.Print Tab(40); "PENULIS";
Form4.Print Tab(60); "TAHUN TERBIT";
Form4.Print
Form4.Print "=================================================="
Form4.FontBold = False
Form4.Print
sk = 0
End If
Form4.Print Tab(3); !Kode;
Form4.Print Tab(24); !JudulBuku;
Form4.Print Tab(47); !Penulis;
Form4.Print Tab(70); !TahunTerbit;
.MoveNext
nomor = nomor + 1
Loop
Form4.Print
Form4.Print "===================================================="
Form4.Print
Form4.Print "===================================================="
End With
End Sub
Perhatikan pada form load letak database.mdb nya cocokan dengan properti ToolData pada form3. perhatikan juga Nama command yang digunakan Clayar dan Cprinter. pada command Clayar program akan memanggil form4 untuk menampilkan data. maka sobat harus menambahkan sebuah form seperti contoh dibawah ini. sebaiknya gunakan form dengan warna putih supaya penampilan data terlihat lebih bagus.
Tampilan cetak layar setelah command layar di klik.
Untuk cetak printer, program akan otomatis mencetak langsung sesuai dengan filename printer default yang terdapat pada setingan komputer sobat. Jika komputer sobat belum diinstall driver printer apapun maka proses program akan menampilkan data ke Microsoft Office OneNote.
Demikian tutorial VB (Visual Basic) dasar kali ini tentang pembuatan program proses percetakan data di Visual Basic 6.0 . moga bermanfaat.
Riau, 25 Sya'ban 1435 H/ 23 Juni 2014
Posting ini tercipta setelah dropbear port 443
terinstall apik di server SG.GS kami.
Content Creator by : DAnish Fathurrahman
Bolehkah saya minta source code nya Pak?
ReplyDeleteSaya lagi butuh untuk Project Print Data dari Jembatan Timbang
Jika berkenan bisa di share atau email ke felipe.tanzil@gmail.com
tinggal copas aja script yang diatas mas. utk source code sudh terhapus dari comp.
Delete