演示里的明细表标签打印
’Public Sub ButtunClick(sender As Object,e As SpreadsheetGear.Windows.Co**ols.ShapeActionEventArgs)
Public Sub ButtunClick(sender As Object,e As SpreadsheetGear.Windows.Forms.ShapeActionEventArgs)
Implements Interfaces.IExcelWorkBook.ButtunClick
ActiveWorkbook.WorkbookSet.GetLock()

用第一行 错误 应为 应为逗号或“)”。
2行 语句在命名空间中无效。

复制的代码中出现的ActiveWorkbook都改为AW

从ActiveWorkbook.WorkbookSet.GetLock() 这一行开始复制，复制后粘贴到快表VBA编辑器中的ButtonClick事件中。

26行 未声明名称“ActiveWorkbook”。

32   dr = (Int(ActiveWorkbook.Worksheets("固定资产盘点表").Range("T_454").RowCount / 3) + 1) * 9 + 11
32行 Option Strict On 不允许从“Double”到“Integer”的隐式转换。

int改为Cint解决 编译完成

复制的代码中出现的ActiveWorkbook都改为AW

从ActiveWorkbook.WorkbookSet.GetLock() 这一行开始复制，复制后粘贴到快表VBA编辑器中的ButtonClick事件中。

26行 未声明名称“ActiveWorkbook”。

32   dr = (Int(ActiveWorkbook.Worksheets("固定资产盘点表").Range("T_454").RowCount / 3) + 1) * 9 + 11
32行 Option Strict On 不允许从“Double”到“Integer”的隐式转换。

int改为Cint解决 编译完成