procedure TForm1.Stampa2Click(Sender: TObject);
var
r: TRect;
i: Integer;
begin
if PrintDialog1.Execute then
with Printer do
begin
r := Rect(200,200,(Pagewidth - 200),(PageHeight - 200));
BeginDoc;
Canvas.TextOut( 20,20, HzOver.caption);
EndDoc;
end;
end;
ma mi da questo errore:
[Error] Unit1.pas(81): Undeclared identifier: 'Printer'