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

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

Код:

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 канву на экране не нарисуешь (ни в один экран не влезет), нужно масштабировать, только КАК? Если это вообще возможно.
Поможите, кто может!