Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2017.01.15;
Скачать: CL | DM;

Вниз

ориентация листа OpenOffice   Найти похожие ветки 

 
viosvi   (2012-06-25 10:54) [0]

Здравствуйте, подскажите пожалуйста как программно изменить ориентацию листа с книжной на альбомную?

StarDesktop := StarOffice.createInstance("com.sun.star.frame.Desktop");
  Document := StarDesktop.LoadComponentFromURL(
                 "private:factory/swriter", "_blank", 0,
                 VarArrayCreate([0,-1], varVariant));
  Result := not (VarIsEmpty(Document) or VarIsNull(Document));

PageSetup.Orientation := 2; //?????


 
Александр А   (2012-06-26 06:17) [1]

А почему не хотите воспользоваться uOpenOffice?

uses uOpenOffice;

procedure TForm1.Button1Click(Sender: TObject);
var
 FOOCalc: TOOCalc;
begin
 FOOCalc := TOOCalc.Create;
 with FOOCalc do begin
   Connect := True;
   OpenDocument("", [oomAsTemplate], ommAlwaysNoWarn);
   Printer.PaperOrientation := opoLandscape;
   Visible := True;
   Free;
 end;
end;



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

Текущий архив: 2017.01.15;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.024 c
2-1419002742
Вован Петрович
2014-12-19 18:25
2017.01.15
Локализация ПО


3-1310463935
walm
2011-07-12 13:45
2017.01.15
Распределенный запрос


2-1426309809
vrem
2015-03-14 08:10
2017.01.15
Uses разные unit автоматически - как?


2-1420805898
sz1958
2015-01-09 15:18
2017.01.15
свернуть-восстановить главную и модальные формы


2-1419021247
AlexeyTG
2014-12-19 23:34
2017.01.15
Просьба оценит "корявость кода" v3