Gelandang Internet yang mencoba melewati lorong sempit tanpa batas ruang dan waktu

Cetak Data di VB

· · 2 comments
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 :

Cetak data ke layar VB












Perhatikan letak direktori database yang akan gunakan dengan fasilitas Tool Data


cetak data ke printer di VB











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

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.

Cetak data ke printer di VB 6.0











Tampilan cetak layar setelah command layar di klik.


Cetak data kelayar di VB











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

2 comments:

  1. Bolehkah saya minta source code nya Pak?
    Saya lagi butuh untuk Project Print Data dari Jembatan Timbang

    Jika berkenan bisa di share atau email ke felipe.tanzil@gmail.com

    ReplyDelete
    Replies
    1. tinggal copas aja script yang diatas mas. utk source code sudh terhapus dari comp.

      Delete

- Komentar yang mengandung hujatan, negatif akan dianggap spam
- Komentar link akan dilaporkan ke posyandu terdekat & tidak akan ditampilkan