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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 05.06.2012, 18:03   #1
Робин
Форумчанин
 
Регистрация: 03.04.2010
Сообщений: 118
По умолчанию Макрос для двухсторонней печати доверености

Доброго дня!
Помогите написать макрос для двухсторонней печати заполненой доверености.
Смисл следующий.
Запускаем макрос и начинаем печатать первую (верхню таблицу). И после того, как она будет напечатана, макрос приостанавливает печать и просит перевернуть лист в принтере. Далее пользователь ПК переворачивает лист и продолжает печатать другую (нижнюю) таблицу.
Для наглядности, я выделил таблицы пунктирной линией
Заранее спасибо за помощь
Вложения
Тип файла: rar Книга2.rar (10.3 Кб, 22 просмотров)
Робин вне форума Ответить с цитированием
Старый 07.06.2012, 16:41   #2
Робин
Форумчанин
 
Регистрация: 03.04.2010
Сообщений: 118
По умолчанию

Наверняка макрос непосилен не только для меня? Потому чио нникто не откликается на просьбу
Робин вне форума Ответить с цитированием
Старый 07.06.2012, 22:02   #3
EducatedFool
Программист VBA
СуперМодератор
 
Аватар для EducatedFool
 
Регистрация: 13.07.2008
Сообщений: 6,858
По умолчанию

Макрос очень прост, если немного изменить область печати на листе,
и добавить вертикальный разрыв страницы:

Код:
Sub ДвусторонняяПечать()
    ActiveSheet.PrintOut 1, 1
    MsgBox "Первая страница напечатана. Переворачивайте лист", vbInformation
    ActiveSheet.PrintOut 2, 2
End Sub
Пример - в файле: http://excelvba.ru/XL_Files/Sample__...2__0-02-34.zip



--------------------------------------

Если часто печатаете документы - вам может пригодиться и программа заполнения документов (доверенностей) в формате Word (Excel, TXT) данными из таблицы Excel:
http://excelvba.ru/programmes/FillDocuments


Цитата:
Надстройка предназначена для формирования (подготовки) документов по шаблонам, с заполнением созданных файлов данными из текущей книги Excel.

В качестве шаблонов могут выступать следующие типы файлов:
  • документы Word (расширения DOC, DOCX, DOCM)
  • шаблоны Word (расширения DOT, DOTX, DOTM)
  • книги Excel (расширения XLS, XLSX, XLSM, XLSB)
  • шаблоны Excel (расширения XLT, XLTX, XLTM)
  • текстовые документы (расширения TXT, DAT, XML и т.д.)
В качестве исходных данных для заполнения, используется открытый в Excel файл (с таблицей, содержащей строку заголовка)

Последний раз редактировалось EducatedFool; 07.06.2012 в 22:07.
EducatedFool вне форума Ответить с цитированием
Старый 07.06.2012, 23:31   #4
Hugo121
Старожил
 
Регистрация: 11.05.2010
Сообщений: 5,170
По умолчанию

офф.
Только сегодня на другом форуме был точно такой же вопрос. Но автор и файл другие - я там ещё все лишние строки/столбцы скрывал, чтоб бухгалтеры документ не теряли.
Уже не раз замечал - вопросы идут косяками
webmoney: E265281470651 Z422237915069 R418926282008
Hugo121 вне форума Ответить с цитированием
Старый 08.06.2012, 00:01   #5
Робин
Форумчанин
 
Регистрация: 03.04.2010
Сообщений: 118
По умолчанию

Hugo121 можете написать на каком, интересно посмотреть
спасибо
Робин вне форума Ответить с цитированием
Старый 08.06.2012, 00:26   #6
Hugo121
Старожил
 
Регистрация: 11.05.2010
Сообщений: 5,170
По умолчанию

Кажется, на planete, но не нашёл. Что-то там пока не все темы открываются после переезда, глючит что-то.
Да что там смотреть - решение там я такое же дал, только чуть полнее синтаксис, т.к. записал рекордером
А скрытие так - сперва всё скрываем, потом нужное открываем.
webmoney: E265281470651 Z422237915069 R418926282008
Hugo121 вне форума Ответить с цитированием
Старый 08.06.2012, 12:15   #7
Робин
Форумчанин
 
Регистрация: 03.04.2010
Сообщений: 118
По умолчанию

EducatedFool, макрос протестировал в рабочем файле, спасибо все работает как надо
Робин вне форума Ответить с цитированием
Ответ


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

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Макрос для сжатия страницы и печати DYm00n Microsoft Office Word 5 19.09.2010 19:20
Нужна программа или макрос для печати шаблонов word с данными взятыми из таблицы EXCEL dimatz Microsoft Office Excel 3 05.03.2010 12:17
Макрос печати по списку Feniks18 Microsoft Office Excel 2 03.11.2009 07:20
Макрос для печати!!! Счетчик.. Miax Microsoft Office Excel 5 11.09.2009 17:33
Макрос сохранения после печати lala_white Microsoft Office Word 2 10.08.2008 12:50