Terima kasih mas Nurhasim atas masukannya. Sudah saya coba, tapi koq masih belum berhasil ya? yang keluar malah cuma 1 angka saja, bahkan untuk detail transaksi yang keluar hanya angka -1. Apa ada yang masih kurang?
Terima kasih lagi sebelumnya salam ARF --- In [email protected], "hasimnurhsm" <[EMAIL PROTECTED]> wrote: > > > Kalau saya sich biasa ngakalin begini: > > Tentukan dulu harga jual lebar maksimal berapa digit, misal 14 digit > > berarti : > Print #1, rst!Quantity & "x " & 14 - len(Format(rst! > HargaJual,"#,###")) & " " & 14-len(Format(rst!Total, "#,###")) > > mudah2an membantu. > > wasalam > > Nurhasim > > > --- In [email protected], "Moh. Arief Noorshiam" > <noorshiam@> wrote: > > > > 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" <aksan.kurdin@> 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 <noorshiam@> 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 > > > > > >
