Lodop控件打印条形码的源码分享 - FineUI 官方论坛

下面是网页的源码

<%@ Page Language="VB" AutoEventWireup="false" CodeFile="F_Txm.aspx.vb" Inherits="ZCLR_F_Txm" %>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head runat="server">
<title></title>
<link type="text/css" href="../CSS/Fmain.css" rel="stylesheet"/>
<script language="javascript" src="../CSS/LodopFuncs.js"></script>
<object id="LODOP_OB" classid="clsid:2105C259-1E0C-4534-8141-A753534CB4CA" width=0 height=0>
<embed id="LODOP_EM" type="application/x-print-lodop" width=0 height=0 pluginspage="~/CSS/install_lodop.exe"></embed>
</object>
<font color="#ff0000"> <script language="javascript" type="text/javascript">
var LODOP; //声明为全局变量
function myPreview() {
CreatePrintPage();
LODOP.PREVIEW();
};
</script> </font>
</head>
<body>
<form id="form1" runat="server">
<x:PageManager ID="PageManager1" runat="server" AjaxAspnetControls="L_code" />
<x:Panel ID="Panel1" runat="server" BodyPadding="5px" ShowBorder="false" ShowHeader="false"
Title="Panel" Layout="Table" TableConfigColumns="6">
<Items>
<x:Label Text="输入条码" runat="server" Width="60"></x:Label>
<x:TextBox ID="txt_bm" runat="server" Label="Label" Text="" Width="300" EmptyText="提示:多个条码之间请用逗号进行分隔"></x:TextBox>
<x:Button ID="Btn_create" runat="server" Text="编码查询" CssClass="Left20"></x:Button>
<x:Button ID="Btn_chuli" runat="server" Text="编码处理" CssClass="Left20" <font color="#ff0000">EnableAjax="false"</font>></x:Button>
<x:ContentPanel ID="ContentPanel1" runat="server" BodyPadding="0px" ShowBorder="false" ShowHeader="False" Title="ContentPanel">
<asp:Label ID="L_code" runat="server"></asp:Label>
</x:ContentPanel>
<x:Button ID="Btn_print" runat="server" Text="打印预览" CssClass="Left20" <font color="#ff0000">OnClientClick="javascript:myPreview()"</font>></x:Button>
</Items>
</x:Panel>
<x:Panel ID="Panel2" runat="server" BodyPadding="0px" ShowBorder="false" ShowHeader="False" Title="Panel" Layout="Fit" Height="585">
<Items>
<x:Grid ID="DG_show" runat="server" EnableCheckBoxSelect="false" EnableRowNumber="false" Title="Grid" ShowHeader="false" DataKeyNames="编号,名称,使用部门,使用责任人">
<Columns>
<x:BoundField DataField="编号" HeaderText="编号" TextAlign="Center" />
<x:BoundField DataField="名称" HeaderText="名称" TextAlign="Center" />
<x:BoundField DataField="使用部门" HeaderText="使用部门" TextAlign="Center" />
<x:BoundField DataField="使用责任人" HeaderText="使用责任人" TextAlign="Center" />
</Columns>
</x:Grid>
</Items>
</x:Panel>
</form>
</body>
</html>

复制代码

下面是网页的后台代码

