打印Image里面的图形(50分)

W

wallysw

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-10-06

• #1

各位大虾，小弟将一些表格画上Image的画布上面，但我现在想打印Image上的图，怎么打印啊？我用过
printer.begin
doc;
printer.canvas.StretchDraw(printer.ClipRect, image1.Picture.Bitmap);
printer.enddoc;
但打印出来的效果很差，模糊。哪位能帮帮忙吗？怎么才能使打印的效果好一点。

 

Z

zywcd

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-10-06

• #2

你是不是缩放了?按照原始大小打印试试.
如果你想放大,应该考虑比例,长宽放大比例一致 .
var rect:TRect;
begin
rect.Left:=0;
//定义打印位置.
rect.Top:=0;
rect.Right:=Image1.Width;
rect.Bottom:=Image1.Height;
printer.begin
doc;
printer.canvas.StretchDraw(rect,Image1.Picture.Graphic);
printer.enddoc;
end;

 

W

wallysw

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-10-06

• #3

我放大和不放大都一样的模糊啊，我放大的时候，我是把画布放大，然后重画表格的，这个应该不影响吧。

 

W

wallysw

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-10-06

• #4

你的这种方法我也试过了，打印出来只是居左上角，只有一个小小的图形。

 

W

wallysw

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-10-06

• #5

唉，没人帮解决吗？

 

Z

zywcd

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-10-06

• #6

放大了,当然会模糊吧,如果你只是为了打印表格,可以使用报表软件打印,效果会很好.比如qr,fr.

 

L

liyong0775

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-10-06

• #7

直接画到打印对象Canvas

 

W

wallysw

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-10-06

• #8

多人接受答案了。