Как в Excel вставить разрыв страницы

← →
Id (2006-06-11 10:46) [0]

???

← →
lookin © (2006-06-11 10:51) [1]

Может быть Excel.Workbooks[0].DisplayPageBreaks:=true?

← →
Id (2006-06-11 11:10) [2]

> Excel.Workbooks[0].DisplayPageBreaks:=true?

Никакого эффекта

← →
Yanis © (2006-06-11 11:38) [3]

Что то типа
Sheets(3).HPageBreaks.Add Before:=ActiveCell Sheets(3).VPageBreaks.Add Before:=ActiveCell

← →
isasa © (2006-06-11 11:39) [4]

ActiveWindow.SelectedSheets.HPageBreaks.Add( Before:=ActiveCell ); ?

← →
Yanis © (2006-06-11 11:51) [5]

> ActiveWindow.SelectedSheets.HPageBreaks.Add( Before:=ActiveCell
> ); ?

Молодец, но я всё таки первый догадался макрос записать :P

← →
isasa © (2006-06-11 11:56) [6]

:)
У тебя параметр метода не в скобках, так, кажется компилятор не сожрет. :)

← →
Yanis © (2006-06-11 12:00) [7]

> так, кажется компилятор не сожрет. :)

Поспорим? =)

← →
isasa © (2006-06-11 12:01) [8]

С утра, в выходной, только проснувшись и не выпив кофе, на простановку скобок, как раз минута и нужна. :)

У меня со скобками не прокатывает.

Не знаю, не знаю.
Вот фрагмент из рабочего кода для D6.
procedure TWordConsole.SetTable(Selection : variant; Text : string; nCol : integer); begin Selection.Text:=Text; Selection.Font.Size := 9; Selection.ConvertToTable(Separator:=wdSeparateByTabs, NumColumns:=nCol, Format:=wdTableFormatNone, ApplyBorders:=True, ApplyShading:=True, ApplyFont:=True, ApplyColor:=True, ApplyHeadingRows:=True, ApplyLastRow:=False, ApplyFirstColumn:=True, ApplyLastColumn:=False, AutoFit:=True, AutoFitBehavior:=wdAutoFitContent, DefaultTableBehavior:=wdWord9TableBehavior); ReplaseStr(Selection, ";","^l"); Selection.ParagraphFormat.Alignment := wdAlignParagraphCenter; end;
не Add, но метод ...

← →
Id (2006-06-11 12:26) [11]

ExBook.Sheets[1].HPageBreaks.Add(Before:=ActiveCell);
Вот так что ли?
У меня не компилируется...

> Не знаю, не знаю.
> Вот фрагмент из рабочего кода для D6

Аааа... Дык я промакрос дискуссировал то :D Ты прав конечно.

Как в Excel вставить разрыв страницы Найти похожие ветки