coba source ini, smoga bisa membantu...
dim kur as integer
Private Sub cetakan()
Dim mqty As Integer
Close #1
Open "LPT1:" For Output As #1
Print #1, Chr(15);
Printer.Font = "Courier new"
Printer.FontSize = 3
mqty = 0
If kur = 1 Then
Print #1, Tab(18); "Toko Donat"
Print #1, Tab(12); "Jl. Ap. Pettarani"
Print #1, Tab(20); "Makassar"
For b = 1 To Lg.ListItems.Count
Print #1, Tab(2); Lg.ListItems(b).SubItems(1);
Print #1, Tab(32); "Rp. "; Format(Lg.ListItems(b).SubItems(6), "#,#.00")
Print #1, Tab(2); Lg.ListItems(b).Text;
Print #1, Tab(15); "@"; Lg.ListItems(b).SubItems(3);
Print #1, Tab(20); "x "; Lg.ListItems(b).SubItems(4)
mqty = mqty + Lg.ListItems(b).SubItems(3)
Next b
Print #1, ""
Print #1, Tab(2); "------------------------------------------"
Print #1, Tab(2); "Total";
Print #1, Tab(32); "Rp. "; Format(txtotal.Text, "#,#.00")
Print #1, Tab(2); "Bayar";
Print #1, Tab(32); "Rp. "; Format(txbayar.Text, "#,#.00")
Print #1, Tab(2); "Kembalian";
Print #1, Tab(32); "Rp. "; Format(txchange.Text, "#,#.00")
Print #1, ""
Print #1, Tab(2); "*****************"; mqty; "Item ";
"*****************"
Print #1, ""
Print #1, Chr(15)
Close #1
kur = 0
End If
End Sub
Private Sub txbayar_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case 13
kur = 1
cetakan
End Select
End Sub
---------------------------------
Kunjungi halaman depan Yahoo! Indonesia yang baru!
[Non-text portions of this message have been removed]
