Форум: "Основная";
Текущий архив: 2004.05.30;
Скачать: [xml.tar.bz2];

Вниз

Границы печати в Excel   Найти похожие ветки 

← →
stelius   (2004-05-20 11:03) [0]

Народ, подскажите как проверить, что созданная мною в Excel"е таблица не выходит за рамки печати (по горизонтали)?

---

← →
YurikGl ©   (2004-05-20 11:09) [1]

Смотришь ширину листа, потом суммируешь ширины колонок таблицы и сравниваешь полученные значения.

---

← →
stelius ©   (2004-05-20 11:17) [2]

2YurikGl ©   (20.05.04 11:09) [1]
а как узнать ширину листа?

---

← →
YurikGl ©   (2004-05-20 11:31) [3]

Создаешь макрос, изменяющий этот параметр и смотришь, как он устроен. Получишь примерно следующее

   With ActiveSheet.PageSetup
       .LeftHeader = ""
       .CenterHeader = ""
       .RightHeader = ""
       .LeftFooter = ""
       .CenterFooter = ""
       .RightFooter = ""
       .LeftMargin = Application.InchesToPoints(0.984251968503937)//явно, правая граница
       .RightMargin = Application.InchesToPoints(0.984251968503937)
       .TopMargin = Application.InchesToPoints(0.984251968503937)
       .BottomMargin = Application.InchesToPoints(0.984251968503937)
       .HeaderMargin = Application.InchesToPoints(0.511811023622047)
       .FooterMargin = Application.InchesToPoints(0.511811023622047)
       .PrintHeadings = False
       .PrintGridlines = False
       .PrintComments = xlPrintNoComments
       .PrintQuality = 600
       .CenterHorizontally = False
       .CenterVertically = False
       .Orientation = xlPortrait
       .Draft = False
       .PaperSize = xlPaperA4//явно, - размер бумаги (210х297 мм)
       .FirstPageNumber = xlAutomatic
       .Order = xlDownThenOver
       .BlackAndWhite = False
       .Zoom = 100
   End With

Вычитаем из ширины бумаги ширину левого и правого полей.

---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2004.05.30;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.032 c