Главная страница
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.014 c
15-1457038707
Германн
2016-03-03 23:58
2017.01.15
Runtime packages


15-1448477619
K-1000
2015-11-25 21:53
2017.01.15
MapViewOfFile() ускоряет загрузку файлов?


2-1423485605
lewka
2015-02-09 15:40
2017.01.15
Запрос в MS Access


4-1279862952
Олл
2010-07-23 09:29
2017.01.15
Обмен данными с внешим приложением


3-1311770178
SQLEXPRESS
2011-07-27 16:36
2017.01.15
Ни кто не не желает в SQL размяться? Время исполнения