Проблема печати картинки на принтере!

← →
Gennadiy © (2005-11-12 18:22) [0]

Добрый вечер!!!
Стоит такая задача!!!, нужно отправлять файл JPg, на принтер, но необходимо чтобы картинка данного файла распечатывалась во весь лист. Ниже приведен код, который работает и печатает, но проблема в том что делает очень медленно, как можно ускорить этот процесс?
procedure TForm1.Button1Click(Sender: TObject);
var
PrintDlg: TPrintDialog;
MyJpeg:TJpegImage;
Pic:TBitmap;
SFileVhod:String;
begin
SFileVhod:="D:\073.jpg";
PrintDlg:=TPrintDialog.Create(Owner);
if PrintDlg.Execute then
begin
MyJpeg:= TJpegImage.Create;
Pic:=Graphics.TBitMap.Create;
MyJpeg.LoadFromFile(SFileVhod);
Pic.Assign(MyJpeg);
Printer.BeginDoc;
Printer.Canvas.Refresh;
Printer.Canvas.StretchDraw(Printer.Canvas.ClipRect, Pic);
Printer.EndDoc;
MyJpeg.Free;
Pic.Free;
end;
end;
PrintDlg.Free;
end;

← →
TStas © (2005-11-12 20:18) [1]

Если картинку на форму посадить, печатается она быстро через метод Print

Проблема печати картинки на принтере! Найти похожие ветки