Отступы листа для печати

Программирование на Visual Basic for Applications
Чудик
Постоялец
Постоялец
Аватара пользователя
 
Сообщения: 639
Зарегистрирован: 06.07.2004 (Вт) 12:18
Откуда: г. Егорьевск

Отступы листа для печати

Сообщение Чудик » 29.12.2004 (Ср) 10:10

В данный момент справки по VBA под рукой не имею. Вынужден спросить: как установить отступы от краев листа перед его печатью?
Век живи - век учись!
www.detal-plast.narod.ru

OlegkA
Новичок
Новичок
 
Сообщения: 31
Зарегистрирован: 23.12.2004 (Чт) 21:51

Сообщение OlegkA » 29.12.2004 (Ср) 11:29

просто сделай запись макросов и посмотри код!
потом удали ненужную хрень и все!

Чудик
Постоялец
Постоялец
Аватара пользователя
 
Сообщения: 639
Зарегистрирован: 06.07.2004 (Вт) 12:18
Откуда: г. Егорьевск

Сообщение Чудик » 29.12.2004 (Ср) 11:34

Логично, не сообразил ... хотя в свое время как раз так и делал. Старость?
Век живи - век учись!
www.detal-plast.narod.ru

rhetoric
Начинающий
Начинающий
 
Сообщения: 2
Зарегистрирован: 10.02.2005 (Чт) 5:12

Сообщение rhetoric » 10.02.2005 (Чт) 13:09

Хочу иммигрировать в Европу, нашла сайт http://www.cernis.cz и заинтересовалась. А Вы что думаете по этому поводу?

GSerg
Шаман
Шаман
 
Сообщения: 14286
Зарегистрирован: 14.12.2002 (Сб) 5:25
Откуда: Магадан

Сообщение GSerg » 10.02.2005 (Чт) 16:03

Мы по этому поводу думаем, что кого-то ага, ибо нефиг.
Как только вы переберёте все варианты решения и не найдёте нужного, тут же обнаружится решение, простое и очевидное для всех, кроме вас

Ramzes
Скромный человек
Скромный человек
Аватара пользователя
 
Сообщения: 5004
Зарегистрирован: 12.04.2003 (Сб) 11:59
Откуда: Из гробницы :)

Сообщение Ramzes » 10.02.2005 (Чт) 18:28

rhetoric писал(а):Хочу иммигрировать в Европу, нашла сайт http://www.cernis.cz и заинтересовалась. А Вы что думаете по этому поводу?


Мы думаем надо позвать Себаса и модераторов....ибо нефиг :shock:

Ser Artur
Начинающий
Начинающий
Аватара пользователя
 
Сообщения: 23
Зарегистрирован: 10.10.2005 (Пн) 13:03

Я могу предложить другой вариант

Сообщение Ser Artur » 11.10.2005 (Вт) 7:51

Я могу предложить другой вариант скопируй код в ThisWorkbook
и наслаждайся
Код: Выделить всё
Sub Workbook_NewSheet(ByVal Sh As Object)
   With Sh.PageSetup
     .LeftMargin = Application.CentimetersToPoints(0.5)
     .RightMargin = Application.CentimetersToPoints(0.5)
     .TopMargin = Application.CentimetersToPoints(0.5)
     .BottomMargin = Application.CentimetersToPoints(0.5)
     .Orientation = xlLandscape
   End With
End Sub


Вернуться в VBA

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 97

    TopList