Membuat Form Cetak / Print dengan VB Tutorial Lengkap

Membuat Form Cetak / Print dengan VB Tutorial Lengkap

oke kali ini saya akan membagikan cara Membuat Form Cetak / Print dengan VB Tutorial Lengkap

1. hal yang harus di lakukan pertama kali adalah membuka aplikasi visual basic, kali ini saya menggunkan visual basic 2010, setelah aplikasi sudah di buka selanjutnya buat form baru dengan nama mahasiswa seperti gambar berikut.
   
2. jika sudah, buatlah design dari gambar di atas sehingga menyerupai gambar di bawah ini.
   
   spesifikasi
   -data mahasiswa menggunakan button. tapi bisa teman-teman ganti dengan menggunakan label.
   -nim,nama,kelas,alamat, menggunakan label,
   -untuk isian nim,nama,alamat gunakan texbox,dan untuk isian kelas gunakan combobox,
   -gunakan button untuk simpan,update,hapus,bersih,keluar, dan cetak.
   -untuk output gunakan datagridview.
3. oke tahap pertama : buat database dengan nama akademik, selanjutnya isi tabel dengan nama MAHASISWA dan isi dalam tabel adalah: NIM,NAMA,KELAS,ALAMAT. seperti gambar di bawah.
   pastikan NIM sebagai PRIMARY KEY. jika sudah kembali ke visual basic.
4. selanjutnya klik pada button simpan. kemudian isikan script di bawah ini.
   

   If TextBoxnim.Text = "" Or TextBoxnama.Text = "" Or ComboBoxkelas.Text = "" Then MsgBox(" data belum lengkap!", MsgBoxStyle.Exclamation, "warning. . . ") Exit Sub Else Try Konek() Dim dml As New MySqlCommand("INSERT INTO `mahasiswa` (`Nim`, `Nama`, `Kelas`, `Alamat`) values ( '" & TextBoxnim.Text & " ', '" & TextBoxnama.Text & "', '" & ComboBoxkelas.Text & "', '" & TextBoxalamat.Text & "') ", conn) dml.ExecuteNonQuery() Catch ex As Exception End Try MsgBox("data tersimpan", MsgBoxStyle.Information, "ok") Call bersih() End If

5. selanjutnya klik pada button update dan isi dengan script berikut.
   

   Try             Konek()             Dim mDA As New MySqlDataAdapter("Update mahasiswa set nama='" & TextBoxnama.Text & "',kelas='" & ComboBoxkelas.Text & "',alamat='" & TextBoxalamat.Text & "' where nim='" & TextBoxnim.Text & "'", conn)             Dim dt As New DataTable             mDA.Fill(dt)             DataGridView1.Refresh()             Call bersih()             TextBoxnama.Text = ""             ComboBoxkelas.Text = "pilih" Catch ex As Exception MsgBox(ex.Message) End Try

6. kemudian klik button bersih
   

   TextBoxnim.Text = "" TextBoxnama.Text = "" ComboBoxkelas.Text = "pilih" TextBoxalamat.Text = ""

7. kemudian klik 2 kali button hapus kemudian isi dengan script di bawah>
   

   If TextBoxnim.Text = "" Then MsgBox("pilih data yang akan di hapus . . .", MsgBoxStyle.Exclamation, "WARNING") Exit Sub Else Dim pesan As Integer pesan = MsgBox("yakin ingin menghapus data ??:", vbInformation + vbYesNo, "WARNING") If pesan = vbYes Then Try Konek() Dim mDA As New MySqlDataAdapter("delete from mahasiswa where nim = '" & TextBoxnim.Text & "'", conn) Dim dt As New DataTable mDA.Fill(dt) DataGridView1.Refresh() Call bersih() Catch ex As Exception MsgBox(ex.Message) End Try End If End If

8. kemudian klik 2 kali pada button keluar dan isikan dengan script di bawah ini.
   

   Dim mYes_No As String = MsgBox(" yakin ingin keluar??", vbInformation + vbYesNo, "WARNING") If mYes_No = vbYes Then End End If

