Print program POS menggunakan printer TMU220 yang di sharing (dari kompie A ke
kompie B), ketika print yang pertamakali di kompie B, komputer kaya hang up (not
responding), program harus diclose dulu (lewat task manager) kemudian dijalankan
lagi baru proses print normal, ada yang pernah mengalami gak? atau tolong donk
analisa script nya. NB: kalo printnya di kompie A normal gak ada masalah.
contoh script di kompie B.
Private Sub PrintStruk()
Dim table As ADODB.Recordset
Dim sql As String
Dim i As Integer
Dim sDiskon As String
Set table = New ADODB.Recordset
sql = "select * from kop"
table.Open sql, MdbConnection, adOpenDynamic, adLockOptimistic
Shell "NET USE LPT1: \\kassa1\TMU220"
Open "LPT1:" For Output As #1
Print #1,
Print #1, Tab(table!spasi1); table!toko
Print #1, Tab(table!spasi2); table!alamat
Print #1,
If Len(lblNama.Caption) > 0 Then
Print #1, Tab(1); lblNama.Caption;
End If
If Len(lblAlamat.Caption) > 0 Then
Print #1, Tab(1); lblAlamat.Caption;
End If
If Len(lblKota.Caption) > 0 Then
Print #1, Tab(1); lblKota.Caption;
End If
If Len(lblTelepon.Caption) > 0 Then
Print #1, Tab(1); "Tlp, "; lblTelepon.Caption;
End If
Print #1,
Print #1,
Print #1, Tab(1); sLogin
Print #1, Tab(1); CDate(Now)
Print #1, Tab(1); String$(32, "-")
Print #1, Tab(2); "Qty";
Print #1, Tab(6); "Sat";
Print #1, Tab(13); "Harga";
Print #1, Tab(19); "Disc";
Print #1, Tab(26); "Jumlah";
Print #1, Tab(1); String$(32, "-")
For i = 1 To ListView1.ListItems.Count
Print #1, Tab(1); BanyakHurup(ListView1.ListItems(i).SubItems(1), 27);
Print #1, Tab(1); Kanan(ListView1.ListItems(i).SubItems(3), 3);
Print #1, Tab(6); ListView1.ListItems(i).SubItems(4);
Print #1, Tab(11); Kanan(Format(ListView1.ListItems(i).SubItems(2),
"###,###"), 6);
If ListView1.ListItems(i).SubItems(5) = 0 Then
sDiskon = " "
Else
sDiskon = Kanan(ListView1.ListItems(i).SubItems(5), 2)
End If
Print #1, Tab(19); sDiskon;
Print #1, Tab(23); Kanan(Format(ListView1.ListItems(i).SubItems(6),
"###,###"), 8);
Next
Print #1, Tab(1); String$(32, "-")
Print #1, Tab(10); "Total.......";
Print #1, Tab(22); Kanan(lblGrandTotal.Caption, 9);
Print #1, Tab(10); "Bayar.......";
Print #1, Tab(22); Kanan(lblBayar.Caption, 9);
Print #1, Tab(10); "Kembalian...";
Print #1, Tab(22); Kanan(lblKembalian.Caption, 9);
Print #1,
Print #1,
Print #1, Tab(1); "Jumlah Item : "; lblJumlahItem.Caption;
Print #1,
Print #1,
Print #1, Tab(1); String$(32, "*")
Print #1, Tab(1); "Terima kasih atas kunjungan anda";
Print #1, Tab(1); String$(32, "*")
Print #1,
Print #1,
Print #1,
Print #1,
Print #1,
Print #1,
Print #1,
Print #1,
Print #1,
Print #1,
Close #1
Shell "NET USE LPT1: /DELETE"
Set table = Nothing
End Sub
