Добро пожаловать в форум, Guest  >>   Войти | Регистрация | Поиск | Правила | В избранное | Подписаться
Все форумы / Delphi Новый топик    Ответить
 Delphi + OpenOffice  [new]
Кареглазая_зая
Member

Откуда:
Сообщений: 38
Здравствуйте, пытаюсь автоматизировать выгрузку отчета в LibreOffice и столкнулась с проблемой, почему-то после сохранения файла настройки диапазона печати пропадают. В шаблоне он есть. Подскажите пожалуйста, можно ли как-то программно(delphi) установить диапазон печати? какими функциями?
13 мар 19, 14:23    [21831352]     Ответить | Цитировать Сообщить модератору
 Re: Delphi + OpenOffice  [new]
wadman
Member

Откуда: Санкт-Петербург
Сообщений: 25329
LibreOffice и OpenOffice одно и то же?

https://www.sql.ru/forum/405083/delphi-openoffice-zapolnim-probel
13 мар 19, 14:25    [21831353]     Ответить | Цитировать Сообщить модератору
 Re: Delphi + OpenOffice  [new]
Arioch
Member

Откуда:
Сообщений: 10807
Кареглазая_зая,

создавать ODS-файл не запуская Office вообще

после записи файла - открыть его в Office, если надо
13 мар 19, 15:37    [21831450]     Ответить | Цитировать Сообщить модератору
 Re: Delphi + OpenOffice  [new]
Кареглазая_зая
Member

Откуда:
Сообщений: 38
Arioch,

как это не запуская вообще?
функция, которая я открываю
function OpenOfficeE(FName:string;typ:Integer=0):Boolean;
var
typV:TOpenOM;
begin
  try

    case typ of
        0:typV:=[oomAsTemplate];
        1:typV:=[oomHidden];
        2:typV:=[oomReadOnly];
    end;
    OC:=TOOCalc.Create;
    OC.Connect:=true;
    OC.OpenDocument( PathDoc + '\'  + FName,typV,ommAlwaysNoWarn);
    Result := True;

   except
    on E: Exception do
    begin
      stLog := 'Ошибка запуска OpenOffice: '+ E.Message;
      UGlobals.WriteLog(ApCatcher.Log, stLog);
      OC.Free;
      Result:=false;
    end;
   end;
end;


вот так в процедуре по созданию документа
if not OpenOfficeE(RepFileName,1) then Exit;
OC.Sheets.ActiveByIndex:=0;
.............................................
OC.Sheets.Active.Cell[0,i].AsText := 'ИТОГО:';
CellsMergeMyHOO('A', 'G', i+1,i+1, ovaCenter, ohaLeft, True);
13 мар 19, 16:21    [21831511]     Ответить | Цитировать Сообщить модератору
 Re: Delphi + OpenOffice  [new]
Arioch
Member

Откуда:
Сообщений: 10807
Кареглазая_зая,

ну вы же можете из Delphi записать текстовый файл, не открывая notepad.exe
13 мар 19, 18:01    [21831631]     Ответить | Цитировать Сообщить модератору
Все форумы / Delphi Ответить