nih... semoga membantu, kalau ada yg kurang jangan malu2 tanya Private Function Kanan(Data As String, Panjang As Integer) As String Dim Temp As String
If Len(Data) > Panjang Then Kanan = Left(Data, Panjang) Exit Function End If Temp = Data Do While Len(Temp) <= Panjang Temp = " " & Temp Loop Kanan = Temp End Function ----- Original Message ----- From: "Yunatan S. Widada" <[EMAIL PROTECTED]> To: "Programmer VB" <[email protected]> Sent: Thursday, December 08, 2005 9:39 AM Subject: Re: [Programmer-VB] Re: T: Print di kertas panjang > 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 > > > > > > > > > > Untuk keluar dari millis ini, kirim email kosong ke: > [EMAIL PROTECTED] > > > Yahoo! Groups Links > > > > > > > ------------------------ Yahoo! Groups Sponsor --------------------~--> Get Bzzzy! (real tools to help you find a job). Welcome to the Sweet Life. http://us.click.yahoo.com/KIlPFB/vlQLAA/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/
