Печать документа

[оleg]

Как с помощью API КОМПАСа распечатать документ? Пробовал так:
на VB
-----
    Dim k As Kompas6API5.Application
    Set k = New Kompas6API5.Application
    Dim d As Double
    d = 0.9
    k.ksPrintKompasDocument "1.cdw", vbNullString, d
    Set k = Nothing
-----
Вылетает с ошибкой Automation Error -2147417851 (80010105)
Но при этом печатает одну страницу (пустую)
На Delphi:
---
var
  s,p:WideString;
  d:double;
  Kompas :KompasObject;
begin
  s:=’1.cdw’;
  p:=’’;
  d:=0.9;
  Kompas:= KompasObject(CreateOleObject(’Kompas.Application.5’));
  Kompas.ksPrintKompasDocument(s,p,d);
end;
----
Вылетает с ошибкой EOleSysError "Несовпадение типов"

Я уже третий день бьюсь с этим... Что я делаю не так? Помогите!!