Print Struk Tanpa Crystal Report

Home » Pemrograman » VB.NET » Print Struk Tanpa Crystal Report

Print Struk Tanpa Crystal Report

Saturday, 22 August 2015 13 comments

Gbr. Hasil Print Screen, Print to file

Assalamualaikum wr wb Pernah membuat struk untuk Aplikasi toko? Tanpa crystal report, dengan hasil seperti struk Alfamart atau indomart atau toko ratail lainnya. Kalau sudah pernah namun hasilnya tidak seperti yang kita inginkan, berikut step by step cara membuatnya.

Buat form tambahkan sebuah button dan PrintDocument Control dari toolbox
Tambahkan deklarasi dibawah Public class Form1 Public Class Form1 Dim TextToPrint As String = "" Dim jumlahkarakter As Integer = 40 '40 adalah jumlah karakter (lebar) yang ada pada struk
Tambahkan pada form load event Nama Printer Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load PrintDocument1.PrinterSettings.PrinterName = "EPSON TM-T88V Receipt" End Sub
Buat public sub Header, Isi dan Footer Struk Public Sub PrintHeader() Dim huruf As Integer = 0 Dim sisa As Integer = 0 Dim NamaKasir As Integer TextToPrint = "" 'Header Struk Nama toko, alamat, telepon Dim StringToPrint As String = "Nama Toko" Dim LineLen As Integer = StringToPrint.Length Dim spcLen1 As New String(" "c, Math.Round((jumlahkarakter - LineLen) / 2)) 'This line is used to center text in the middle of the receipt TextToPrint &= spcLen1 & StringToPrint & Environment.NewLine StringToPrint = "Alamat Toko" LineLen = StringToPrint.Length Dim spcLen2 As New String(" "c, Math.Round((jumlahkarakter - LineLen) / 2)) TextToPrint &= spcLen2 & StringToPrint & Environment.NewLine StringToPrint = "Telp : 085742872638" LineLen = StringToPrint.Length Dim spcLen3 As New String(" "c, Math.Round((jumlahkarakter - LineLen) / 2)) TextToPrint &= spcLen3 & StringToPrint & Environment.NewLine ' garis Dim spcLen4 As New String(StrDup(40, "-")) TextToPrint &= spcLen4 & Environment.NewLine 'No Struk dan nama kasir huruf = Len("010207000234") + 6 NamaKasir = Len(Strings.Left("Anggola", 12)) + 8 sisa = (40 - (huruf + NamaKasir)) Dim spcLen4b As New String("Bon : " + "010207000234" + StrDup(sisa, " ") + "Kasir : " + Strings.Left("Anggola", 12)) TextToPrint &= spcLen4b & Environment.NewLine ' garis Dim spcLen5 As New String(StrDup(40, "-")) TextToPrint &= spcLen5 & Environment.NewLine End Sub Public Sub ItemsToBePrinted() Dim i As Integer Dim hurufnama As Integer = 0 Dim sisanama As Integer = 0 Dim hurufqty As Integer = 0 Dim sisaqty As Integer = 0 Dim hurufharga As Integer = 0 Dim sisaharga As Integer = 0 Dim hurufsub As Integer = 0 Dim sisasub As Integer = 0 For i = 0 To 9 hurufnama = Len(Strings.Left("NAMA BARANG", 17)) sisanama = (18 - hurufnama) hurufqty = Len(Format(2, "#,###")) sisaqty = (5 - hurufqty) hurufharga = Len(Format(2000, "#,###")) sisaharga = (8 - hurufharga) hurufsub = Len(Format(4000, "#,###")) sisasub = (9 - hurufsub) Dim spcLen4b As New String(Strings.Left("NAMA BARANG", 17) + StrDup(sisanama, " ") + StrDup(sisaqty, " ") + Format(2, "#,###") + StrDup(sisaharga, " ") + Format(2000, "#,###") + StrDup(sisasub, " ") + Format(4000, "#,###")) TextToPrint &= spcLen4b & Environment.NewLine Next End Sub Public Sub printFooter() Dim huruf As Integer = 0 Dim sisa As Integer = 0 Dim spcLen6 As New String(StrDup(40, "-")) TextToPrint &= spcLen6 & Environment.NewLine huruf = Len(Format(40000, "#,###")) + 5 sisa = (40 - (huruf)) Dim spcLen7 As New String("Total" + StrDup(sisa, " ") + Format(40000, "#,###")) TextToPrint &= spcLen7 & Environment.NewLine huruf = Len(Format(50000, "#,###")) + 5 sisa = (40 - (huruf)) Dim spcLen10 As New String("Tunai" + StrDup(sisa, " ") + Format(50000, "#,###")) TextToPrint &= spcLen10 & Environment.NewLine huruf = Len(Format(10000, "#,###")) + 7 sisa = (40 - (huruf)) Dim spcLen11 As New String("Kembali" + StrDup(sisa, " ") + Format(10000, "#,###")) TextToPrint &= spcLen11 & Environment.NewLine Dim spcLen12 As New String(StrDup(40, "-")) TextToPrint &= spcLen12 & Environment.NewLine Dim spcLen13 As New String("01/05/2015 07:47:59") TextToPrint &= spcLen13 & Environment.NewLine Dim spcLen14 As New String(StrDup(40, "-")) TextToPrint &= spcLen14 & Environment.NewLine Dim StringToPrint As String = "Terimakasih Atas Kunjungan Anda" Dim LineLen As Integer = StringToPrint.Length Dim spcLen1 As New String(" "c, Math.Round((jumlahkarakter - LineLen) / 2)) TextToPrint &= spcLen1 & StringToPrint & Environment.NewLine End Sub End Sub Kode diatas adalah isi dari struk, Isi bisa dihubungkan dengan database.
Tambahkan kode pada PrintDocument print event. Private Sub PrintDocument1_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage Static currentChar As Integer 'Untuk font struk direkomendasikan Font Telidon Hv Dim textfont As Font = New Font("Telidon Hv", 9, FontStyle.Regular) Dim h, w As Integer Dim left, top As Integer With PrintDocument1.DefaultPageSettings h = 0 w = 0 left = 1 top = 0 End With Dim lines As Integer = CInt(Math.Round(h / 1)) Dim b As New Rectangle(left, top, w, h) Dim format As StringFormat format = New StringFormat(StringFormatFlags.LineLimit) Dim line, chars As Integer e.Graphics.MeasureString(Mid(TextToPrint, currentChar + 1), textfont, New SizeF(w, h), format, chars, line) e.Graphics.DrawString(TextToPrint.Substring(currentChar, chars), New Font("Telidon Hv", 9, FontStyle.Regular), Brushes.Black, b, format) currentChar = currentChar + chars If currentChar < TextToPrint.Length Then e.HasMorePages = True Else e.HasMorePages = False currentChar = 0 End If End Sub
Tambahkan kode pada button klik event Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click PrintHeader() ItemsToBePrinted() printFooter() Dim printControl = New Printing.StandardPrintController PrintDocument1.PrintController = printControl Try PrintDocument1.Print() Catch ex As Exception MsgBox(ex.Message) End Try End Sub Selamat mencoba semoga dapat membantu, Kode sudah dicoba dan diterapkan pada project yang saya buat dan berjalan dengan baik. Terimakasih
Wassalamualaikum wr wb

