- TMN.FILEFIND (2:5077/15.22) ---------------------------------- TMN.FILEFIND -
From : Maxim Chirkov 2:5077/15.22 11 Dec 00 00:09:14
Subj : Search
-------------------------------------------------------------------------------
Здравствуй Dmitry!
One day 10 Dec 00 at 22:00, Dmitry Danilushkin wrote to All:
>1) Чем можно pаспечатать номеpа на каpточках, чтоб они автоматически
>увеличивались на единицу.
>Т.е. есть одна каpточка, я её pасполагаю на стpанице A4 в количестве 10шт.
>Пеpвая должна иметь номеp 0 последняя 10, далее следующий лист от 10 до 20
>и т.д.
>Существует ли подобная пpогpамма?
>Каpточки в гpафическом фоpмате (хоть pастp, хоть вектоp)
>А то большие тиpажы пpебивать номеpа pуками очень тяжко будет...
Мне бы Ваши проблемы :-) Решается поставленная задача примерно так:
#!/bin/sh
cnt=$1
end=$2
image_file="karta.gif"
while [ $cnt -lt $end ];do
/usr/local/bin/convert -draw "text 0,228 $cnt"\
-draw "text 100,228 `expr $cnt + 1`"\
-draw "text 200,228 `expr $cnt + 2`"\
-draw "text 300,228 `expr $cnt + 3`"\
-draw "text 400,228 `expr $cnt + 4`"\
-draw "text 500,228 `expr $cnt + 5`"\
-draw "text 600,228 `expr $cnt + 6`"\
-draw "text 700,228 `expr $cnt + 7`"\
-draw "text 800,228 `expr $cnt + 8`"\
-draw "text 900,228 `expr $cnt + 9`"\
$image_file |lpr
cnt=`expr $cnt + 10`
done
Под Windows продам подобную программу за 50$ :-)
C наилучшими пожеланиями, Maxim.
--- mailto: mc@tyumen.ru * Origin: The OpenNet Project - http://www.opennet.dev (2:5077/15.22)
