FreePascal.ru

Все крылось в функцие формирования параметров:
function MakePropertyValue(PropertyName, PropertyValue: variant):variant;
PrintPar := VarArrayCreate([0, 1], varVariant);
PrintPar[0]:= MakePropertyValue('Pages', '2,3,4');
PrintPar[1]:= MakePropertyValue ...

Если

function MakePropertyValue(PropertyName, PropertyValue: variant):variant;
var
Structure: variant;
begin
Structure:= Server.Bridge_GetStruct('com.sun.star.beans.PropertyValue');
Structure.Name:= PropertyName;
Structure.Value&#58 ...

Сразу печатает, но параметры для печати почему-то не воспринимаются!
Неужели никто не выводит на печать определенные листы из документа, поделитесь...

Рискну предположить - неправильно (не та кодировка) передачи параметров в OpenOffice Writer/

А у кого-нибудь работает печать из Openoffice под управлением Lazarus.

Напишите рабочий вариант кода!

PrintPar1 := VarArrayCreate([0, 2], varVariant);
PrintPar1[0]:= MakePropertyValue('"Copies"','1');
PrintPar1[1]:= MakePropertyValue('"RangeText"','"2"');
PrintPar1[2]:= MakePropertyValue('"Collate"','true');

Frame:= Document&#46 ...

Может через диспетчера попытаться, ввиду того, что Pages тоже не работает.

PrintPar := VarArrayCreate([0, 2], varVariant);
PrintPar[0]:= MakePropertyValue('RangeText','2');
PrintPar[1]:= MakePropertyValue('Copies','1');
PrintPar[2]:= MakePropertyValue('Collate','true');
Document.Print(PrintPar);

Почему-то ...

Все заработало!

UTF8Decode и UTF8toAnsi и многие комбинации не помогают,
может кто сталкивался и знает точно то - что необходимо.

************************************************************************************************************************
как я понимаю по умолчанию lazarus работает с utf-8 как нормально записать строчку
в open office writer?
Подскажите,что не так?


BookmarksSupplier:=Document&#46 ...

А проект вообще сохранялся? Согласен с Максимом...

а так будет работать?
sss:='file:///c|/1.odt';
Document := Desktop.LoadComponentFromURL(variant(sss),'_blank', 0, LoadParams);

Огромное спасибо! Так Все работает! Может кому-то понадобиться!

Добавлено спустя 1 час 49 минут 22 секунды:

instext:='работает';
Bookmark ...

Написал полный код лежащий выше!

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
StdCtrls, EditBtn, MaskEdit, ComObj, Variants, LCLProc;
var
Form1: TForm1;
Server: Variant;
Desktop : Variant;
LoadParams : Variant;
Document &#58 ...