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

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

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

Восстановить пароль
Повторная активизация e-mail

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

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 27.10.2008, 16:50   #1
mik
Пользователь
 
Регистрация: 23.10.2007
Сообщений: 12
По умолчанию Можно ли в одной распечатке совместить несколько листов?

Имеется: Книга с двумя листами в каждом из которых отформатирована до нужного вида таблица (фонты, границы, размеры ячеек).

Задача: Совместить при печати оба листа в одну страницу А4. То есть выделить на странице под первый лист поле и втиснуть в него содержимое первого листа, и то же сделать для второго листа.

Вопросы: Способен ли на такое голый Excel? Существуют ли довески к Excel-ю делающие возможными такие манипуляци? Какие другие программы могут справиться с этой задачей?
mik вне форума
Старый 27.10.2008, 17:28   #2
EducatedFool
Программист VBA
СуперМодератор
 
Аватар для EducatedFool
 
Регистрация: 13.07.2008
Сообщений: 6,856
По умолчанию

Цитата:
Вопросы: Способен ли на такое голый Excel?
Не знаю, как выглядит голый Excel, но, что подобное осуществимо средствами Excel - точно.

Цитата:
Существуют ли довески к Excel-ю делающие возможными такие манипуляци?
Наверняка существуют (если под довесками подразумеваются макросы или содержащие их надстройки), но поиск подходящих и настройка их на выполнение конкретной задачи может занять много времени.

Цитата:
Задача: Совместить при печати оба листа в одну страницу А4
Всегда ли 2 листа реально уместить в одну страницу?
В таблицах разное количество строк или постоянное?
До какого значения допустимо уменьшать масштаб вывода на печать, если 2 страницы не будут влазить на лист?

Чтобы избежать этих (и многих других) вопросов, прикрепите к сообщению файл с 3 листами: 2 листа с таблицами, и один с тем, что должно получиться в итоге.
EducatedFool вне форума
Старый 28.10.2008, 02:00   #3
mik
Пользователь
 
Регистрация: 23.10.2007
Сообщений: 12
По умолчанию

"Голый" Excel - без дополнений от других производителей помимо Microsoft (например TM1 фирмы Applix). Под "довесками" я подразумевал именно такие программы.

Я пытаюсь сделать страницу дневника и добавить в неё календарь текущего месяца. Страница дневника - в первом листе, календарик месяца - во втором. Print Setup: Fit to 2 pages wide by 1 tall (получается две сраницы какбы разворот дневника). В правом нижнем углу хочу втиснуть календарик, находящийся во втором листе Workbook-а.

Количество строк и столбцов постоянное (в неделе в ближайшее время восемь дней не предвидется , да и в сутках дополнительные часы не предусмотрены).
Масштабы вроде отрегулировал в листах. Осталось только совместить при печати.
mik вне форума
Старый 28.10.2008, 05:44   #4
SAS888
Старожил
 
Аватар для SAS888
 
Регистрация: 05.12.2007
Сообщений: 4,180
По умолчанию

А не проще создать на первом листе форму "Календарь" (Хоть стандартную, хоть собственную) и изначально установить свойство Visible = False, а по событию Workbook_BeforePrint выполнять Visible = True.
1. Форму можно прикрепить к определенному месту на экране (ничего не нужно определять).
2. Второй лист не нужен.
Чем шире угол зрения, тем он тупее.
SAS888 вне форума
Старый 30.10.2008, 22:28   #5
mik
Пользователь
 
Регистрация: 23.10.2007
Сообщений: 12
По умолчанию

Цитата:
Сообщение от SAS888 Посмотреть сообщение
А не проще создать на первом листе форму "Календарь" (Хоть стандартную, хоть собственную) и изначально установить свойство Visible = False, а по событию Workbook_BeforePrint выполнять Visible = True.
1. Форму можно прикрепить к определенному месту на экране (ничего не нужно определять).
2. Второй лист не нужен.
Наверное проще...
Из вашего ответа напрашиваются несколько выводов:
1. В Excel-е можно создавать Формы.
2. Существует стандартная форма Календарь.
3. Форму можно сделать невидмой.
4. В Excel-е существуют События.
5. Можно управлять свойствами форм в зависимсти от событий.
Только как это делается? Можно по-пунктам?
mik вне форума
Старый 31.10.2008, 06:03   #6
SAS888
Старожил
 
Аватар для SAS888
 
Регистрация: 05.12.2007
Сообщений: 4,180
По умолчанию

Посмотрите вложение.
При выводе листа на печать (входе в предварительный просмотр), в правом нижнем углу страницы появится календарь.
После окончания вывода на печать (выхода из предпросмотра) календарь останется видимым. При активации любой ячейки листа календарь "спрячется".
Теперь по пунктам:
1. 2. Вставляем в нужное место листа элемент управления "календарь".
3. В свойствах устанавливаем Visible=False. В свойствах "формат объекта" устанавливаем "не перемещать и не изменять размеры", а так же "выводить объект на печать".
4. В VBE в модуль "Эта книга" вставляем код:
Код:
Private Sub Workbook_BeforePrint(Cancel As Boolean)
    Sheets(1).Shapes("Calendar1").Visible = True
End Sub
Теперь, перед событием вывода на печать (вход в предварительный просмотр), календарь станет видимым.
В VBE в модуль листа вставляем код:
Код:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    ActiveSheet.Shapes("Calendar1").Visible = False
End Sub
Теперь, по событию выбора любой ячейки листа, календарь станет невидимым.
Вложения
Тип файла: rar Calendar.rar (11.4 Кб, 25 просмотров)
Чем шире угол зрения, тем он тупее.
SAS888 вне форума
Закрытая тема


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Можно ли как нибудь Лицензионную XP поставить на несколько компов? vicvtor Windows 22 16.09.2014 16:46
предпросмотр при распечатке страниц Dimon Общие вопросы Delphi 6 12.03.2011 11:02
Перенос данных из одной книги со многих листов в другую gavrylyuk Microsoft Office Excel 34 20.07.2008 21:39
можно ли в одном классе реализовать несколько интерфейсов Galinka08 Общие вопросы по Java, Java SE, Kotlin 2 08.03.2008 21:33