Salam... Bung yohanes dulu pernah memberikan satu metode untuk mencetak di kertas yang panjang seperti di supermarket. (sekalian ngebantu yang nanya kemaren). Cuman buat bung Yohanes, mau nanya nih, kalau di program anda ini kan ada fungsi untuk mencetak biar bisa rata kanan (dengan nama fungsi kanan). Kalau boleh sekalian minta dong fungsi tsb. Terima Kasih..
Yunatan ----- Original Message ----- From: "Yohanes" <[EMAIL PROTECTED]> To: <[email protected]> Sent: Thursday, August 25, 2005 1:22 PM Subject: Re: [Programmer-VB] Re: T: Print di kertas panjang oke aku kasih potongan programku yg hasilnya print terus sampai terakhir tanpa menggulung halaman: Open "LPT1:" For Output As #1 Print #1, Tab(0) Print #1, "Toko IKASI - Astra International" Print #1, "AMDI A Lantai 1 - 6522555 Ext. 130" Print #1, "------------------------------------" Print #1, "No. : "; NoFaktur; Tab(17); Format(Now, "DD/MM/YY-HH:MM:SS AM/PM") Print #1, "NPK : "; "#" & Trim(rsData!NPK_PEMBELI) & "#"; Tab(20); "Kasir: "; Operator Print #1, " " For PosData = 0 To rsJmlData!JML - 1 'Print #1, Tab(0); Left(rsData!MERK, 15); Tab(18); Kanan(Format(rsData!QTY_BELI, "#,#0"), 3); Tab(23); Kanan(Format(rsData!QTY_BELI * rsData!H_JUAL, "#,#0"), 9) Print #1, Tab(0); Left(rsData!MERK, 15); Tab(16); Kanan(Format(rsData!QTY_BELI, "#,#0"), 2); Tab(19); Kanan(Format(rsData!H_JUAL), 6); Tab(27); Kanan(Format(rsData!QTY_BELI * rsData!H_JUAL, "#,#0"), 8) TotalBelanjaan = TotalBelanjaan + (rsData!QTY_BELI * rsData!H_JUAL) rsData.MoveNext Next PosData rsJmlData.Close SQL = "Select sum(QTY_BELI) as JML from Transaksi where NO_FAK=" & NoFaktur rsJmlData.Open SQL, CN rsData.MoveFirst Print #1, " " Print #1, "Items : "; Format(rsJmlData!JML, "#,#0"); Tab(15); "Total : "; Kanan(Format(TotalBelanjaan, "#,#0"), 10) Print #1, Tab(15); "Bayar : "; Kanan(Format(rsData!Bayar, "#,#0"), 10) Print #1, Tab(15); "Kembali : "; Kanan(Format(rsData!Bayar - TotalBelanjaan, "#,#0"), 10) Print #1, " " Print #1, "Note: Barang yang sudah dibeli tidak" Print #1, " dapat ditukar / dikembalikan." Print #1, " " Print #1, " *** T E R I M A K A S I H ***" Print #1, " " Print #1, " " Print #1, " " Print #1, " " Print #1, Chr(0) Close #1 ----- Original Message ----- From: "Junias Sinaga" <[EMAIL PROTECTED]> To: <[email protected]> Sent: Thursday, August 25, 2005 11:10 AM Subject: [Programmer-VB] Re: T: Print di kertas panjang > Terimakasih mas made adi. > Saya udah coba juga cara ini. > Tapi di akhir perintah saya taruh > > Printer.EndDoc > > Dan printer akan menggulung kertas sampai 1 halaman setelah selesai > print. Tanpa perintah itu printer tidak akan memulai printing sampai > aplikasi dimatikan. Bagaimana yach baiknya ? Untuk keluar dari millis ini, kirim email kosong ke: [EMAIL PROTECTED] Yahoo! Groups Links ------------------------ Yahoo! Groups Sponsor --------------------~--> AIDS in India: A "lurking bomb." Click and help stop AIDS now. http://us.click.yahoo.com/9QUssC/lzNLAA/TtwFAA/k7folB/TM --------------------------------------------------------------------~-> Untuk keluar dari millis ini, kirim email kosong ke: [EMAIL PROTECTED] Yahoo! Groups Links <*> To visit your group on the web, go to: http://groups.yahoo.com/group/Programmer-VB/ <*> To unsubscribe from this group, send an email to: [EMAIL PROTECTED] <*> Your use of Yahoo! Groups is subject to: http://docs.yahoo.com/info/terms/