Protected Sub Btn_chuli_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Btn_chuli.Click
'对需要打印的条码进行预先处理
Dim str As String = ""
Dim num As Integer = DG_show.Rows.Count
Dim top As Integer = 11 '每个边各余出4mm间隔
Dim left As Integer = 3
Dim jianju As Integer = 2
Dim W1 As Integer = 63.5
Dim H1 As Integer = 38.1
Dim lineH As Integer = 8
Dim lineW As Integer = 20
Dim W2 As Integer = 43
Dim W3 As Integer = 40 '条码的宽度
Dim H3 As Integer = 14 '条码的高度
Dim s2 As String = "部门"
Dim s1 As String = "名称"
Dim s3 As String = "购买日期"
Dim bh, mc, sybm, zrr As String
If num < 1 Or num > 21 Then
Exit Sub
End If
str = "<script language='javascript' type='text/javascript'>"
str += "function CreatePrintPage() { "
str += "LODOP = getLodop(document.getElementById('LODOP_OB'), document.getElementById('LODOP_EM')); "
str += "LODOP.PRINT_INIT('打印测试用的');"
str += "LODOP.SET_PRINT_STYLE('FontSize', 10); "
For i = 0 To num - 1
bh = DG_show.DataKeys(i)(0)
mc = DG_show.DataKeys(i)(1)
sybm = DG_show.DataKeys(i)(2)
zrr = DG_show.DataKeys(i)(3)
'第一个框框
If i = 0 Then
str += "LODOP.ADD_PRINT_RECT('" & top & "mm', '" & left & "mm', '" & W1 & "mm','" & H1 & "mm', 0, 1); "
str += "LODOP.ADD_PRINT_LINE('" & top + lineH & "mm','" & left & "mm','" & top + lineH & "mm','" & left + W1 & "mm',0,1);" '第一根直线
str += "LODOP.ADD_PRINT_LINE('" & top + lineH * 2 & "mm','" & left & "mm','" & top + lineH * 2 & "mm','" & left + W1 & "mm',0,1);" '第二根直线
str += "LODOP.ADD_PRINT_LINE('" & top + lineH * 3 & "mm','" & left & "mm','" & top + lineH * 3 & "mm','" & left + W1 & "mm',0,1);" '第三根直线
str += "LODOP.ADD_PRINT_LINE('" & top & "mm','" & left + lineW & "mm','" & top + lineH * 3 & "mm','" & left + lineW & "mm',0,1);" '第一根竖线
str += "LODOP.ADD_PRINT_TEXT('" & top + 2 & "mm','" & left - 2 & "mm','" & lineW & "mm','" & lineH & "mm','" & s1 & "');" '第一行第一列
str += "LODOP.SET_PRINT_STYLEA(0,'Alignment',3);"
str += "LODOP.ADD_PRINT_TEXT('" & top + lineH + 2 & "mm','" & left - 2 & "mm','" & lineW & "mm','" & lineH & "mm','" & s2 & "');" '第二行第一列
str += "LODOP.SET_PRINT_STYLEA(0,'Alignment',3);"
str += "LODOP.ADD_PRINT_TEXT('" & top + lineH * 2 + 2 & "mm','" & left - 2 & "mm','" & lineW & "mm','" & lineH & "mm','" & s3 & "');" '第三列第一称
str += "LODOP.SET_PRINT_STYLEA(0,'Alignment',3);"
str += "LODOP.ADD_PRINT_TEXT('" & top + 2 & "mm','" & left + lineW + 2 & "mm','" & W2 & "mm','" & lineH & "mm','" & mc & "');" '第一行第二列
str += "LODOP.ADD_PRINT_TEXT('" & top + lineH + 2 & "mm','" & left + lineW + 2 & "mm','" & W2 & "mm','" & lineH & "mm','" & sybm & "');" '第二行第二列
str += "LODOP.ADD_PRINT_TEXT('" & top + lineH * 2 + 2 & "mm','" & left + lineW + 2 & "mm','" & W2 & "mm','" & lineH & "mm','" & zrr & "');" '第三行第二列
str += "LODOP.ADD_PRINT_BARCODE('" & top + lineH * 3 + 2 & "mm','" & left + (W1 - W3) \ 2 & "mm','" & W3 & "mm','" & H3 - 4 & "mm','EAN128A','" & bh & "');" '第四行条形码列
End If
'第二个框框
If i = 1 Then
str += "LODOP.ADD_PRINT_RECT('" & top & "mm', '" & left + W1 + jianju & "mm', '" & W1 & "mm','" & H1 & "mm', 0, 1); "
str += "LODOP.ADD_PRINT_LINE('" & top + lineH & "mm','" & left + W1 + jianju & "mm','" & top + lineH & "mm','" & left + W1 * 2 + jianju & "mm',0,1);" '第一根直线
str += "LODOP.ADD_PRINT_LINE('" & top + lineH * 2 & "mm','" & left + W1 + jianju & "mm','" & top + lineH * 2 & "mm','" & left + W1 * 2 + jianju & "mm',0,1);" '第二根直线
str += "LODOP.ADD_PRINT_LINE('" & top + lineH * 3 & "mm','" & left + W1 + jianju & "mm','" & top + lineH * 3 & "mm','" & left + W1 * 2 + jianju & "mm',0,1);" '第三根直线
str += "LODOP.ADD_PRINT_LINE('" & top & "mm','" & left + lineW + W1 + jianju & "mm','" & top + lineH * 3 & "mm','" & left + lineW + W1 + jianju & "mm',0,1);" '第一根竖线
str += "LODOP.ADD_PRINT_TEXT('" & top + 2 & "mm','" & left + W1 + jianju - 2 & "mm','" & lineW & "mm','" & lineH & "mm','" & s1 & "');" '第一行第一列
str += "LODOP.SET_PRINT_STYLEA(0,'Alignment',3);"
str += "LODOP.ADD_PRINT_TEXT('" & top + lineH + 2 & "mm','" & left + W1 + jianju - 2 & "mm','" & lineW & "mm','" & lineH & "mm','" & s2 & "');" '第二行第一列
str += "LODOP.SET_PRINT_STYLEA(0,'Alignment',3);"
str += "LODOP.ADD_PRINT_TEXT('" & top + lineH * 2 + 2 & "mm','" & left + W1 + jianju - 2 & "mm','" & lineW & "mm','" & lineH & "mm','" & s3 & "');" '第三列第一称
str += "LODOP.SET_PRINT_STYLEA(0,'Alignment',3);"
str += "LODOP.ADD_PRINT_TEXT('" & top + 2 & "mm','" & left + lineW + W1 + jianju + 2 & "mm','" & W2 & "mm','" & lineH & "mm','" & mc & "');" '第一行第二列
str += "LODOP.ADD_PRINT_TEXT('" & top + lineH + 2 & "mm','" & left + lineW + W1 + jianju + 2 & "mm','" & W2 & "mm','" & lineH & "mm','" & sybm & "');" '第二行第二列
str += "LODOP.ADD_PRINT_TEXT('" & top + lineH * 2 + 2 & "mm','" & left + lineW + W1 + jianju + 2 & "mm','" & W2 & "mm','" & lineH & "mm','" & zrr & "');" '第三行第二列
str += "LODOP.ADD_PRINT_BARCODE('" & top + lineH * 3 + 2 & "mm','" & left + W1 + jianju + (W1 - W3) \ 2 & "mm','" & W3 & "mm','" & H3 - 4 & "mm','EAN128A','" & bh & "');" '第四行条形码列
End If
'第三个框框

复制代码