powered by simpleCommunicator - 2.0.58     © 2025 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Выборочная печать
7 сообщений из 7, страница 1 из 1
Выборочная печать
    #38462951
berexilim
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Здраствуйте. Очень нужна помощь. Имеется общая база данных к-ва заказаных товаров разными магазинами. В том же файле но в отдельных листах есть накладная по каждому магазину которая берет данные с общего листа. Нужно настроить печать так чтобы запустить печать только тех накладных где имеются заказы. Очень неудобно проверять 1000 накладных на наличие заказов и каждый лист пускать на печать.

Был бы благодарен человеку который хоть примерно напишет макрос в VBA. В общем листе напротив каждого магазина есть ячейка, если магазин заказал товар там выводится 1, если нет 0. Номер строки магазина совпадет с номером отдельного листа с накладной по этому магазину. Наверно можно как-то использовать этот момент в макросе выборочной печати.
...
Рейтинг: 0 / 0
Выборочная печать
    #38462976
Фотография Akina
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Судя во всему, нет никакой БД, есть эксельный файл
...
Рейтинг: 0 / 0
Выборочная печать
    #38462984
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
А файл нам нужно тоже самим сделать или образец дадите?
...
Рейтинг: 0 / 0
Выборочная печать
    #38463836
berexilim
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Shocker.Pro,
Наверно нужно задать условия по каждому листу. Если в ячейке суммы заказа данные не 0 то отправить на печать, если 0 не отправлять. Залил файл в 2 арихивах.
...
Рейтинг: 0 / 0
Выборочная печать
    #38463839
berexilim
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
...
Рейтинг: 0 / 0
Выборочная печать
    #38464103
berexilim
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Shocker.Pro,

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

Код: vbnet
1.
2.
3.
4.
5.
6.
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



Проблема в том что листов много и при печати каждого листа выскакивает окошко сохранения результатов печати. Может кто знает как его убрать? И второе. Было бы очень хорошо задать листы в виде "i+1", ато у меня в макросе 100 повторений для каждого листа. Заранее спасибо
...
Рейтинг: 0 / 0
Выборочная печать
    #38464110
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Код: vbnet
1.
2.
3.
4.
5.
Dim f As Worksheet, i As Integer
For i = 6 To 30
  Set f = Worksheets(CStr(i))
  If f.Range("F27") <> 0 Then f.PrintOut
Next



а вот что за окошко сохранения результатов? у меня ничего не выскакивает. скорее всего оно имеет отношение к самому принтеру, а не к экселю, покажите скриншот
...
Рейтинг: 0 / 0
7 сообщений из 7, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Выборочная печать
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]