Вывод изображений на печать

{*******************************************************************************
  HiAsm stamp component builder v0.8 (autor - andrestudio <andrestudio@list.ru>)
  Component - PrintImages
  Version - 1.0
  Autor - andrestudio
  E-mail - andrestudio@list.ru
  Create - пятница, 23. Июнь 2017, 16:45:37
  Description:  Печать изображений по списку с помощью мастера печати
*******************************************************************************}

unit HiAsmUnit;

interface

uses Windows,Kol,Share,Debug,KOLComObj,ActiveX;

type

 THiAsmClass = class(TDebug)
   private

   public
   { Data points}
     { Список изображений для вывода на печать }
     ImagesPath: THI_Event;

   { Methods }
     { Открывает мастер печати изображений }
     procedure doPrintImages(var dt: TData; idx: Word);

  end;

implementation

{ Открывает мастер печати изображений }
procedure THiAsmClass.doPrintImages;
var
  CommonDlg: OleVariant;
  ImgCollection: OleVariant;
  ImgLstPath: PStrList;
  i: integer;
begin
  ImgLstPath := NewStrList;
  ImgLstPath.Text := ToStringEvent(ImagesPath);
  CommonDlg := CreateOleObject('WIA.CommonDialog');
  ImgCollection := CreateOleObject('WIA.Vector');
  for i := 0 to ImgLstPath.Count-1 do
  begin
    ImgCollection.Add(ImgLstPath.Items);
  end;
  CommonDlg.ShowPhotoPrintingWizard(ImgCollection);
  VariantClear(ImgCollection);
  VariantClear(CommonDlg);
  ImgLstPath.Free;
end;

initialization
  OleInit;
  CoInitialize(nil);

finalization
  CoUninitialize();

end.