Membuat Cetak struk part 2 di visual basic

Banyak pertanyaan timbul dari artikel saya mengenai membuat cetak struk menggunakan visual basic, diantaranya adalah, bagaimana kelanjutannya setelah struk sudah tercetak di form???bagai mana mengirimkan cetakan tersebut ke printer??
Baiklah, bagi kalian yang ingin mengetahui artikel saya yang pertama mengenai cetak struk, silahkan klik dahulu di sini.
Setelah kalian baca dan kalian bisa download contoh source codenya, sekarang kita mulai membahas pertanyaan yang timbul diatas.

Kalian lihat listing untuk membuat cetak struk nya dahulu, disitu telihat listing sbb:

view plaincopy to clipboardprint

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 

Lihat baik-baik untuk syntax atau baris listing yang menyatakan pengiriman data untuk di cetak ke dalam form.

cetak_data.Print

Untuk cetak_data adalah nama form yang akan dijadikan priview struk nya, sedangkan print adalah perintah untuk mencetak data ke form.
Jadi di asumsikan bahwa mengirimkan data untuk di cetak menggunakan perintah print tersebut.
Lalu bagaimana mengirim data untuk dikirimkan ke printer???
Baiklah, untuk membuat struk tsb tercetak,sebenernya cukup mudah dan simpel. Tentunya kalian masih bisa menggunakan baris listing yang ada untuk mengirimkan data ke form diatas. Bedanya hanya pada object tempat data dicetak, awal kita mencetak kedalam form, dan kali ini kita ingin mencetak data ke sebuah printer.
Lihat baris dibawah ini

1. Sub cetak_print()   
2. printer.Font = "courier new"   
3.  
4.      printer.CurrentX = 0   
5.      printer.CurrentY = 0   
6.      printer.FontSize = 9.5   
7.      printer.Print Tab(6); "BIODATA";   
8.      printer.Print Tab(6); "MAHASISWA BSI     "; Format(Time, "hh:mm:ss AM/PM");   
9.      printer.Print Tab(2); "===================================";   
10.      printer.Print Tab(3); "NIM        :"; TNim;   
11.      printer.Print Tab(3); "NAMA       :"; tNama;   
12.      printer.Print Tab(3); "JURUSAN    :"; tJurusan;   
13.      printer.Print Tab(3); "SEMESTER   :"; tSemester;   
14.      printer.Print Tab(3); "ALAMAT     :"; tAlmt;   
15.      printer.Print Tab(2); "===================================";   
16. printer.FontSize = 9.5   
17.      printer.Print Tab(2); "*Ini hanya sebuah contoh sederhana*";   
18.      printer.Print Tab(2); "*yang dapat kalian kembangkan lagi*";   
19. printer.FontSize = 9.5   
20.     printer.Print Tab(2); "===================================";   
21. printer.Font = "Courier New"   
22.     printer.Print Tab(2); "===================================";   
23. printer.Print Tab(13); "Deni Indrawan";   
24. printer.Print Tab(11); "www.indrawan21.tk";   
25. End Sub 

bagaimana cara pemanggilannya??? Hal ini tergantung dari logika anda bagaimana ingin menjalankan baris listing tsb. Saya berikan contoh nya di berbagai event untuk menggunakannya.

Menggunakan event saat tekan enter pada form:

1. Private Sub Form_KeyPress(KeyAscii As Integer) 
2. If KeyAscii = 13 Then 
3.     Unload Me 
4.     Call cetak_print 
5. End If 
6. End Sub 

Menggunakan event saat tekan ESC pada form:

1. Private Sub Form_KeyPress(KeyAscii As Integer) 
2. If KeyAscii = 27 Then 
3.     Unload Me 
4.     Call cetak_print 
5. End If 
6. End Sub 

Menggunakan event saat form struk di close/tutup:

1. Private Sub Form_Unload(Cancel As Integer) 
2.     Call cetak_print 
3. End Sub 

Bagaimana?
Jika masih ada yang kurang jelas, silahkan bertanya, karena bertanya lebih baik daripada ga nanya