Как правильно работать с методом PrintOut?

[Stilet]

Доброго всем.
Я пишу свой класс на Делфи для работы с Word. Затык в печати через метод Application.PrintOut.

В VBA сделал запись макроса, чтоб понять как этот метод работает и вот что получил:

Sub Макрос1()
'
' Макрос1 Макрос
' Макрос записан 08.07.2009 DJ_Diesel
'

   Application.PrintOut FileName:="", Range:=wdPrintRangeOfPages, Item:= _
        wdPrintDocumentContent, Copies:=1, Pages:="2-3", PageType:= _
        wdPrintAllPages, ManualDuplexPrint:=False, Collate:=True, Background:= _
        True, PrintToFile:=False, PrintZoomColumn:=0, PrintZoomRow:=0, _
        PrintZoomPaperWidth:=0, PrintZoomPaperHeight:=0
End Sub

Здесь указание страниц срабатывает на ура
Пишу в Делфи:

  
   FileName:='';
   Range:=wdPrintRangeOfPages;
   Item:=wdPrintDocumentContent;
   Copies:=1;
   Pages:='1-3';
   PageType:=wdPrintAllPages;
   ManualDuplexPrint:=false;
   Collate:=True;
   Background:=false;
   PrintToFile:=false;
   PrintZoomColumn:=0;PrintZoomRow:=0;
   PrintZoomPaperWidth:=0;PrintZoomPaperHeight:=0;

result:=TWord(this).App.PrintOut(FileName,Range,Item,Copies,Pages,PageType,ManualDuplexPrint,
   Collate,Background,PrintToFile,PrintZoomColumn,PrintZoomRow,
   PrintZoomPaperWidth,PrintZoomPaperHeight);

Здесь app получаю так:

app:=GetActiveOleObject('Word.Application');

Выдает ошибку: "Несовпадение типов" на строке с TWord(this).App.PrintOut...

Вопрос: Как правильно передавать параметры или где об этом почитать желательно с примерами.

[viter.alex]

А Delphi знает, чему равны wdPrintAllPages, wdPrintDocumentContent, wdPrintRangeOfPages? Сомневаюсь, если только вы их не описали как константы.
Они равны соответственно: 0, 0, 4

Кроме того, PrintOut — это процедура, она не возвращает значение.

[Stilet]

Сомневаюсь, если только вы их не описали как константы.

Описал

 wdPrintAllDocument=0;
 wdPrintCurrentPage=2;
 wdPrintFromTo=3;
 wdPrintRangeOfPages=4;
 wdPrintSelection=1;

 wdPrintAutoTextEntries=4;
 wdPrintComments=2;
 wdPrintDocumentContent=0;
 wdPrintKeyAssignments=5;
 wdPrintProperties=1;
 wdPrintStyles=3;
 wdPrintAllPages=0; wdPrintEvenPagesOnly=2 ; wdPrintOddPagesOnly=1;

Все как полагается.

Мне думается что OleVariant где-то лажает... Но никак не пойму где...
Файктически если я ставлю куда-нибудь что-то кроме EmptyParam вылетает эта ошибка...

[viter.alex]

Попробуй задавать EmptyParam для тех значений, которые остаются по-умолчанию. Когда-то была похожая тема, человек с поиском пытался работать через Delphi

[Stilet]

viter.alex

Пробовал...
Если всем переменкам присвоить ЭмптиПарам то работает, но как только хоть одной из них задать ченить скажем:

   FileName:=EmptyParam;//
   Range:=EmptyParam;//wdPrintAllDocument;
   Item:=EmptyParam;//wdPrintDocumentContent;
   Copies:=1;
   Pages:=EmptyParam;//EmptyParam;
   PageType:=EmptyParam;//wdPrintAllPages;
   ManualDuplexPrint:=EmptyParam;//false;
   Collate:=EmptyParam;//True;
   Background:=EmptyParam;//false;
   PrintToFile:=EmptyParam;//false;
   PrintZoomColumn:=EmptyParam;//0;
   PrintZoomRow:=EmptyParam;//0;
   PrintZoomPaperWidth:=EmptyParam;//0;
   PrintZoomPaperHeight:=EmptyParam;//0;

Падает на ту ошибку....
Может там как то приводить типы нужно?

[viter.alex]

Честно говоря, не знаю. Может быть подойдет способ, которым эта девушка сделала:

Сообщение от Lisi4ka

Проблему решила путем присвоения переменной типа OleVariant значения worddocument1.Range.End_, теперь с синтаксисом разбираюсь, ведь свойства Paragraphs у ActiveDocument.Range(iStart, ActiveDocument.Range.End).Find.Pare nt нет(((

[Stilet]

viter.alex

Ладно. Спасибо и за поддержку
Пока ничего не решил, буду с этой проблемой переспать