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

Был бы благодарен человеку который хоть примерно напишет макрос в VBA. В общем листе напротив каждого магазина есть ячейка, если магазин заказал товар там выводится 1, если нет 0. Номер строки магазина совпадет с номером отдельного листа с накладной по этому магазину. Наверно можно как-то использовать этот момент в макросе выборочной печати.
...
Рейтинг: 0 / 0
13.11.2013, 08:11
| Ответить | Цитировать | Написать  
Выборочная печать
    #38462976
Фотография Akina
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Akina
Участник
Судя во всему, нет никакой БД, есть эксельный файл
...
Рейтинг: 0 / 0
13.11.2013, 09:11
| Ответить | Цитировать | Написать  
Выборочная печать
    #38462984
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
А файл нам нужно тоже самим сделать или образец дадите?
...
Рейтинг: 0 / 0
13.11.2013, 09:19
| Ответить | Цитировать | Написать  
Выборочная печать
    #38463836
berexilim
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
berexilim
Гость
Shocker.Pro,
Наверно нужно задать условия по каждому листу. Если в ячейке суммы заказа данные не 0 то отправить на печать, если 0 не отправлять. Залил файл в 2 арихивах.
...
Рейтинг: 0 / 0
13.11.2013, 17:53
| Ответить | Цитировать | Написать  
Выборочная печать
    #38463839
berexilim
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
berexilim
Гость
...
Рейтинг: 0 / 0
13.11.2013, 17:54
| Ответить | Цитировать | Написать  
Выборочная печать
    #38464103
berexilim
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
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
13.11.2013, 20:58
| Ответить | Цитировать | Написать  
Выборочная печать
    #38464110
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
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
13.11.2013, 21:11
| Ответить | Цитировать | Написать  
7 сообщений из 7, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Выборочная печать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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