Текущий архив: 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.016 c