- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 求助狐狸爸爸 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=27628)
-- 发布时间：2013/1/6 10:59:00
-- 求助狐狸爸爸
狐狸爸爸 我的项目中有个打印条形码的按钮 按钮事件
If Tables("打包工序").Rows.Count > 0 Then
Tables("打包工序").Select(0, 0, Tables("打包工序").Rows.Count - 1, Tables("打包工序").Cols.Count - 1)
End If
Dim Book As New XLS.Book(ProjectPath & "Attachments\\条形码.xls")
Dim fl As String = ProjectPath & "Reports\\条形码.xls"
Book.Build() \'生成细节区
Book.Save(fl) \'保存工作簿
Dim Proc As New Process \'打开工作簿
Proc.File = fl
Proc.Start()
现在有个问题 就是我打印的时候显示需要6页，只有一页是条码其他都是空白，我的条码打印机是立象CP-2140 纸是宽80 高50的 还有如果打印很多条码改如何排列呢 狐狸爸爸能否帮我更改下代码呢
此主题相关图片如下：1.jpg
此主题相关图片如下：2.jpg
此主题相关图片如下：3.jpg
[此贴子已经被作者于2013-1-6 11:01:15编辑过]
-- 发布时间：2013/1/6 11:20:00
--
纸上不谈兵，做个简单的例子发上来说话吧
-- 发布时间：2013/1/6 12:21:00
--
以下是引用狐狸爸爸在2013-1-6 11:20:00的发言：
纸上不谈兵，做个简单的例子发上来说话吧
纸上不谈兵，做个简单的例子发上来说话吧
这个就是例子啊 代码我都写了 就是条码的代码 主要就是打开模板 我现在问题是 打印出来的条码需要6页纸 我就想问 想打印一个宽80 高50的纸上打印这个条码要怎么加代码
-- 发布时间：2013/1/6 13:52:00
--
模板写错了吧？把你的摸版和数据弄上来。
-- 发布时间：2013/1/6 15:30:00
--
以下是引用lin_hailun在2013-1-6 13:52:00的发言：
模板写错了吧？把你的摸版和数据弄上来。
模板写错了吧？把你的摸版和数据弄上来。
好的我把模板上传
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:条形码.xls |
-- 发布时间：2013/1/6 16:08:00
--
帮楼主远程，感觉楼主弄得不错……汗颜。