Вверх ↑
Ответов: 125
Рейтинг: 0
#1: 2008-08-16 10:16:05 ЛС | профиль | цитата
Сделал блок печати. Не пробовал на рулонном принтере, а на обычном есть неприятность - каждая копия печатается на новом листе бумаги.

#sha
Add(Memo,12980789,245,112)
{
Left=3
Top=50
Width=715
Height=500
ParentFont=0
Point(SelText)
link(FileName,4942225:Value,[])
}
Add(Button,5171328,203,336)
{
Left=6
Top=25
Width=225
Font=[Courier New,10,0,0,204]
Caption="ПЕЧАТЬ ВЫДЕЛЕННОГО ТЕКСТА"
link(onClick,13452048:doFor,[])
}
Add(Hub,642401,175,49)
{
OutCount=5
link(onEvent2,4942225:doValue,[])
link(onEvent3,12980789:doLoad,[(228,69)(228,146)])
}
Add(Memory,4942225,252,56)
{
}
Add(Printer,2239600,266,189)
{
link(Text,12980789:SelText,[(272,180)(272,180)])
}
Add(UpDown,1719156,266,238)
{
Left=535
Top=20
Height=25
Min=1
Position=1
link(onPosition,9900896:doText,[(311,244)(311,280)(254,280)(254,293)])
}
Add(Label,16720928,168,168)
{
Left=335
Top=25
Width=121
Height=17
Caption="КОЛИЧЕСТВО КОПИЙ"
}
Add(Edit,9900896,266,287)
{
Left=475
Top=25
Text="1"
DataType=2
link(Str,1719156:Position,[])
}
Add(For,13452048,259,336)
{
Start=1
link(onEvent,2239600:doPrint,[(320,342)(320,268)(254,268)(254,195)])
link(End,9900896:Text,[])
}

карма: 1

0