Скачать: CL | DM;

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

← →
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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.029 c