Печать всех layout'ов документа

короче я нашёл несколько примеров с этим методом. Он действительно делает то, что мне нужно. В качестве параметра ему передаётся либо строка, либо массив строк (строки - это имена layout'ов). На VBA задать такой массив и передать его методу проще простого (примеры для VBA были). В Delphi я создал вариантный массив (OleVariant) типа varOleStr и поместил в него имена всех layout'ов. Однако при попытке передать этот массив в качесте параметра выскакивает ошибка "Параметр задан неверно". Что я делаю нетак? И чем массив строк в VBA отличается от вариантного массива в Delphi?

Ясно. Для трех layoutов будет так:
varvar1:=VarArrayCreate([0,2],varolestr );  //varvar1:olevariant
varvar1[0]:='lay1';
varvar1[1]:='lay2';
varvar1[2]:='lay3';
AcadDocument1.Plot.SetLayoutsToPlot(varvar1);

Это конечно не исчерпывает темы, но я нашёл пусть даже и кривой, но выход:
1. Поочерёдно делать активными все layout'ы
2. Печатать их по одному во временную директорию
3. Склеить их через ADOBE PDF Maker (я просмотрел интерфейсы и методы - там вроде это просто сделать)

А какая ошибка выскакивает? У меня всё работает, как на дельфе 5, так и на си++ 5.3, библиотека типов от 2006 автокада

Ошибся,не на 5 а на дельфе 7 работает

Не импортировал вообще. Просто обращаюсь с автокадом, как с обычным COM-объектом. Остальные обращения вполне работают. Ошибка "Параметр задан неверно" возникает во время подстановки в качестве параметра вариантного массива.
На всякий случай кусок программы побольше:

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, XPMan, ComCtrls, ComObj, ExtCtrls;
//----------------------------------------------//
var
  frmMain: TfrmMain;
  //----Variants
  AutoCAD: Variant;
  //----
procedure TfrmMain.btnConvertClick(Sender: TObject);
var
  a,layouts: olevariant;
  i: integer;
begin
  AutoCAD:=CreateOleObject('AutoCAD.Application');
  AutoCAD.Documents.Open(edSource.Text);
  AutoCAD.Visible:=true;
  layouts:=VarArrayCreate([0,AutoCAD.ActiveDocument.Layouts.Count-1],varOleStr);
  for i:=0 to AutoCAD.ActiveDocument.Layouts.Count-1 do
  begin
    a:=i;
    layouts[i]:=AutoCAD.ActiveDocument.Layouts.Item(a).Name;
  end;
  AutoCAD.ActiveDocument.Plot.SetLayoutsToPlot(layouts);
  WinExec('wscript.exe "D:\Program Files\Borland\Delphi7\Projects\PDF\dlg.js" "d:\test\test.pdf"',SW_SHOWNORMAL);
  AutoCAD.ActiveDocument.Plot.PlotToDevice('Adobe PDF.pc3');
  AutoCAD.ActiveDocument.Close(True,'D:\doc.pdf');
  AutoCAD.Quit;
end;

Точно! у меня тоже выскочила ошибка как и у тебя,
если объявить AutoCAD как Variant. Сделай его IacadApplication и AutoCAD:=CreateOleObject('AutoCAD.Application') as iacadapplication; как в моём примере.

Мда...не то это - всё равно по одному layout'ы печатаются. Значит, придётся в акробате склеивать (хотя я вот попробовал - ошибок не наблюдал, но ничего и не склеилось).

Ну я написал процедуру для склеивания. Кому интересно:

procedure MergePages(name: strg; n: integer); //name - имя выходнонго файла, n - число layout'ов
var
  AcroApp: Variant;
  PDDoc: Variant;
  InsertPDDoc: Variant;
  iNumberOfPagesToInsert: Integer;
  iLastPage: Integer;
  i: integer;
begin
  AcroApp:=CreateOleObject('AcroExch.App');
  PDDoc:=CreateOleObject('AcroExch.PDDoc');
  InsertPDDoc:=CreateOleObject('AcroExch.PDDoc');
  AcroApp.Hide;
  PDDoc.Create;
  for i:=1 to n do
  begin
    InsertPDDoc.Open('D:\test\'+inttostr(i)+'.pdf'); //здесь указана временная папка, куда автокад печатает layout'ы (он их называет 1.pdf,2.pdf,...)
    iLastPage:=PDDoc.GetNumPages-1;
    iNumberOfPagesToInsert:=InsertPDDoc.GetNumPages;
    PDDoc.InsertPages(iLastPage,InsertPDDoc,0,iNumberOfPagesToInsert,False);
    InsertPDDoc.Close;
  end;
  PDDoc.Save(1,name);
  PdDoc.Close;
end;

Теперь проблема в другом - не все layout'ы умещаются на своих страницах. Может кто-нибудь сталкивался и решал эту проблему?
Кстати, выражаю благодарность Илье - после импорта всё заработало.