تنظیم حاشیه پرینت به وسیله ی Page Setup Dialog

[younes221]

سلام دوستان امیدوارم حالتون خوب باشه ،

چطور میشه حاشیه پرینت رو به وسیله ی Page setup تنظیم کرد خودم از کد زیر استفاده میکنم ولی اشتباهه به نظرتون اشکال از کجاست ؟


procedure TForm1.Button1Click(Sender: TObject);
Var Lines:integer;
Var PageSetup:TPageSetupDialog;
Var Counter:integer;
begin
PageSetup:=TPagesetupdialog.create(Form1);
if pagesetup.execute then Begin

Printer.BeginDoc;

Printer.canvas.font.name:='Tahoma';
Printer.canvas.font.size:=10;
Printer.canvas.font.color:=clBlack;

lines:=Pagesetup.MarginTop;

for counter := 0 to listbox1.items.count-1 do Begin
lines:=lines+abs(Printer.canvas.font.height);
Printer.canvas.TextOut(PageSetup.MarginLeft,lines, listbox1.Items[Counter]);
if lines>=printer.PageHeight then Begin
lines:=PageSetup.margintop;
printer.newpage;
End;
End;
Printer.EndDoc;
End;
end;