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" <[EMAIL PROTECTED]> 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 > > >
