Tutorial VB6-Cara Membuat Print Struk di VB6

Nahh untuk membuat Print Struk pada Visual Basic 6 , Sebaiknya anda membuat form berikut ini terlebih dahulu.

1. Buat Form1 Seperti berikut ini.

2. Setelah Buat Form1 diatas kita masukkan kode berikut ini

Sub cetak()
cetak_data.Font = "courier new"
cetak_data.Show
cetak_data.CurrentX = 0
cetak_data.CurrentY = 0
cetak_data.FontSize = 9.5
cetak_data.Print Tab(6); "BIODATA";
cetak_data.Print Tab(6); "MAHASISWA SIIBAGUS     "; Format(Time, "hh:mm:ss AM/PM");
cetak_data.Print Tab(2); "===================================";
cetak_data.Print Tab(3); "NIM        :"; Tnim;
cetak_data.Print Tab(3); "NAMA       :"; Tnama;
cetak_data.Print Tab(3); "JURUSAN    :"; Tjurusan;
cetak_data.Print Tab(3); "SEMESTER   :"; Tsemester;
cetak_data.Print Tab(3); "ALAMAT     :"; Talamat;
cetak_data.Print Tab(2); "===================================";
cetak_data.FontSize = 9.5
cetak_data.Print Tab(2); "*Ini Hanya Program Sederhana*";
cetak_data.Print Tab(2); "*dan Silahkan Kembangkan lagi*";
cetak_data.Print Tab(2); "*www.siibagus.blogspot.com*";
cetak_data.FontSize = 9.5
cetak_data.Print Tab(2); "===================================";
cetak_data.Font = "Courier New"
cetak_data.Print Tab(2); "===================================";
End Sub

3. Klik 2 kali pada cmdprint dan masukkan kode seperti berikut ini.

Private Sub cmdprint_Click()
cetak
End Sub

3. Setelah itu buat Form2 polos, dan beri name "cetak_data"  seperti berikut ini

 4. Pada Form2 Cetak_data ini jangan beri kode dan anda bisa menambahkan gambar sebagai backgroundnya. pilih properties cetak data > Pilih Picture

5. Nah Jika Program dijalankan akan Jadi Seperti di bawah ini.

SELAMAT MENCOBA

Download Panduan

Download Program

Tweet