Страница 1 из 1
Выборочная печать
Добавлено: 13 ноя 2013, 07:16
berexilim
Здраствуйте. Очень нужна помощь. Имеется общая база данных к-ва заказаных товаров разными магазинами. В том же файле но в отдельных листах есть накладная по каждому магазину которая берет данные с общего листа. Нужно настроить печать так чтобы запустить печать только тех накладных где имеются заказы. Очень неудобно проверять 1000 накладных на наличие заказов и каждый лист пускать на печать. Заранее спасибо за помощь
Re: Выборочная печать
Добавлено: 13 ноя 2013, 18:58
Naeel Maqsudov
Я так понял, все накладные на одном листе. Тогда надо организовать циклическое сканирование всех накладных. Если они все одинакового размера, то это будет проще. В любом случае, каждая накладная это диапазон ячеек, скажем, R, в котором надо
1) понять пустая накладная или нет. Это что-то типа If IsEmpty(R.Offset(rd,dc)) THEN.... Т.е. по каким-то ячейкам это должно быть ясно
2) напечатать конкретный диапазон: R.PrintOut Copies:=1, PrintToFile:=True, Collate:=True, Preview:=False
Подробнее — требуется сам документ или его фальсифицированная версия (в смысле, с фейковыми данными)
Re: Выборочная печать
Добавлено: 13 ноя 2013, 21:05
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 повторений для каждого листа. Заранее спасибо
Re: Выборочная печать
Добавлено: 14 ноя 2013, 01:57
Naeel Maqsudov
Ну, хоть код макроса дайте целиком что ли?
(и цитировать не надо, отвечайте без цитат)