Вывод наклеек на печать.

Пользователь

Сообщений: 7 Регистрация: 01.01.1970

07.02.2012 11:38:17

Макрос "Print labels" формирует достаточного количества наклеек((
1. Помогите скорректировать макрос так, чтобы на печать выводилось больше наклеек, допустим, до 1000 наклеек (на данный момент только 40 штук на лист, вроде бы).
2. На одном листе должно формироваться по 24 (или 27) наклеек, без отступов, размер наклеек 70x37 мм (или 70x32 мм).

Прикрепленные файлы

post_305469.xls (83 КБ)

Kuzmich

Пользователь

Сообщений: 8191 Регистрация: 21.12.2012

07.02.2012 20:53:01

В вашем примере для печати на 1-ый лист выводится
32 наклейки, вы нажимаете "Да" и этот лист печатается.
При этом готовится для печати лист 2 , на нем печатаются
оставшиеся 9 наклеек.
Чтобы печатать 24 наклейки на лист, измените макрос

'тут цикл по 24 строк Zajavka2
For ind = 1 To UBound(Zajavka2) Step 24
rjad = 1
stolb = 1

ReDim NewArr(1 To 64, 1 To 6) 'массив на печать
predel = ind + 23 'страховка, чтоб не вылезти за предел массива
If predel > UBound(Zajavka2) Then predel = UBound(Zajavka2)

For i = ind To predel
.......................
.......................
stolb = stolb + 2
If stolb = 7 Then
stolb = 1
rjad = rjad + 8
End If
Next

Лист3.[A1:F1].Resize(64) = NewArr 'выгрузка

Высоту строк и ширину столбцов подстройте под ваши размеры наклеек

EducatedFool Пользователь Сообщений: 3695 Регистрация: 23.12.2012	#3 07.02.2012 21:18:21 Не проще ли использовать готовую программу? Там уже всё реализовано: http://excelvba.ru/programmes/Labels Надстройки для Excel Парсинг сайтов Мониторинг цен конкурентов

Читают тему