подскажите как напечатать
1) переменный диапазон листов
2) переменный диапазон ячеек

Попробую подробнее.............
Есть таблицы с данными (Exel) -
лист 1= перечень аксесуаров, лист 2= технические параметры аксесуаров, лист 3-12= финансовая и складская документация на аксесуары

Надо.....прописать макрос для печати определенных ячеек с листа 2,соответствующим выбранному аксесуару, а при необходимости и листов 3-12.
При печати листов 3-12 выполняю процедуру активации листа и его печать, так по всем листам но при этом начинается их мильтишение перед глазами (можно ли выбрать диапазон листов и печатать выбранные листы)
Для печати с листа 2 нахожу ячейку со значением артикула на этом листе а дальше согласовать адрес и печать диапазона не получается диапазоны А1:В15,C1:D15,A16:D30 и.тд.


Это сообщение отредактировал(а) andrey0503 - 6.7.2004, 21:52

Код

Application.ScreenUpdating = False

И листы перестанут мельтишить!
По окончании работы не забудь сделать

Код

Application.ScreenUpdating = True

Куда проще не печатать с каждого листа по отдельности, а сформировать новый (типа отчет), загнать в него все необходимые данные и в каком нужно порядке, да и распечатать его!

1) Начал пытаться сформировывать общий документ но проверить не получается выдает ошибку (в чем она?)

Worksheets.Add
Sheets("Лист1").Select
Range("A1:D1").Select - run-time error'1004' Метод Select из класса Range завершен неверно
Selection.Copy
Sheets("Лист2").Select
For i = 1 To 5
Range("A" & i).Select - то же самое
ActiveSheet.Paste
Next i

2) Sheets("Лист1").Range("A1:B3").Copy destination:=Sheets("Для печати").Range("A1") - копируется только инфа, без сохранения размера, формата ячейки??

3) Количество строк на страницах не постоянно - как за этим уследить, копирование фиксированного диапазона не подходит

4) при добавлении на Sheets("Для печати") другой страницы - как определить области печати - каждая страница должна быть на своем бумажном листе

Научите пожалуйста......я первоклассник в этом деле