[Помидоркин]

Не знаю, как подступиться к задаче, задача следующая: есть ListBox.Items его нужно распечатать на одном листе А4 Items.Count ~ 100 - 200, строчки короткие ~ 150px (программы для "Электроника" НЦ-31, если кто знает) т.е. печатать надо в несколько колонок.
Сразу оговорюсь - про фаст, кристал, фри и т.д. репорты знаю, не подходит.
На данный момент написал процедуру вывода на канву колонок:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33

procedure KodDraw(Canva: TCanvas); var im, istr, MaxWidth: Word;     H, FramsOfCol, cn, sn, colInt, strInt, lf, tf: Byte; begin with Canva do begin  Brush.Color:= clWhite; Pen.Color:= clBlack; Pen.Width:=1;  istr:= 0;  cn:=0;  Font.Size:= frmKodPrint.edtFontSize.Value;  //Размер шрифта  colInt:= frmKodPrint.edtCol.Value;          //Интервал колонки  strInt:= frmKodPrint.edtStr.Value;            // строки  lf:= frmKodPrint.edtLeftField.Value;          // поля, левое  tf:= frmKodPrint.edtTopField.Value;          //правое  H:= TextHeight(Kod[0]);        //высота  MaxWidth:=0;  for im := 0 to Kod.Count-1 do  //вычисляю ширину   begin    if TextWidth(Kod[im])>MaxWidth then MaxWidth:= TextWidth(Kod[im]);   end;  FramsOfCol:= frmKodPrint.PaintBox1.Height Div (H+strInt);   while istr < Kod.Count do                          //Рисую колонки begin  for sn := 0 to FramsOfCol-1 do  begin   if istr = Kod.Count then Exit;   TextOut(cn*(MaxWidth+colInt)+lf, sn*(H+strInt)+tf , Kod[istr]);   istr:= istr+1;  end;  cn:=cn+1;  MoveTo (cn*(MaxWidth+colInt)+lf-4, 0);                //разделители между колонками  LineTo(cn*(MaxWidth+colInt)+lf-4, ClipRect.Bottom); end;   end; end;

с помощью SpinEdit-ов меняю размер шрифта, интервал между колонками, строками и.т. , короче вписываю в канву. При изменении любого из спинэдитов перерисовывается канва.
Все как надо.
А дальше
В общем мысль такая: с помощью GetDeviceCaps получаю размер канвы принтера (при минимальных полях), рисую туда свои строчки... а вот здесь
Надо предпосмотреть что получается, 1:1 канву на экране не нарисуешь (ни в один экран не влезет), нужно масштабировать, только КАК? Если это вообще возможно.
Поможите, кто может!