以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]条码打印机,是使用DLL,还是直接用狐表的标签打印功能  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=42152)

--  作者:hiliuyong
--  发布时间:2013/11/5 15:11:00
--  [求助]条码打印机,是使用DLL,还是直接用狐表的标签打印功能

遇到一个棘手的问题,

客户使用的是TSC打印机,这个机器本身有DLL可以调用,

但是只有VB6的示例代码,

我看了看狐表的标签打印也可以实现类似的功能,

请教下,打印单列的标签,标签是名片大小,每张切分好的,

如果用狐表打印出来,谢谢了。


--  作者:Bin
--  发布时间:2013/11/5 15:16:00
--  
http://www.foxtable.com/help/topics/1195.htm


--  作者:hiliuyong
--  发布时间:2013/11/5 15:22:00
--  

Doc.Columns.Add() \'增加三栏
\'Doc.Columns.Add()
\'Doc.Columns.Add()

我希望打印单栏,屏蔽后,提示错误,应该改哪里?

是用 http://www.foxtable.com/help/topics/1195.htm 的这个例子


--  作者:Bin
--  发布时间:2013/11/5 15:25:00
--  
Dim doc As New PrintDoc \'定义一个报表
Doc.Columns.Add() \'增加三栏
\'Doc.Columns.Add()
\'Doc.Columns.Add()
\'Doc.Columns(0).Spacing = 2 \'栏间距2毫米
\'Doc.Columns(1).Spacing = 2 \'栏间距2毫米
For i As Integer = 1 To 100

--  作者:hiliuyong
--  发布时间:2013/11/5 15:25:00
--  

这个地方是屏蔽

Doc.Columns(0).Spacing = 2 \'栏间距2毫米
Doc.Columns(1).Spacing = 2 \'栏间距2毫米

这两句就行了,

但是我的条码是5公分高,10公分宽,

我希望预览是分页的效果,能不能实现?


--  作者:hiliuyong
--  发布时间:2013/11/5 15:36:00
--  

我修改了这句,

    ra.Width = 100
    ra.Height = 50

但实际上只是设置了距离,并没有分页显示。


--  作者:Bin
--  发布时间:2013/11/5 15:53:00
--  
默认会自动分页的啊,你是指显示页码之类的吗? 建议先去学习一下专业报表相关章节.