Старый добрый Excel

← →
lordalex (2008-09-05 13:40) [0]

Всем здрасте
Помогите пожалуйста вот с этой строкой

XLApp6.ActiveSheet.VPageBreaks[1].Location := Range["O1"];

Кампалер ругается на Range не пойму почему
Строка должна увеличить область печати с Столбика "М" до столбика "О"
За рание благодарен...

← →
Сергей М. © (2008-09-05 13:42) [1]

> не пойму почему

Потому что не понимает что такое Range и к чему оно относится

← →
lordalex (2008-09-05 13:49) [2]

он относется к открытому файлу Excel XLApp6.ActiveSheet

← →
lordalex (2008-09-05 13:55) [3]

Написал к чему относится серано ругается если знаешь как должно выглядеть подскажи

← →
Сергей М. © (2008-09-05 13:58) [4]

> Написал к чему относится серано ругается

так ведь теперь по-другому ругается)

← →
Сергей М. © (2008-09-05 14:09) [5]

with SomeWorksheet do
Row01Range := Range[Cells[1,1].EntireRow, EmptyParam];

← →
Vlad Oshin © (2008-09-05 14:33) [6]

заведи переменные для книги, страницы, участка.
Потом удобнее будет обращаться,
с другой стороны, и range уже определен

var
XLApp,Workbook,Sheet,Range:Variant;
begin
XLApp:= CreateOleObject("Excel.Application");
XLApp.Visible:=true;
Workbook := XLApp.WorkBooks.Add;
Sheet:=WorkBook.ActiveSheet;
Range := Sheet.Range["$A$1:$B$2"];
Sheet.PageSetup.PrintArea :=range;
...
Range.NumberFormat:="@";
..
range.select;
и т.п.

← →
lordalex (2008-09-05 17:33) [7]

Vlad Oshin это черезчур грамоско
мне надо вот так
XLApp6:= CreateOleObject("Excel.Application");
Path6:=PathAppl+"\Data\1.xls";
XLApp6.ActiveSheet.VPageBreaks[1].Location := Range["O1"];
Вот только чтоб не ругался на Range

← →
Плохиш © (2008-09-05 17:36) [8]

> мне надо вот так
> XLApp6:= CreateOleObject("Excel.Application");
> Path6:=PathAppl+"\Data\1.xls";
> XLApp6.ActiveSheet.VPageBreaks[1].Location := Range["O1"];
> Вот только чтоб не ругался на Range

Ткни пальцем в то место, где написано, к чему относится Range.

← →
lordalex (2008-09-05 17:58) [9]

XLApp6.ActiveSheet.VPageBreaks[1].Location:=XLApp6.WorkBooks.Add.ActiveSheet.Ran ge["O1"]
заделал так и серано при печати ошибка

> lordalex (05.09.08 17:58) [9]

Попроси программиста решить твою "проблему".

p.s.

> серано

Обсерено что ли ?

← →
lordalex (2008-09-05 20:10) [11]

> Попроси программиста решить твою "проблему".

Знал бы не спрашивал поэтому и прошу помощи.

> lordalex (05.09.08 20:10) [11]

Но хотя бы вникнуть в смысл содержимого текста сообщения об ошибке - это что, тоже невозможно ?

← →
Xandr001 (2008-09-08 06:33) [13]

Так не пробовал?
XLApp6.ActiveSheet.PageSetup.PrintArea := "$A:$M"

Старый добрый Excel Найти похожие ветки