Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / распечатать на одном листе / 7 сообщений из 7, страница 1 из 1
30.01.2012, 21:47
    #37639052
ecivgamer
ecivgamer
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
распечатать на одном листе
Привет всем!

Подскажите, как можно настроить область печати, чтобы результат был на одном листе.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
30.01.2012, 21:49
    #37639053
ecivgamer
ecivgamer
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
распечатать на одном листе
Excel 2010
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
30.01.2012, 21:54
    #37639060
Antonariy
Antonariy
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
распечатать на одном листе
Руками колонки подровнять. И масштаб нужный выставить.
Причем тут VB?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
30.01.2012, 22:03
    #37639072
ecivgamer
ecivgamer
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
распечатать на одном листе
Много листиков потому что. И длина/ширина листов бывает разная, зависит от результатов вычисления данных. Так что помогите кто может с vba.
Пробую вот так вот:
Код: vbnet
1.
Sheets("Sheet1").PageSetup.PrintArea = Selection.Address


Получаю в ответ тучу страниц. Как сделать на одной?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
30.01.2012, 22:08
    #37639078
AndreTM
AndreTM
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
распечатать на одном листе
Вообще-то, в параметрах страницы есть масштабирование, где есть параметр "разместить на <столько-то> страниц в ширину и <столько-то> в высоту". Запишите макрос и посмотрите, какие параметры меняются...
Но не факт, что вы сможете разместить всё на одной странице - раз "туча страниц" - то как вы себе представляете вывод на один лист? шрифтом размера 1?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
31.01.2012, 09:15
    #37639376
Antonariy
Antonariy
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
распечатать на одном листе
ecivgamerМного листиков потому что. И длина/ширина листов бывает разная, зависит от результатов вычисления данных. Так что помогите кто может с vba.VBA тут имеет второстепенное значение. Раз размеры разные, значит выхода два: 1) делать руками 2) сделать одну печатную форму, которая подходила бы для вывода данных любых размеров, а с помощью VBA ее можно было бы заполнять данными и печатать.

AndreTMНо не факт, что вы сможете разместить всё на одной странице - раз "туча страниц" - то как вы себе представляете вывод на один лист? шрифтом размера 1?
Имеется ввиду, что нужно отформатировать тучу страниц, а не запихнуть их на один лист.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
31.01.2012, 11:19
    #37639587
ecivgamer
ecivgamer
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
распечатать на одном листе
Вот что мне помогло:

Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
Sub slgkjkg()

Sheets("12_").PageSetup.PrintArea = Selection.Address

    Application.PrintCommunication = False
    With ActiveSheet.PageSetup
        .FitToPagesWide = 1
        .FitToPagesTall = 1
    End With
    Application.PrintCommunication = True

End Sub



Всем спасибо.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / распечатать на одном листе / 7 сообщений из 7, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 496ms
Закрыть
start [/forum/topic.php?fid=60&mobile=1&tid=2158105]:
 0ms
get settings:
 12ms
get forum list:
 16ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 155ms
get topic data:
 11ms
get forum data:
 3ms
get page messages:
 52ms
get tp. blocked users:
 2ms
others: 237ms
total:  496ms
x
x
Закрыть


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