《Office——VBA解决条形码打印或者打印预览时不更新》由会员分享，可在线阅读，更多相关《Office——VBA解决条形码打印或者打印预览时不更新（4页珍藏版）》请在金锄头文库上搜索。
1、VBA解决条形码打印或者打印预览时不更新我有个问题，我在excel表中加了一个条形码，并链接单元格的值，在excel表中只要单元格的值变化，条形码 的值也会随着变化。但当要打印或者打印预览时，为什么条形码的值永远是第一次变化的值呢？不管打印或者打印 预览几次。解决的办法每次打印前，都稍微改变一下条形码的长度和宽度值，再读入条形码数值，打印时就会改变了。 Private Sub Workbook_BeforePrint(Cancel As Boolean)For i = 1 To Worksheets.CountSheets(i).BarCodeCtrl1.Height = Sheets(i).
2、BarCodeCtrl1.Height - 1NextEnd SubPrivate Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)For i = 1 To Worksheets.CountSheets(i).BarCodeCtrl1.Height = 45 条码宽度 Sheets(i).BarCodeCtrl1.Width = 538.5 条码长度 Sheets(i).BarCodeCtrl1.Top = 30 条码上边距 Sheets(i).BarCodeCtrl1.Left = 0 条码左边距 Shee
3、ts(i).BarCodeCtrl1.LineWeight = 3 条码线条宽度 Sheets(i).BarCodeCtrl1.Style = 7 code 128 NextEnd SubSheets 属性对于Application对象，返回代表活动工作簿中所有工作表的Sheets集合。对于Workbook对象，返回代表指定 工作簿中所有工作表的Sheets集合。Sheets对象，只读。说明有关返回集合中单个成员的详细信息，请参阅返回集合中的对象。在不用对象识别符的情况下，使用此属性等价于使用ActiveWorkbook.Sheets。Worksheets 属性对于Application对象，
4、返回代表活动工作簿中所有工作表的Sheets集合。对于Workbook对象，返回代表指定工作簿所有工作表的Sheets集合。Sheets对象，只读。说明 有关返回集合中单个成员的详细信息，请参阅返回集合中的对象。 若未指定对象识别符，本属性将返回活动工作簿中的所有工作表。该属性不返回宏工作表。使用Excel4MacroSheets属性或Excel4IntIMacroSheets属性可返回那些工作表。Sheets集合代表当前工作簿中的所有工作表，包括图表工作表、对话框工作表和宏表。Worksheets集合仅代表当刖工作簿中的所有工作表。VBA教程：Count属性返回指定集合的项目数。 Long
5、类型，只读。expression.Countexpression 必需。该表达式返回“应用于”列表中的一个对象VBA 示例本示例显示活动文档的段数。MsgBox The active document contains & _ActiveDocument.Paragraphs.Count & paragraphs.本示例显示所选内容的字数。If Selection.Words.Count = 1 And _Selection.Type wdSelectionIP ThenMsgBox The selection contains & Selection.Words.Count & words.
6、End If本示例用一个Fields。数组来储存活动文档中的域代码。fcount = ActiveDocument.Fields.CountIf fcount = 1 ThenReDim aFields(fcount)For Each aField In ActiveDocument.FieldsaFields(aField.Index) = aField.Code.TextNext aFieldEnd If以指定次数来重复执行一组语句。WordVBA 教程：for语法For counter = start To end Step stepstatementsExit Forstatement
7、sNext counteqForNext语句的语法具有以下几个部分:部分描述counter必要参数。用做循环计数器的数值变量。这个变量不能是布尔或数组元素。start必要参数。counter的初值。End必要参数，counter的终值。Step可选参数。counter的步长。如果没有指定，则st ep的缺省值为1。Statements可选参数。放在For和Next之间的一条或多条语句，它们将被执行指定的次数。说明step参数可以是正数或负数。step参数值决定循环的执行情况，如下所示:正数或0counter = end当所有循环中的语句都执行后，step的值会加到counter中。此时，循环中
8、的语句可能会再次执行（基于循环开 始执行时同样的测试），也可能是退出循环并从Next语句之后的语句继续执行。提示 在循环中改变counter的值，将会使程序代码的阅读和调试变得更加困难。循环中可以在任何位置放置任意个Exit For语句，随时退出循环。Exit For经常在条件判断之后使用，例如 If.Then，并将控制权转移到紧接在Next之后的语句。可以将一个For.Next循环放置在另一个For.Next循环中，组成嵌套循环。不过在每个循环中的counter 要使用不同的变量名。下面的体系结构是正确的：For I = 1 To 10For J = 1 To 10For K = 1 To 10Nex t KNex t JNext I注意如果省略Next语句中的counter，就像counter存在时一样执行。但如果Next语句在它相对应的 For语句之前出现，则会产生错误。
