Размноженная печать с Image'a

[TNG]

Я уже поднимал эту тему, но мне так и необьяснили как можно сделать такую вещь:
У меня есть Image с рисунком. задача - напечатать 10 штук на одном листе, так, как печатают визитки. т.е. от левого края отступ, от правого, между ними отступ и т.д. Я уже заколебался, но че-то ни фига не фыходит, может сейчас кто поможет? Размеры на листе такие же, как визитки печатают.

[SSecurity]

я не пробовал, но мне приходит на ум такая вещь:

Код: Выделить всё

printer.StartDoc
for i=0 to 1
  For j=0 to 4
   printer.CurrentX = 20 + (Image1.Width+20)* I
   printer.CurrentY = 20 + (Image1.Height+10)* J
   printer.PaintPicture Image1.picture
  Next j
Next i
printer.endDoc


не пробовал, но printer.ScaleMode = 6 (кажется миллиметры)

[TNG]

Посибо, попробую - скажу как получилось!