9. kemudian klik 2 kali pada form tabel mahasiswa ini  berfungsi untuk load kemudian isikan script berikut
   

   Call Konek() Call data_siswa()

10. kemudian isi bagian atas script dengan script berikut.
    

    Imports MySql.Data.MySqlClient Imports System.Data.DataTable Public Class mahasiswa     Dim table As MySqlDataAdapter     Dim data As DataSet     Dim com As New MySqlCommand     Dim dr As MySqlDataReader     Dim record As New BindingSource     Private Property Mysql As Object     Sub data_siswa()         Call Konek()         table = New MySqlDataAdapter("SELECT * FROM mahasiswa ", conn)         data = New DataSet         table.Fill(data)         record.DataSource = data         record.DataMember = data.Tables(0).ToString()         DataGridView1.DataSource = record     End Sub     Sub bersih()         TextBoxnim.Text = ""         TextBoxnama.Text = ""         ComboBoxkelas.Text = ""         TextBoxalamat.Text = ""         Call data_siswa()     End Sub

11. dan terakhir klik 2 kali pada datagridview kemudian isi dengan script berikut.
    

    Dim i As Integer         i = Me.DataGridView1.CurrentRow.Index         With DataGridView1.Rows.Item(i)             TextBoxnim.Text = .Cells(0).Value             TextBoxnama.Text = .Cells(1).Value             ComboBoxkelas.Text = .Cells(2).Value             TextBoxalamat.Text = .Cells(3).Value         End With

12. jika semua sudah di lakukan selanjutnya menghubungkan antara vb dengan database agar data bisa tampil. maka caranya klik projek kemudian add reference maka tampilan akan seperti gambar di bawah .
    
    kemudian pilih mysql.data dengan runtime v4 
13. kemudian silahkan jalankan program yang sudah di buat. maka ketika program di isi sesuai data yang di perlukan kemudian klik simpan maka akan seperti gambar berikut.
    
14. sampai disini pembuatan data mahasiswa sudah selesai kemudian kita akan membuat Form Cetak / Print dengan VB Tutorial Lengkap.

Langkah membuat Form Cetak / Print dengan VB Tutorial Lengkap.

1. buatlah form baru dengan nama terserah tapi kali ini saya menggunakan nama cetak mahasiswa, seperti gambar berikut.
   
2. kemudian design form cetak mahasiswa tersebut sehingga menyerupai hasil print seperti gambar di bawah ini.
   
3. disini yang di perlukan adalah label,button dan datagridview. selanjutnya klik 2 kali pada cetak data  kemudian isikan script berikut.
   

   Imports MySql.Data.MySqlClient Imports System.Data.DataTable Public Class cetakmahasiswa     Dim table As MySqlDataAdapter     Dim data As DataSet     Dim com As New MySqlCommand     Dim dr As MySqlDataReader     Dim record As New BindingSource     Private Property Mysql As Object

4. kemudian buka toolbox kemudian cari print form seperti gambar di bawah.
   
5. kemudian tarik print form tersebut ke dalam form cetak data. kemudian ulangi langkah 4 tapi dengan mencari printpreviewdialog, printdocument, printdialog. tarik sehingga seperti gambar di bawah ini.
   
6. selanjutnya klik 2 kali pada button print dan kemudian isikan script berikut.
   

   Button1.Visible = False PrintForm1.PrintAction=Printing.PrintAction.PrintToPreview PrintForm1.Print() Button1.Visible = True

7. kemudian kembali ke form mahasiswa kemudian klik 2 kali pada button cetak kemudian isi dengan script berikut.
   

   cetakmahasiswa.Show()

selesai kemudian jalankan aplikasi maka ketika di jalankan akan seperti gambar berikut.

kemudian kita klik cetak maka akan muncul tampilan yang kita buat seperti gambar di bawah ini.

kemudian kita klik print maka kan muncul preview seperti gambar di bawah.

selesai cara Membuat Form Cetak / Print dengan VB Tutorial Lengkap

semoga bermanfaat dan semoga teman teman bisa memahaminya. jika ada yang di tanyakan silahkan berkomentar di bawah.

untuk teman-teman yang mau projek yang sudah saya buat silahkan di download DISINI dan DISINI