Add(MainForm,2953706,98,105)
{
 Width=533
 Height=179
 link(onCreate,14111122:doEvent1,[])
}
Add(Registry,13844032,203,161)
{
 HKey=1
 Key="SOFTWARE\Microsoft\Windows NT\CurrentVersion\Windows"
 Value="Device"
 link(onRead,16260798:doSplit,[])
}
Add(FormatStr,8608423,336,168)
{
 DataCount=1
 Mask="Принтер по умолчанию: %1"
 link(onFString,2953706:doCaption,[(382,174)(382,97)(88,97)(88,111)])
}
Add(MultiStrData,16260798,252,161)
{
 Char=","
 Count=1
 link(onPart1,1115429:doEvent1,[])
}
Add(Hub,14111122,140,119)
{
 link(onEvent1,15972268:doEnumKeys,[])
 link(onEvent2,8546741:doEvent1,[(165,132)(165,167)])
}
Add(Registry,15972268,182,105)
{
 HKey=2
 Key="SYSTEM\CurrentControlSet\Control\Print\Printers"
 Point(doEnumKeys)
 Point(onEnumKey)
 link(onEnumKey,8061982:doAdd,[])
}
Add(ComboBox,8061982,343,112)
{
 Left=20
 Top=35
 Width=250
 Height=21
 Text=""
 DataType=1
 Point(doSelectString)
 link(onClick,279962:onWork,[])
}
Add(Hub,1115429,294,161)
{
 link(onEvent1,8061982:doSelectString,[(319,167)(319,146)])
 link(onEvent2,8608423:doString,[])
}
Add(VBJScript,279962,399,119)
{
 @Hint=#7:SendKey|
 WorkPoints=#6:onWork|
 EventPoints=#7:onEvent|
 Script=#23:Sub doWork(Data, Index)|51:   Set objNetwork = CreateObject("WScript.Network")|36:   objNetwork.SetDefaultPrinter Data|19:   sys.onEvent Data|7:End Sub|
 UseName=0
 link(onEvent,8546741:doEvent2,[(438,125)(438,209)(165,209)(165,174)])
}
Add(Hub,8546741,175,161)
{
 InCount=2
 OutCount=1
 link(onEvent1,13844032:doRead,[])
}
Add(Label,14957794,84,35)
{
 Left=20
 Top=15
 Caption="Выбрать принтер для печати"
}
Add(Label,14911145,130,37)
{
 Left=20
 Top=65
 Width=135
 Height=17
 Caption="Выбрать файл для печати"
}
Add(Edit,547071,182,294)
{
 Left=20
 Top=90
 Width=230
 Text=""
}
Add(Button,6958063,77,301)
{
 Left=250
 Top=90
 Width=20
 Caption=">>"
 link(onClick,4386549:doExecute,[])
}
Add(ODialog,4386549,126,301)
{
 Filter="PDF|*.pdf|All|*.*"
 link(onExecute,547071:doText2,[])
}
Add(Button,8930233,77,364)
{
 Left=305
 Top=90
 Caption="Печатать"
 link(onClick,1775550:doShellExec,[])
}
Add(WinExec,1775550,182,357)
{
 Action="print"
 Point(onErrorExec)
 link(FileName,547071:Text,[])
}