Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > .NET для новичков > OpenOffice Calc

Автор: forestG 10.10.2011, 19:51

День добрый, подскажите, как сделать сквозные строки? Т.е. что бы на каждом листе (при печати) повторялись строки smile

Автор: forestG 10.10.2011, 20:31

Записал макрос, но что то не разберусь...
rem ----------------------------------------------------------------------
rem define variables
dim document as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

rem ----------------------------------------------------------------------
rem dispatcher.executeDispatch(document, ".uno:EditPrintArea", "", 0, Array())

rem ----------------------------------------------------------------------
dim args2(2) as new com.sun.star.beans.PropertyValue
args2(0).Name = "PrintArea"
args2(0).Value = ""
args2(1).Name = "PrintRepeatRow"
args2(1).Value = "$A$2"
args2(2).Name = "PrintRepeatCol"
args2(2).Value = "$A$1"

dispatcher.executeDispatch(document, ".uno:ChangePrintArea", "", 0, args2())

Добавлено через 8 минут и 9 секунд
А нужно ли использовать com.sun.star.frame.DispatchHelper?

Р.S. Делаю на C# VisualStudio, если есть возможность, можно примеры на Visual: (C++, Basic, Java, С#) . NET smile

Автор: forestG 11.10.2011, 18:14

Походу дела напрасно регился...

Автор: forestG 12.10.2011, 22:54

Тема off всем спс)

Код


   OOo.sheet.XPrintAreas xPrintAreas = (OOo.sheet.XPrintAreas)xSheet;
OOo.table.CellRangeAddress c = new unoidl.com.sun.star.table.CellRangeAddress(0, 0, 0, 5, 0);
                xPrintAreas.setTitleRows(c);