sederhananya sih mungkin seperti ini:
open "LPT1" for output as #1
print #1, "PT Belaccess"
print #1, "Tanggal : " & format(me.txttgl,"dd-mm-yyyy")
print #1, "Stasiun : " & getStasiun()
print #1, "User : " & gstr_User
print #1
print #1, "No Item Jumlah Harga Nilai"
print #1, "-------------------------------------------"
...
dim i as integer
for i = 1 to rs.recordcount
print #1, left( space(4) & i,4) & "."
& left(space(20) & rs("Item"),20) _
& left(space(10) & rs("Jumlah"),10) & left(space(10) &
format(rs("Harga"),"#,##0.00"),10) _
& left(space(10) & format(rs("Nilai"),"#,##0.00"),10)
next i
...
print #1
close #1
kode blm di test, tapi coba tangkap idenya saja ....
Aksan Kurdin
On 3/26/08, Moh. Arief Noorshiam <[EMAIL PROTECTED]> wrote:
>
> Maaf, nyambung lagi.... setelah search di forum ini, sy menemukan
> jawaban dari Kang Aksan, cuplikannya seperti ini :
> Untuk struct, anda sebaiknya tidak memakai report access, tetapi
> gunakan perintah print langsung ke port paralel.
> Cara lama dengan menggunakan perintah print ke device lpt1 seperti
> berikut:
>
> open "LPT1" for output as #1
> print #1, "PT Belaccess"
> print #1, "Tanggal : " & format(me.txttgl,"dd-mm-yyyy")
> print #1, "Stasiun : " & getStasiun()
> print #1, "User : " & gstr_User
> print #1
> print #1, "No Item Jumlah Harga Nilai"
> print #1, "-------------------------------------------"
> ...
> <lakukan looping di sini untuk mencetak detail transaksi>
> ...
> print #1
> close #1
>
> Kertas struk akan berhenti di perintah print terakhir, sedang kalau
> menggunakan report access, kertas struk pasti akan digulung sesuai
> dengan seting kertas yang dipasang.
>
> Aksan Kurdin
>
> Nahhh.... yang saya belum paham benar adalah soal looping. Bagaimana
> sih contoh konkritnya? Thanks before.
>
>
>
--
Aksan Kurdin
