автоматическая разметка страницы

Пользователь

Сообщений: 5 Регистрация: 01.01.1970

18.12.2009 14:05:46

Здравствуйте!

Имееется 30 книг Excel 2003 по 20 листов в каждой. Нужно распечатать эти документы так, чтобы каждый лист умещался на одну отдельную страницу. Очень не хочется на каждом листе вручную убирать разрывы страницы. Нет ли способа сделать это автоматически?

Guest

Гость

18.12.2009 14:27:35

в смысле убирать??? резерв уже стоит???
можоно либо выделить все листы в каждой отдельной книге и задать им параметры печати, либо записать макрос с теми же самыми действиями...
без примера сложно еще что-то подсказать....

Flameberg Пользователь Сообщений: 5 Регистрация: 01.01.1970	#3 18.12.2009 14:42:57 Попробую с примером. У меня сейчас на нескольких сотнях листов вот такая разметка (Вид - Разметка страницы). Соответственно, каждый лист печатается на 4 страницы. Прикрепленные файлы post_85230.JPG (140.66 КБ)

Flameberg Пользователь Сообщений: 5 Регистрация: 01.01.1970	#4 18.12.2009 14:43:54 А нужно, чтоб была вот такая разметка. Прикрепленные файлы post_85232.JPG (140.51 КБ)

Marchuk Пользователь Сообщений: 1167 Регистрация: 01.01.1970	#5 18.12.2009 14:54:31 With ActiveSheet.PageSetup .FitToPagesWide = 1 .FitToPagesTall = 1 End With

ytk5kyky

Пользователь

Сообщений: 2410 Регистрация: 01.01.1970

18.12.2009 14:56:24

Вот "волшебный" файл. Просто открываете и после этого, пока этот файл открыт, ВСЕ листы во ВСЕХ книгах печатаются на одном листе.
Макросы должны быть разрешены.
Лучше не отправляйте на печать и не открывайте предварительный просмотр для тех книг, которые не должны на одном листе печататься - настройки будут сбиты.

Прикрепленные файлы

post_85236.xls (23 КБ)

Bite my shiny metal ass!

Guest Гость	#7 18.12.2009 14:58:49 Всем большое спасибо!

Читают тему