Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 23.01.2009, 17:19   #1
TRN09
Пользователь
 
Регистрация: 23.01.2009
Сообщений: 11
По умолчанию Нужна помощь по написанию макросов отправки на печать.

Здравствуйте все.
Очень нужна помощь знатоков, так как сам я не справился с этой проблемой.
В EXCEL печатается один лист из одного файла. В дополнение к нему надо распечатывать второй лист из другого файла. Вариация второго листа (одна из трёх) зависит от буквенного значения в одной ячейке на первом листе. (то есть если на первом листе стоит буква "А" то второй лист берётся с названием "1", если "Б", то "2" и если "В" - "3")
Можно ли как нибудь автоматизировать этот процесс путём написания макроса, что бы второй лист печатался на второй стороне первого, но тот, который нужен?
Хотелось бы прочитать ответ не "можно" или "нельзя", а примерный текст макроса, если это не очень сложно.
Спасибо.
TRN09 вне форума Ответить с цитированием
Старый 24.01.2009, 09:54   #2
cent
Пользователь
 
Аватар для cent
 
Регистрация: 26.12.2008
Сообщений: 73
По умолчанию

Цитата:
В EXCEL печатается один лист из одного файла. В дополнение к нему надо распечатывать второй лист из другого файла. Вариация второго листа (одна из трёх) зависит от буквенного значения в одной ячейке на первом листе. (то есть если на первом листе стоит буква "А" то второй лист берётся с названием "1", если "Б", то "2" и если "В" - "3")
Исходные файлы увидеть можно? Иначе можно только сказать
Цитата:
"можно"
Четко сформулированная задача - половина решения!
<= Спасибо оставляем в отзывах
cent вне форума Ответить с цитированием
Старый 24.01.2009, 19:40   #3
cent
Пользователь
 
Аватар для cent
 
Регистрация: 26.12.2008
Сообщений: 73
По умолчанию

Такое решение Вас устраивает?
Обе книги должны быть открыты при выполнении макроса.
Вложения
Тип файла: zip pack.zip (17.0 Кб, 64 просмотров)
Четко сформулированная задача - половина решения!
<= Спасибо оставляем в отзывах

Последний раз редактировалось cent; 24.01.2009 в 19:45.
cent вне форума Ответить с цитированием
Старый 26.01.2009, 09:06   #4
TRN09
Пользователь
 
Регистрация: 23.01.2009
Сообщений: 11
По умолчанию

Цитата:
Сообщение от cent Посмотреть сообщение
Такое решение Вас устраивает?
Обе книги должны быть открыты при выполнении макроса.
Да, спасибо!
Именно то что надо было! =)
В процессе подумал, что не плохо было бы, что бы он выводил второй лист на второй стороне первого (в целях экономии бумаги в разгар кризиса) =)
Не подскажите, каким образом можно это реализовать?
В любом случае, спасибо точное решение первой задачи. =)
TRN09 вне форума Ответить с цитированием
Старый 26.01.2009, 09:11   #5
SAS888
Старожил
 
Аватар для SAS888
 
Регистрация: 05.12.2007
Сообщений: 4,180
По умолчанию

Цитата:
не плохо было бы, что бы он выводил второй лист на второй стороне первого
Если позволяет принтер - сделайте соответствующую установку. Excel здесь ни при чем.
Чем шире угол зрения, тем он тупее.
SAS888 вне форума Ответить с цитированием
Старый 26.01.2009, 09:22   #6
cent
Пользователь
 
Аватар для cent
 
Регистрация: 26.12.2008
Сообщений: 73
По умолчанию

Цитата:
не плохо было бы, что бы он выводил второй лист на второй стороне первого
Смотрите приложение. Перед печатьювторого листа выводится предварительный просмотр, дающий паузу, чтобы Вы смогли подставить нужный лист (перевернуть его). Условия работы макроса те же, т.е. оба файла должны быть открыты.
Вложения
Тип файла: zip pack.zip (17.4 Кб, 38 просмотров)
Четко сформулированная задача - половина решения!
<= Спасибо оставляем в отзывах
cent вне форума Ответить с цитированием
Старый 26.01.2009, 09:56   #7
TRN09
Пользователь
 
Регистрация: 23.01.2009
Сообщений: 11
По умолчанию

Это конечно вариант, но не самый подходящий.
Так как планировалось сделать макрос для печати всех листов из первого файла (их число может быть от 10 до 50) с соответствующей страницей из второго файла.
Поэтому предложенный вариант не до конца автоматизирует этот процесс, так как принтер позволяет печатать сразу на 2-х сторонах.
TRN09 вне форума Ответить с цитированием
Старый 26.01.2009, 09:57   #8
TRN09
Пользователь
 
Регистрация: 23.01.2009
Сообщений: 11
По умолчанию

Принтер настроен на 2-стороннюю печать.
TRN09 вне форума Ответить с цитированием
Старый 26.01.2009, 10:29   #9
cent
Пользователь
 
Аватар для cent
 
Регистрация: 26.12.2008
Сообщений: 73
По умолчанию

Исходя из своих знаний, это можно реализовать только при заранее известном количестве листов в первой книге.
Смотрите вложение.
Вложения
Тип файла: zip pack.zip (31.0 Кб, 19 просмотров)
Четко сформулированная задача - половина решения!
<= Спасибо оставляем в отзывах

Последний раз редактировалось cent; 26.01.2009 в 10:32.
cent вне форума Ответить с цитированием
Старый 26.01.2009, 10:58   #10
TRN09
Пользователь
 
Регистрация: 23.01.2009
Сообщений: 11
По умолчанию

Это не то. =(
Я прошу прощения, что наверно отвлекаю Вас от дел своими проблемами, ещё и некорректно формулирую свои цели.
Для примера я прикрепил архив.
Если на словха, то это выглядит так.
В первой книге есть какое то количество Листов (Sheets) (как во второй "1", "2", "3")
И при печати надо к каждому листу из первой книги на второй стороне напечатать один из листов второй книги.
Вложения
Тип файла: zip PACK.zip (18.5 Кб, 19 просмотров)
TRN09 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
перехват отправления чужими программами отправки на печать документов Nat Win Api 7 20.04.2007 16:07
Нужна помощь LeoN Общие вопросы Delphi 12 18.03.2007 07:58
Нужна помощь! mEka Помощь студентам 2 04.03.2007 01:39