主题：求助狐狸爸爸

狐狸爸爸 我的项目中有个打印条形码的按钮 按钮事件

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

纸上不谈兵，做个简单的例子发上来说话吧

这个就是例子啊 代码我都写了 就是条码的代码 主要就是打开模板  我现在问题是 打印出来的条码需要6页纸 我就想问 想打印一个宽80 高50的纸上打印这个条码要怎么加代码

模板写错了吧？把你的摸版和数据弄上来。

好的我把模板上传

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:条形码.xls

 帮楼主远程，感觉楼主弄得不错……汗颜。