以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  狐表打印标签  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=109077)
--  作者：lur320
--  发布时间：2017/11/3 16:57:00
--  狐表打印标签
机器是斑马（zebra），狐表有什么方式进行打印呢？
专业报表是生成这个表，但是如何发送到标签打印机？可以引用codesofe的LabelManager2.dll？
下面的代码需要改改哪里的么？
  1. Imports LabelManager2  
  2.   
  3. Public Class Form1  
  4.   
  5.     Public lbl As LabelManager2.Application  
  6.     Dim strFile As String  
  7.     Dim doc As Document  
  8.     Dim portNames As String()  
  9.   
  10.   
  11.     Private Sub btPrint_Click(sender As Object, e As EventArgs) Handles btPrint.Click  
  12.   
  13.         doc.Variables.FreeVariables.Item("变量0").Value = tbSn.Text  
  14.   
  15.         doc.PrintLabel(1, 1, 1, 1, 1, "")  
  16.         doc.FormFeed()  
  17.   
  18.     End Sub  
  19.   
  20.     Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load  
  21.   
  22.         lbl = New LabelManager2.Application()  
  23.         strFile = System.Windows.Forms.Application.StartupPath.ToString() & "\\S703.lab"  
  24.         lbl.Documents.Open(strFile, False)  
  25.   
  26.         doc = lbl.ActiveDocument  
  27.         doc.Printer.SwitchTo("ZDesigner ZT410-300dpi ZPL", "USB001", True)  
  28.   
  29.     End Sub  
  30.   
  31.     Private Sub Form1_FormClosing(sender As Object, e As FormClosingEventArgs) Handles MyBase.FormClosing  
  32.   
  33.         Try  
  34.             lbl.Documents.CloseAll(False)  
  35.             lbl.Quit()  
  36.         Catch  
  37.   
  38.         End Try  
  39.   
  40.     End Sub  
  41.   
  42. End Class  
--  作者：lur320
--  发布时间：2017/11/3 16:58:00
--  
http://blog.csdn.net/qincode/article/details/24259495
--  作者：有点甜
--  发布时间：2017/11/3 17:01:00
--  

1、http://www.foxtable.com/webhelp/scr/1195.htm

 

2、http://www.foxtable.com/webhelp/scr/1186.htm

 

3、http://www.foxtable.com/webhelp/scr/2904.htm