Выборочная печать

[berexilim]

Здраствуйте. Очень нужна помощь. Имеется общая база данных к-ва заказаных товаров разными магазинами. В том же файле но в отдельных листах есть накладная по каждому магазину которая берет данные с общего листа. Нужно настроить печать так чтобы запустить печать только тех накладных где имеются заказы. Очень неудобно проверять 1000 накладных на наличие заказов и каждый лист пускать на печать. Заранее спасибо за помощь

[Naeel Maqsudov]

Я так понял, все накладные на одном листе. Тогда надо организовать циклическое сканирование всех накладных. Если они все одинакового размера, то это будет проще. В любом случае, каждая накладная это диапазон ячеек, скажем, R, в котором надо
1) понять пустая накладная или нет. Это что-то типа If IsEmpty(R.Offset(rd,dc)) THEN.... Т.е. по каким-то ячейкам это должно быть ясно
2) напечатать конкретный диапазон: R.PrintOut Copies:=1, PrintToFile:=True, Collate:=True, Preview:=False

Подробнее — требуется сам документ или его фальсифицированная версия (в смысле, с фейковыми данными)

[berexilim]

Здраствуйте. Накладные не на одном листе. Каждая накладная на отдельном листе. Получается очень много листов. Написал макрос для печати. Он в каждом листе ищет данные в ячейке суммы заказа. Если там 0 то не печатает, если есть данные то печатает. НЕ знаю правильно или нет вышло.

Код: Выделить всё

Sheets("6").Activate
If Worksheets("6").Range("F27") = "0,00" Then
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate:=False
Else
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate:=True
End If
End Sub

Проблема в том что листов много и при печати каждого листа выскакивает окошко сохранения результатов печати. Может кто знает как его убрать? И второе. Было бы очень хорошо задать листы в виде "i+1", ато у меня в макросе 100 повторений для каждого листа. Заранее спасибо

[Naeel Maqsudov]

Ну, хоть код макроса дайте целиком что ли?

(и цитировать не надо, отвечайте без цитат)