Скачать: CL | DM;

Как в 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]

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

---

← →
Yanis ©   (2006-06-11 12:02) [9]

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

---

← →
isasa ©   (2006-06-11 12:21) [10]

Не знаю, не знаю.
Вот фрагмент из рабочего кода для 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);
Вот так что ли?
У меня не компилируется...

---

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

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

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

---

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

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.026 c