Dear All,
Mohon bantuannya saya sedang membuat semacam program untuk kasir.
Saya kesulitan untuk mencetak struk di printer epson lx-300.
Setiap program selesai mencetak otomatis printernya juga berhenti.
Printernya tidak menggulung sampai akhir halaman. Jadi setiap transaksi tidak
ke halaman berikutnya.
Coding yg sy gunakan sbb:
Private sub cmdCetak()
Dim i As Integer
Dim Record, NO, Data, Data1, Data2, Data3, Data4
Open "LPT1" For Output As #1
Printer.Width = 20000
Printer.CurrentX = 0
Printer.CurrentY = 0
Printer.ScaleMode = vbCentimeters
Printer.FontName = "Arial"
Printer.FontSize = 12
Printer.FontBold = True
Print #1, Tab((45 - Len(Trim("Rumah Makan Gaya Warna"))) / 2); Trim("Rumah
Makan XXX")
Print #1, Tab((45 - Len(Trim("Jl. Raya Tajur No.168A Bogor"))) / 2); Trim("Jl.
Raya Tajur No.168A Bogor")
Print #1, Tab((45 - Len(Trim("0251-330908"))) / 2); Trim("0251-330908")
Print #1, ""
Print #1, Printer.FontSize = 8
Print #1, "No Faktur : " & txtNoTrans.Text
Print #1, "Tanggal : " & dtpTgl.Value
Print #1, "Operator : " & txtCash.Text
Print #1, "------------------------------------------------------------------"
Print #1, "No. Item Qty Harga Jumlah"
Print #1, "------------------------------------------------------------------"
NO = 1
With lv
For i = 1 To .ListItems.Count
Data = .ListItems(i).SubItems(1)
Data2 = .ListItems(i).SubItems(2)
Data3 = .ListItems(i).SubItems(3)
Data4 = .ListItems(i).SubItems(4)
' nah syntax diatas jadi ga rata karena aku pake space itu untuk ksih jarak
sedangkan nama barang berubah2 len-nya,,,gmn caranya ya supaya dia rata dengan
judul diatasnya
Print #1, NO & Space(10) & Data & Space(10) & Data1 & Space(10) & Data2
& Space(10) & Data3 & Space(10) & Data4
NO = NO + 1
Next i
End With
Print #1, "---------------------------------------------------------"
Print #1, Tab(35); "Total : " & txtTotal.Text
Close #1
End sub
Bagaimana coding yg tepat supaya kertasnya dapat menggulung satu halaman.
Atas bantuanya, terima kasih.
Salam,
Thoy
Mohon maaf jika pertanyaan saya malah membuat bingung.
