Tuesday, October 9, 2012

Membuat form cetak struk sederhana di Visual Basic


Artikel ini saya buat berdasarkan request tentang cara membuat cetak struk di visual basic6.0 (vb6).Sebenernya untuk masalah ini ga pernah diajarkan di kampus untuk yang angkatan saya Smile with tongue outtapi yah apa bole buat,hal ini juga perlu jikalau kita ingin mencetak sebuah hasil transaksi,dari pada harus menggunakan report atau data environment…
Sebenernya cukup simple ajah untuk listingnya,biar lebih jelas,ikuti ajah langkah2 ini yah
Nyah-Nyah
Pertama kalian buat satubuah project baru dengan 2 buah Form…
Desing form pertama sbb:

Form utama

berilah nama pada form ke dua, Contoh disini Cetak_data.
Lalu kalian ketikan listing berikut pada Form Utama :
Copy listing dibawah ini
  1. Sub cetak()  
  2. cetak_data.Font = "courier new"  
  3. cetak_data.Show  
  4.      cetak_data.CurrentX = 0  
  5.      cetak_data.CurrentY = 0  
  6.      cetak_data.FontSize = 9.5  
  7.      cetak_data.Print Tab(6); "BIODATA";  
  8.      cetak_data.Print Tab(6); "MAHASISWA BSI     "; Format(Time, "hh:mm:ss AM/PM");  
  9.      cetak_data.Print Tab(2); "===================================";  
  10.      cetak_data.Print Tab(3); "NIM        :"; TNim;  
  11.      cetak_data.Print Tab(3); "NAMA       :"; tNama;  
  12.      cetak_data.Print Tab(3); "JURUSAN    :"; tJurusan;  
  13.      cetak_data.Print Tab(3); "SEMESTER   :"; tSemester;  
  14.      cetak_data.Print Tab(3); "ALAMAT     :"; tAlmt;  
  15.      cetak_data.Print Tab(2); "===================================";  
  16. cetak_data.FontSize = 9.5  
  17.      cetak_data.Print Tab(2); "*Ini hanya sebuah contoh sederhana*";  
  18.      cetak_data.Print Tab(2); "*yang dapat kalian kembangkan lagi*";  
  19. cetak_data.FontSize = 9.5  
  20.     cetak_data.Print Tab(2); "===================================";  
  21. cetak_data.Font = "Courier New"  
  22.     cetak_data.Print Tab(2); "===================================";  
  23. cetak_data.Print Tab(13); "Deni Indrawan";  
  24. cetak_data.Print Tab(11); "www.indrawan21.tk";  
  25. End Sub  
  26. Private Sub cmdCetak_Click()  
  27. cetak  
  28. End Sub  
Nah sekarang coba kalian jalankan formnya,isi textbox yang tersedia…Lalu kalian klik tombol Print,maka form cetak akan tampil dengan data yg berada sesuai pada Textbox-TextBox di form pertama,hasilnya sbb:
Hasil

5 Komentar "Membuat form cetak struk sederhana di Visual Basic"

Unknown January 11, 2013 at 5:30 PM WIB Permalink

Sangat membantu,hehe

Aries_Bro January 12, 2013 at 6:13 PM WIB Permalink

Berterimakasihlah pada pembuat artikelnya saya hanya menshare...

Unknown March 27, 2013 at 4:40 PM WIB Permalink

buat commonbuton "PRINT" source code'x apa gan?

Aries_Bro March 28, 2013 at 7:39 AM WIB Permalink

(Printer.print) tanpa tanda kurung...

abangIjo May 18, 2013 at 2:39 AM WIB Permalink

kalo buat vb 2010 gmn ya ? help!