thegroover
asked on
drawing not printed
Hi,
I have a form with some drawing on it (using LineTo();) and I'd like to print it, but when I call form1.print, I see just the empty form without the lines. Why is that and how can I resolve it?
thanks in advance
G
I have a form with some drawing on it (using LineTo();) and I'd like to print it, but when I call form1.print, I see just the empty form without the lines. Why is that and how can I resolve it?
thanks in advance
G
ASKER
didn't work, here is the source:
procedure TForm1.printfrm;
var FormImage: TBitmap;
begin
FormImage:=GetFormImage;
print;
end;
procedure TForm1.printfrm;
var FormImage: TBitmap;
begin
FormImage:=GetFormImage;
print;
end;
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
ASKER
this will do it, thanks
GetFormImage(): TBitmap;
to get form imege to TBitmap class, then print it.