Печать pdf ShellEx,CreateProcess

[Stat_ya]

Здравствуйте,знатоки!

Существует ряд проблем с печатью pdf в Delphi. Имеется чужая удаленная сессия, в которую отсылается печать(перенаправления и тд).
Необходимо осуществить корректную печать без диалоговых окон,без открытия самого файла на выбранный/указанный принтер, без использования принтера по умолчанию. (драйвера на принтера установлены у обеих сторон)

Пробовались варианты:

1) ShellExecute с 'printto', 'open' через acrord32 с параметрами PChar('/N /T ' + File_Name + ' ' + printerinfo).
На 7ой винде печать проходит с редким успехом. На более поздних версиях ShellExecute возвращает код 42 и файл отправляется на печать в небытие. Причем,если даже использовать команду 'print',то печати на принтер по умолчанию не произойдет.

2) Всячески пыталась вызвать печать через CreateProcess также через акробат. Ничего не выходит с правильным заполнением параметров. Если имеется пример печати,можно ли Вас просить об услуге показать.

3) Единственный вариант работающей печати по удаленке на определнный принтер есть не для pdf,а для команд на принтер штрикодов, но модифицировать его вряд ли возможно под печать файла:

function ToriPrintDOS ( aMemo: TMemo ): Boolean;    //для печати штрихкода
var I         : Integer ;
    TmpCursor : TCursor ;
    fPrinterHandle: THandle ;
    fDevice, fDriver, fPort:array [0..80] of char;
    {$IFDEF WIN32}
    fDocInfo : PDocInfo1A;
    plen:dword;
    {$ENDIF}
    fNamePr : String ;
begin
  {$IFDEF WIN32}
  fNamePr :=  PRCODEINV; //на принтер инвитро
  GetMem(fDocInfo,SizeOf(TDocInfo1A));
  TmpCursor    := Screen.Cursor ;
  Screen.Cursor := crHourGlass    ;
  try
    Printer.GetPrinter ( fDevice,
                         fDriver,
                         fPort ,
                         fPrinterHandle ) ;
    OpenPrinter ( fDevice, fPrinterHandle, nil ) ;
    try
      fDocInfo^.pDocName    := PChar ( fNamePr ) ;
      fDocInfo^.pOutPutFile := nil ;
      fDocInfo^.pDatatype   := nil ;
      StartDocPrinter ( fPrinterHandle, 1, fDocInfo ) ;
      for I := 0 to aMemo.Lines.Count - 1 do
      begin
       WritePrinter ( fPrinterHandle,
                      PChar(aMemo.Lines[I]),
                      Length(aMemo.Lines[I]),
                      plen ) ;
       WritePrinter ( fPrinterHandle,
                      PChar(#13#10),
                      2,
                      plen ) ;
      end ;
      WritePrinter ( fPrinterHandle,
                     PChar(#13#10),
                     2,
                     plen ) ;
      EndDocPrinter ( fPrinterHandle ) ;
    finally
      ClosePrinter ( fPrinterHandle ) ;
    end ;
  finally
    FreeMem(fDocInfo);
    Screen.Cursor := TmpCursor ;
  end ;
  {$ENDIF}
end ;

Найдется ли у Вас совет или решение?