Topic: печать изображения
принтер в трее отображается, очередь занята(но везуально пусто) и на печать не выводиться
procedure frmComDoc_bPrint_OnClick (Sender: TObject; var Cancel: boolean);
var
printDialog:TPrintDialog;
Printer:TPrinter;
Canvas:TCanvas;
Image:TImage;
begin
Printer:=TPrinter.Create;
Canvas:=TCanvas.Create;
Image:=TImage.Create(frmComDoc);
Image.Picture.LoadFromFile(frmComDoc.dbImage.dbFileName);
printDialog := TPrintDialog.Create(frmComDoc);
if printDialog.Execute then
begin
With Printer do Begin
Printer.BeginDoc;
Printer.Canvas.StretchDraw(0,0,PageHeight,PageWidth,Image.Picture.Graphic);
Printer.EndDoc;
end;
end;
end;