请教打印图片的问题？急急！！

Question

请问如何在DELPHI  6中打印图片，并且要求在打印之前先打开打印机的设置窗口进行纸张，打印质量等的设定。然后按打印才进行打印图片操作。希望高手帮忙！！！！

Answer 1

http://expert.csdn.net/Expert/topic/2155/2155919.xml?temp=.4266321

Answer 2

http://218.56.11.178:8000/web/file_Down.aspx

Answer 3

用 TPrintDialog组件不可以吗？

Answer 4

procedure TForm1.Button1Click(Sender: TObject);
var
  scalex,scaley : integer;
  r : Trect;
begin
  printer.BeginDoc;
  with printer do
  begin
  try
    scalex := GetDeviceCaps(handle,logPixelsx) div pixelsperInch;
    scaley := GetDeviceCaps(handle,logpixelsy) div pixelsperinch;
    r := Rect(0,0,image1.picture.width*scalex,image1.picture.height*scaley);
    Canvas.StretchDraw(r,Image1.Picture.Graphic);
  finally
    EndDoc;
  end;
  end;end;