Cara Buat Header Nota Print Pos dengan Beberapa Baris

Untuk nota bertype kecil yang sering kita jumpai pada saat kita melakukan transaksi pembelian barang pada minimarket, supermket dan toko-toko lainnya pada umumnya berukuran sangat kecil dan biasanya kop (Header) dari nota tersebut berisi alamat, nama dari penjual tersebut. Disini admin akan share sebuah fungsi menggunakan For ....Next untuk membagi tulisan dari header nota ke dalam beberapa baris.

Untuk tulisan header sebagai contoh 

"Jln. Adnan Buyung Nasution Kelurahan Marga Tiga Kecamatan Sukadana Kabupaten Lampung Timur, Lampung"

Buka Microsoft Visual Basic 6.0 - Form dan tambahkan satu buah CommandButton (tombol) pada form tersebut kemudian double klik pada CommandButton dan copykan syntak dibawah ini

Dim vHeader As String

vHeader = "Jln. Adnan Buyung Nasution Kelurahan Marga Tiga Kecamatan Sukadana Kabupaten Lampung Timur, Lampung"

For nTulisan = 1 To Len(vHeader) Step 25

    NK = Mid(vHeader, nTulisan, 25)

    Print Tab(22); NK;

Next nTulisan

Untuk angka 30 bisa dimodifikasi dengan menyesuaikan kebutuhan jumlah karakter yang akan dibagi dalam kalimat header nota. Untuk selanjutnya jika telah selesai coba jalankan/F5 dan klik CommandButton, maka header akan terbagi beberapa baris sesuai dengan angka pembagi diatas

Semoga untuk pembahasan kali ini dapat bermanfaat bagi pembaca sekalian