[listerine]

как можно распечатать N снимков средствами windows? В проводнике выбираешь например 5 фотографий ПКМ и печать и открывается окно "Печать изображений" (Win7). Как это сделать программно?

[NumLock]

BitBlt на канву принтера

[listerine]

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

BitBlt на канву принтера

Прошу прощения, но я не понял вас. Можно подробнее?

[NumLock]

Код:

uses
  Printers,
...
var
  ABitmap: TBitmap;
begin
  Printer.BeginDoc;
  ABitmap:=TBitmap.Create;
  ABitmap.LoadFromFile('d:\Картинки\I.bmp');
  Printer.Canvas.StretchDraw(Rect(
    Printer.PageWidth div 4, Printer.PageWidth div 4,
    Printer.PageWidth div 2, Printer.PageWidth div 2), ABitmap);
  ABitmap.Free;
  Printer.EndDoc;
end;

[lmikle]

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

BitBlt на канву принтера

Это если самому печатать.
Вызват готовую программу, то смотри что в реестре на пункт печати повешено...

[bublic1337]

АЗАЗАЗАЗАЗ