Bagi anda yang kebetulan mendapat projek yang membutuhkan untuk memprint sebuah barcode mungkin script ini dapat berguna.
pertama kita perlu mendownload font barcode yang secara umum digunakan oleh scanner - scanner barcode dipasaran
[ download font barcode ]
lakukan langkah berikut setelah mendownload
1. Ekstrak file zip.
2. lakukan install dengan mendouble klik IDAutomation_Code39FreeFont.exe
3. Restart aplikasi anda
Bagian HTML
1: <html xmlns="http://www.w3.org/1999/xhtml" >
2: <head runat="server">
3: <title>App test page</title>
4: <!-- script untuk print halaman div -->
5: <script language=JavaScript>
6: function printdiv(printpage) {
7: var headstr = "<html><head></head><body>";
8: var footstr = "</body>";
9: var newstr = document.all.item(printpage).innerHTML;
10: var oldstr = document.body.innerHTML;
11: document.body.innerHTML = headstr + newstr + footstr;
12: window.print();
13: document.body.innerHTML = oldstr;
14: return false;
15: }
16: </script>
17: </head>
18: <body>
19: <form id="form1" runat="server">
20: <div>
21: <h1>test pages</h1>
22: <a href="home.aspx">home</a> | <a href="barcode.aspx">barcode</a>
23: <br /><br /><br />
24: <hr />
25: <h3>simple print barcode</h3>
26: <asp:TextBox ID="txtCode" runat="server"></asp:TextBox>
27:
28: <asp:Button ID="btnGenerate" runat="server" Text="Generate" onclick="tampilkanbarcode_Click" />
29: <input name="b_print" type="button" class="ipt" onClick="printdiv('printDiv');" value=" Print "><br /><br />
30: <div id="printDiv">
31: <asp:PlaceHolder ID="plBarCode" runat="server" />
32: </div>
33: </div>
34: </form>
35: </body>
36: </html>
37:
38:
Berikut hasil dari script html diatas.
NAMESPACES
berikut name spaces yang perlu di import di file vb anda
Imports System.Drawing
Imports System.Drawing.Imaging
Imports System.IO
MENAMPILKAN BARCODE
terkahir tulis script berikut pada file vb anda
1: Protected Sub tampilkanbarcode_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles tampilkanbarcode.Click
2: Dim barCode As String = txtCode.Text
3: Dim imgBarCode As New System.Web.UI.WebControls.Image()
4: Using bitMap As New Bitmap(barCode.Length * 40, 80)
5: Using graphics__1 As Graphics = Graphics.FromImage(bitMap)
6: Dim oFont As New Font("IDAutomationHC39M", 16)
7: Dim point As New PointF(2.0F, 2.0F)
8: Dim blackBrush As New SolidBrush(Color.Black)
9: Dim whiteBrush As New SolidBrush(Color.White)
10: graphics__1.FillRectangle(whiteBrush, 0, 0, bitMap.Width, bitMap.Height)
11: graphics__1.DrawString("*" & barCode & "*", oFont, blackBrush, point)
12: End Using
13: Using ms As New MemoryStream()
14: bitMap.Save(ms, System.Drawing.Imaging.ImageFormat.Png)
15: Dim byteImage As Byte() = ms.ToArray()
16: Convert.ToBase64String(byteImage)
17: imgBarCode.ImageUrl = "data:image/png;base64," & Convert.ToBase64String(byteImage)
18: End Using
19: plBarCode.Controls.Add(imgBarCode)
20: End Using
21: End Sub
link refrensi : https://www.aspsnippets.com/Articles/Dynamically-Generate-and-Display-Barcode-Image-in-ASPNet.aspx
