lazarus + openoffice

[Astralis]

в документации за распечатку отдельных страниц отвечает параметр Pages

Pages (String) – содержат список страниц, которые будут напечатаны (синтаксис как определено в диалоге печати).

[sant]

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

[Astralis]

А может все из-за того что вы используете Copies вместо CopyCount?
http://api.openoffice.org/docs/common/r ... tions.html

[sant]

Код: Выделить всё

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

    Frame:= Document.getCurrentController.getFrame;
    Dispatcher:= Server.createInstance('com.sun.star.frame.DispatchHelper');
    Dispatcher.executeDispatch(Frame,'.uno:Print', '', 0, PrintPar1); 

Так тоже отчего-то не работает!
Openoffice - 3.1.0, XP SP3
Lazarus 9.28 beta (2.2.4)

Добавлено спустя 2 минуты 15 секунд:
Если же написать так, тоже не работает. Единственное вызавается диалог печати, но в него параметры не передаются!

Код: Выделить всё

  PrintPar1 := VarArrayCreate([0, 0], varVariant);
  PrintPar1[0]:= MakePropertyValue('RangeText','2');

    Frame:= Document.getCurrentController.getFrame;
    Dispatcher:= Server.createInstance('com.sun.star.frame.DispatchHelper');
    Dispatcher.executeDispatch(Frame,'.uno:Print', '', 0, PrintPar1); 

Добавлено спустя 15 часов 50 минут 53 секунды:
Помогите пожалуйста

[sant]

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

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

[sant]

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

[xcod]

Если же написать так, тоже не работает. Единственное вызавается диалог печати, но в него параметры не передаются!

Код: Выделить всё

  PrintPar1 := VarArrayCreate([0, 0], varVariant);
  PrintPar1[0]:= MakePropertyValue('RangeText','2');

    Frame:= Document.getCurrentController.getFrame;
    Dispatcher:= Server.createInstance('com.sun.star.frame.DispatchHelper');
    Dispatcher.executeDispatch(Frame,'.uno:Print', '', 0, PrintPar1); 

чтобы не выдавался диалог печати сделайте так:

Код: Выделить всё

Dispatcher.executeDispatch(Frame,'.uno:PrintDefault', '', 0, PrintPar1); 

будет сразу идти печатать на принтер используемый по умолчанию в системе

[sant]

Код: Выделить всё

Dispatcher.executeDispatch(Frame,'.uno:PrintDefault', '', 0, PrintPar1); 

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

[xcod]

по моему в параметрах должно быть вот так вот:

Код: Выделить всё

PrintPar[1]:=MakePropertyValue('CopyCount', 1);

[sant]

Если

Код: Выделить всё

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

Тогда, можно

Код: Выделить всё

 Frame:= Document.getCurrentController.getFrame;
 Dispatcher:= Server.createInstance('com.sun.star.frame.DispatchHelper');

 PrintPar1 := VarArrayCreate([0, 0], varVariant);
 PrintPar1[0]:= MakePropertyValue('RangeTex', 2);
 Dispatcher.executeDispatch(Frame, '.uno:Print', '', 0, PrintPar1);

Все-равно не работает!

[xcod]

попробуйте печать не через диспетчер:

Код: Выделить всё

PrintPar := VarArrayCreate([0, 0], varVariant);
PrintPar[0]:= MakePropertyValue('CopyCount', 1);
Document.Print(PrintPar);

Добавлено спустя 16 часов 18 минут 3 секунды:
Свойство CopyCount определяет кол-во копий документа

Код: Выделить всё

PrintPar[0]:=MakePropertyValue('CopyCount', 1);

а свойство Pages определяет страницы для печати

Код: Выделить всё

PrintPar[1]:=MakePropertyValue('Pages', '1-3,10-15,25'); // страницы разделяются "," или ";" точно не помню проверьте сами

[sant]

Все крылось в функцие формирования параметров:

Код: Выделить всё

function MakePropertyValue(PropertyName, PropertyValue: variant):variant;

Код: Выделить всё

PrintPar := VarArrayCreate([0, 1], varVariant);
 PrintPar[0]:= MakePropertyValue('Pages', '2,3,4');
 PrintPar[1]:= MakePropertyValue('CopyCount',i);
 Document.Print(PrintPar);

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