Печать из файла

[The Best]

Я в своей программе написал печать данных, но у меня проблема: Как определить размеры символов. Я думал, что если размер шрифта 14, то это 14х14 пикселов, но оказалось - нет. И ещё, как определить межстрочный интервал для печати? Зарание спасибо..

[Neeter]

А как вы печатаете? На объекте TPrinter?

Я думал, что если размер шрифта 14, то это 14х14 пикселов, но оказалось - нет

Каждый символ имеет разную длину. Чтобы узнать длину какого-либо текста или просто символа в пикселах, примерно надо писать так:

tw := Printer.Canvas.TextWidth('text');

Для высоты:

th := Printer.Canvas.TextHeight('text');

как определить межстрочный интервал для печати?

Тут не знаю, смотря как вы печатаете. Можно методом тыка.

[The Best]

Вот часть кода из процедуры печати:

dpiX := GetDeviceCaps(Printer.handle,LOGPIXELSX);
dpiY := GetDeviceCaps(Printer.handle,LOGPIXELSY);
kx := dpiX / Screen.PixelsPerInch;
ky := dpiY / Screen.PixelsPerInch;
px := Round(LEFT_MARGIN / 2.54 * dpiX);
py := Round(TOP_MARGIN  / 2.54 * dpiY);

if printdialog1.Execute then
 with printer do
  begin
   begindoc;
   try
    for I:=1 to filesize(*) do
     begin
      canvas.TextOut(px,py+200+500*(i-1),*);
      canvas.TextOut(144+px,py+200+500*(i-1),**);
      canvas.TextOut(650+px,py+200+500*(i-1),***);
      for j:=1 to 5 do
       begin
        canvas.TextOut(950+px,py+200+500*(i-1)+100*(j-1),inttostr(*[j].*));
        canvas.TextOut(1230+px,py+200+500*(i-1)+100*(j-1),inttostr(*[j].*));
        canvas.TextOut(1780+px,py+200+500*(i-1)+100*(j-1),inttostr(*[j].*));
        canvas.TextOut(2220+px,py+200+500*(i-1)+100*(j-1),inttostr(*[j].*));
       end;
     end;
   finally
    if printing then
     enddoc;
   end;

Neeter, спасибо)
PS: Межстрочный интервал мне просто для интереса, чтобы знать)