Нужно размножить скриптом штрих-коды со сквозной нумерацией. Т.е. начинается, например, с 200001 и до 205000.
Естественно, все штрих-коды должны быть разложены по страничкам. Не подскажите, как?
Public Function VerifyN(Key)
Vk1 = 0
Vk2 = 0
For i = 1 To 12 Step 2
Vk1 = Vk1 + Key(i)
Next i
For i = 2 To 12 Step 2
Vk2 = Vk2 + Key(i)
Next i
VerifyN = CByte(Right(CStr(10 - CByte(Right(CStr(Vk1 + Vk2 * 3), 1))), 1))
End Function