Re: [Programmer-VB] Cetak di Kasir (kertas tetap menggulung)

[Yunatan S. Widada]

Nih, coba yang ini.   Private Sub CetakFaktur()     Dim TotalBelanjaan, Items As Double     Open "LPT1:" For Output As #1     Print #1, Tab(0)     Print #1, "Nama Toko'"     Print #1, "Alamat Toko"     Print #1, "------------------------------------"     Print #1, "No. : "; RTrim(Text1.Text); Tab(19); Format(Now, "DD/MM/YY-H:M:S")     Print #1, "CST : "; RTrim(Combo2.Text)     Print #1, " "     RsTempJual.MoveFirst     Items = 0     Do While Not RsTempJual.EOF         Print #1, Tab(0); RTrim(RsTempJual.Fields("Description").Value) & " (" & RTrim(RsTempJual.Fields("kode").Value) & ")"         Print #1, Tab(3); Kanan(Format(RsTempJual.Fields("Jumlah").Value, "#,#0"), 3); Tab(9); "X"; Tab(11); Kanan(Format(RsTempJual.Fields("hargapcs").Value, "#,#0"), 8); Tab(25); Kanan(Format(RsTempJual.Fields("HargaItem").Value, "#,#0"), 10)         TotalBelanjaan = TotalBelanjaan + RsTempJual.Fields("HargaItem").Value         Items = Items + 1         RsTempJual.MoveNext     Loop     Print #1, " "     Print #1, "Items : "; Format(Items, "#,#0"); Tab(15); "Total   : "; Kanan(Format(TotalBelanjaan, "#,#0"), 10)     Print #1, Tab(15); "Bayar   : "; Kanan(Format(MaskEdBox3.Text, "#,#0"), 10)     Print #1, Tab(15); "Kembali : "; Kanan(Format(MaskEdBox4.Text, "#,#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 End Sub     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 __._,_.___ Wahana Programmer Groups Links <*> Untuk mengunjungi sponsor milis ini, klik link berikut:     http://wahanaprogrammer.net <*> Untuk menghubungi owner milis ini, kirim email ke:     [EMAIL PROTECTED] <*> Konsultasi pemrogramman bisa chat disini:     Yahoo! Messenger: wahanaprogrammer SPONSORED LINKS Indonesia phone card Programmer Indonesia tour Indonesia travel Indonesia flower Your email settings: Individual Email|Traditional Change settings via the Web (Yahoo! ID required) Change settings via email: Switch delivery to Daily Digest | Switch to Fully Featured Visit Your Group | Yahoo! Groups Terms of Use | Unsubscribe __,_._,___