2ss.
Делаешь на листе 10 карточек. Внутри каждой карточки есть этот твой объект-баркод. С точки зрения Корела у каждого такого объекта-баркода есть свой номер, который можно посмотреть в Инструменты/Управление данными, там в первой строке.
10 карточек - 10 номеров. переписываешь их все руками на листик, и вбиваешь в массив.
dim IDS& (10)
IDS (1) = 1316
IDS (2) = 1342
IDS (3) = 1359
IDS (4) = 1374
IDS (5) = 1390
IDS (6) = 1405
IDS (7) = 1421
IDS (
= 1436
IDS (9) = 1452
IDS (10) = 1467
Потом делаешь цикл - перебрать все элементы с номерами, которые ты только что записал (это внутренний цикл), и внешний цикл перебирает страницу за стрницей... В примере - с 89 стрницы до 103...
for
i = 89 to 103
for j = 1 to 10
.SelectObjectOfCDRStaticID IDS(j)
if (i-1)*10 + j < 10 then
AddOn$ = "000"
elseif (i-1)*10 + j < 100 then
AddOn$ = "00"
else
AddOn$ = "0"
endif
.SetArtisticText AddOn$ + str((i-1)*10 + j)
next j
.FilePrint
next i