為什麼Printer.Canvas.TextOut(151,350,DBImage1)這樣的語句有錯，請高手指點，在線等，分不夠再加，謝謝!!

Question

我在用畫布打印報表時，因為有一個圖片，我用Printer.Canvas.TextOut(151,350,DBImage1)卻運行不了，現想請教要打印圖片要怎樣寫。謝謝，

Answer 1

我用Printer.Canvas.StretchDraw(canvas.ClipRect,dbimage1.Picture.Bitmap);找印出來的圖象為什麼與顯示的不是一樣大，這是為什麼？那位大俠能幫我解決，在此先謝過啦

Answer 2

那用Printer.Canvas.Draw呢？其实我也没做过，呵呵

Answer 3

X := GetDeviceCaps(Handle, logPixelsX) div PixelsPerInch;
Y := GetDeviceCaps(Handle, logPixelsY) div PixelsPerInch;
R := Rect(300,300,dbimage1.Picture.Width*x+100,dbimage1.Picture.Height*y+100);
Printer.Canvas.StretchDraw(R,dbimage1.Picture.Bitmap);
我用上在的語句為什麼找印出來圖片旋轉了180度，成了倒的圖像，這是為什麼，我把坐標都換啦，它就是不轉過來，請高手指點。