Главная категория > Документация

Макрос печати ИЗ

(1/16) > >>

ЮК:
Подсобите с макросом! Целый день убил на это дело, правильно не работает :) Дело в том, что я задаю номер строки считая от курсора. Но оказалось, что число строк в штрих-коде зависит от названия модели ККМ. Для КОМБО-ШТРИХ-ФР-К серый макрос работает, а для других моделей - нет.  Высчитывать длину для каждой модели (там количество строк в коде зависит не только от количества букв в модели).


Макрос прилагается.

Prz777:
Если раскрашивать поля в белый цвет так, то ошибка не возникает:
With ActiveDocument.Tables(1)
     .Cell(2, 2).Shading.BackgroundPatternColorIndex = wdWhite
     .Rows(4).Shading.BackgroundPatternColorIndex = wdWhite
     .Cell(7, 2).Shading.BackgroundPatternColorIndex = wdWhite
     .Rows(9).Shading.BackgroundPatternColorIndex = wdWhite
End With

ЮК:

--- Цитата: Prz777 от 16/11/2012 10:36:22 ---Если раскрашивать поля в белый цвет так, то ошибка не возникает:
With ActiveDocument.Tables(1)
     .Cell(2, 2).Shading.BackgroundPatternColorIndex = wdWhite
     .Rows(4).Shading.BackgroundPatternColorIndex = wdWhite
     .Cell(7, 2).Shading.BackgroundPatternColorIndex = wdWhite
     .Rows(9).Shading.BackgroundPatternColorIndex = wdWhite
End With
--- Конец цитаты ---

Prz777, спасибо тебе за помощь!
Действительно, заработало без ошибок :)

ЗЫ Загруженный макрос поправил.

otter:
Уважаемые.
Не сочтите за наглость.
А можете сделать макрос печати ИЗ "Заполнить белый"?
Зачем? Есть шаблоны синего цвета - пустые.

Хотелось бы впечатывать туда только ШК и текстовую информацию.
Или сделать так, чтобы картинка не печаталась.
С уважением

ЮК:

--- Цитата: otter от 16/11/2012 11:38:55 ---Уважаемые.
Не сочтите за наглость.
--- Конец цитаты ---
Можно заменить серый на синий, если хотся.  Или надо обязательно впечатать в существующие картинки? 
Можно и так. Но штрих-код все равно надо будет строить по функции. 
Делаем поля и печатаем только их.

Навигация

[0] Главная страница сообщений

[#] Следующая страница