Alhamdulillah sudah berhasil Kang Aksan, hanya saja utk looping saya
pakai resep dari si mbah Budilaks ^_^, seperti ini :
Function PrintLangsung()
Dim dbs As Database
Dim rst As Recordset
Dim NoTrans As String
'buka dulu tabel-tabel yg berhubungan dengan form Kasir
Set dbs = CurrentDb()
Set rst = dbs.OpenRecordset("bla..bla..bla", dbOpenSnapshot)
With rst
NoTrans = rst!NoTransaksi
'kemudian lain-lainnya sama, yaitu buka dulu LPT1nya
Open "LPT1" For Output As #1
Print #1, " XXX SWALAYAN "
Print #1, NoTrans & " " & Date & Time
'ini untuk detail transaksinya
.MoveFirst
Do While Not rst.EOF
Print #1, rst!NamaBarang
Print #1, rst!Quantity & "x " &
Format(rst!HargaJual,"#,###") & " " & Format(rst!Total, "#,###")
.MoveNext
Loop
'dst dst dst
Naahh... cuma sayangnya untuk format angka koq jadi rata kiri ya?
Bagaimana caranya agar angka menjadi rata kanan sehingga tampak lebih
rapi.
Terima kasih banyak atas bantuan Kang Aksan, si Mbah Budilaks (lagi
sibuk ya? koq nggak pernah nongol?), dan juga teman-teman yang lain
Salam
ARF
--- In [email protected], "aksan
kurdin" <[EMAIL PROTECTED]> wrote:
>
> 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
>
