标签上的条形码按如何只按一次打印多张标签自动变更条形码序号

andy2007nt

附件表格下载打开后，因为超出了打印区域，调整了一下页面布局，会不是这个原因导致打印出来的标签条形码序号不自动变更？

scjda

andy2007nt 发表于 2017-12-15 16:29
开始和结束都填了，左边那个格子也要填序号吗

不用啊，就只在O5与O6单元格填写

13825719951

不要用控件做，最好是选BC39字体来做， 设置格式， FOR 打印就好啦。
看我的附件.

scjda

andy2007nt 发表于 2017-12-15 16:45
附件表格下载打开后，因为超出了打印区域，调整了一下页面布局，会不是这个原因导致打印出来的标签条形码序 ...

只要点击打印，电脑显示变化，公式就没问题，具体区域设置你自己调整下，也不知道你的情况，要不用打印机打印A4纸出来看看

ggmmlol

使用代码修改条码控件的高度或宽度，使图形强 制更新：

1. Sub 打印()
   
2. If MsgBox("确认是否要开始打印作业?", vbYesNo, "温馨提示：") = vbNo Then Exit Sub
   
3. For i = Range("O5") To Range("O6")
   
4.     Range("M6") = i
   
5.     With Sheet1.BarCodeCtrl1
   
6.         .Height = 60 '任意大于0的值
   
7.         .Height = 55.5 '最终需要的高度
   
8.         .Left = 129 '最终需要的距表格左边距离
   
9.     End With
   
10.     Sheet1.Shapes("BarCodeCtrl1").ZOrder msoBringToFront
    
11.     ActiveSheet.PrintOut
    
12. Next
    
13. End Sub

复制代码

andy2007nt

scjda 发表于 2017-12-15 16:52
只要点击打印，电脑显示变化，公式就没问题，具体区域设置你自己调整下，也不知道你的情况，要不用打印机 ...

点击打印条形码序号在更新，点击打印预览看，条形码并没有更新，末尾三位还是001.怎么打印预览和和非打印预览状态显示的不同呢？

andy2007nt

ggmmlol 发表于 2017-12-15 21:13
使用代码修改条码控件的高度或宽度，使图形强 制更新：

图形强制更新有什么作用？能使条码编号自动变化吗？

andy2007nt

13825719951 发表于 2017-12-15 16:51
不要用控件做，最好是选BC39字体来做， 设置格式， FOR 打印就好啦。
看我的附件.

你的附件只是贴的图片，不好操作使用啊。

scjda

andy2007nt 发表于 2017-12-18 17:32
点击打印条形码序号在更新，点击打印预览看，条形码并没有更新，末尾三位还是001.怎么打印预览和和非打印 ...

我这里都是OK的，你在M6单元格内选择输入任意数字，看下M7单元格尾数及条码的尾数是否在同步变化，如果是，那就没问题的。

andy2007nt

scjda 发表于 2017-12-18 18:22
我这里都是OK的，你在M6单元格内选择输入任意数字，看下M7单元格尾数及条码的尾数是否在同步变化，如果是 ...

M6单元格输入任意数字，M7单元格式同步变化的，但是左边条码的尾数没有跟着变化。但是按打印时，条形码尾数也是跟着变化的。不知问题在哪里。跟电脑的配置有没有关系的？（我这里三台电脑，只有一台老款的装了ACCESS,能够对条形码编辑操作和打印，其他两台不好制作和编辑条形码，也不好操作打印。）