Thanks berat ya... GBU Yunatan ----- Original Message ----- From: "Yohanes Kurniawan" <[EMAIL PROTECTED]> To: ">" <[email protected]> Sent: Thursday, December 08, 2005 10:14 AM Subject: Re: [Programmer-VB] Re: T: Print di kertas panjang
> 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 >> >> >> >> >> >> >> > > > > > 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/
