Coba lagi begini: Print #1, rst!Quantity & "x " & 14 - len(Format(rst! HargaJual,"# ,###")) & Format(rst! HargaJual,"# ,###")) & " " & 14-len(Format(rst!Total, "#,###"))&Format ( rst!Total, "#,###"))
Salam Nurhasim --- In [email protected], "Moh. Arief Noorshiam" <[EMAIL PROTECTED]> wrote: > > 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" <hasimnurhsm@> 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 > > > > > > > > > >
