| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

ориентация листа OpenOffice

viosvi ©   (2012-06-25 10:54:00) 

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

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:00) [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;

---

Наверх