fibdev
asked on
Can't get PrintScale to work
Hi,
I've said this, I don't know how many times, but I'm sorta' a novice with Delphi.
How do I get this to work?
(From the Delphi Help Files)
type TPrintScale = (poNone, poProportional, poPrintToFit);
property PrintScale: TPrintScale;
Question is, how do I impliment it with this?
procedure TForm1.Print1Click(Sender: TObject);
begin
with Printer do
begin
PrintScale := poProportional;
BeginDoc; { start printing }
Canvas.Draw(0, 0, Image1.Picture.Bitmap); { draw Image at top left corner of printed page }
EndDoc; { finish printing }
end;
end;
I've said this, I don't know how many times, but I'm sorta' a novice with Delphi.
How do I get this to work?
(From the Delphi Help Files)
type TPrintScale = (poNone, poProportional, poPrintToFit);
property PrintScale: TPrintScale;
Question is, how do I impliment it with this?
procedure TForm1.Print1Click(Sender:
begin
with Printer do
begin
PrintScale := poProportional;
BeginDoc; { start printing }
Canvas.Draw(0, 0, Image1.Picture.Bitmap); { draw Image at top left corner of printed page }
EndDoc; { finish printing }
end;
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