13 comments:

Unknown6 January 2017 at 23:49
permisi kak mau tanya, itu harus ada data basenya ya?
ReplyDelete
Replies
camaluddin17 January 2017 at 01:56
Om klu pake database gmn ane uda coba ga bsa
ReplyDelete
Replies
Unknown25 March 2017 at 01:24
This comment has been removed by the author.
ReplyDelete
Replies
Unknown25 March 2017 at 01:28
Minta penjelasannya mas kl pake database sql server.
ReplyDelete
Replies
forkatapencapil10 June 2018 at 08:44
selamat malam seandainya saya mau bikin font nya 2 ukuran, gimana caranya??(contoh totalnya font size 10 trus yang lain font size 9
ReplyDelete
Replies
Unknown1 August 2018 at 11:22
Tolong lebih dijelaskan mas kalau pakai database mysql server???
ReplyDelete
Replies
Unknown4 August 2018 at 20:32
untuk atur ukuran kertas nya gmana ya pak?
ReplyDelete
Replies
Unknown10 January 2019 at 08:32
jumlah karakter maksud nya apa ya kak? masih error nih
ReplyDelete
Replies
Unknown10 May 2020 at 15:52
mantap.. terima kasi artikelnya sangat membantu.. trims
ReplyDelete
Replies
Sunnah12 December 2020 at 22:11
Ada video tutorialnya gak bang?
ReplyDelete
Replies

Add comment

Rekayasa Blog

Print Struk Tanpa Crystal Report

Related Post:

13 comments:

Popular Posts

Kategori