Yazdırma sorunu

[Arifceylan28]

Selam arkadaşlar.örneğin 1 den 10 a kadar olan sayıları yazıcıdan çıktı almak istiyorum ve şöyle bir kod yazdım.Fakat kağıda sadece 1 sayısını aktarıyor.Sorun nerde acaba?Saygılar.


var
satir,i:integer;
begin
printer.begindoc;
satir:=0;
for i:=1 to 10 do
begin
printer.canvas.textout(15,satir,inttostr(i));
satir:=satir+printer.pageheight;
end;
printer.enddoc;
end;

......Üniversite sınavına girenlerin puanlarının hayırlı olması dileğiyle....

[aslangeri]

S.A.

Kod: Tümünü seç

satir:=satir+printer.pageheight;

satırı pageheight kadar arttırırsan yazdırılacak alanın dışına çıkar bir sonraki sayfanın sınırına girer.
sanırım problem burda.
önce sabit değer mesala 50 arttır. sonucu gör. problem bu ise ona göre çözüm bulabilirsin.
Kolay gelsin.

[Arifceylan28]

aslangeri sağolun bi deneyeyim haber veririm.

[Arifceylan28]

Aslangeri denedim ve oldu çok teşekkür ederim.
Ayrıca printer.pageheight yerine printer.canvas.font.height kodunu kullanmam gerekiyordu.Burda bi hata yapmışım.Sonradan anladım.