本帖最后由 夜冰 于 2014-1-10 11:59 编辑
前些日子在固定资产管理软件中用到了打印条形码的功能 ,使用的是Lodop控件,这个控件是免费的, 有人说直接打印会收费,但我没有遇到,今天有空了把打印的那代码分享一下,虽然看上去代码量很大,比较乱,但是只需要画出第一框框后面就简单了,按大小增减就可以了,本例中用的是艾利L7176型纸,在京东上可以买到,只接用A4激光打印机就能打印,图和代码如下:
图1:指定的需要打印的内容,查到内容后点击"编码处理",后台就开始画要打印的内容了
图2:这是打印预览的界面,然后点击打印就只接打印出来了
下面是网页的源码 - <%@ 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>
复制代码下面是网页的后台代码
- Imports FineUI
- Partial Class ZCLR_F_Txm
- Inherits System.Web.UI.Page
- Dim hr As New OA
- Dim info As String
复制代码好了,其中红色的地方注意一下就可以了.
|