procedure THIPrinter._work_doPrint;
var re:PControl;
    dt:TData;
    cm:TRect;
begin
   with Printer{$ifndef F_P}^{$endif} do 
    begin
      Title := _prop_Title;
      Copies := 100; // <====================
      if System.Assigned(_data_Text.Event) or not System.Assigned(_data_RichEdit.Event) then
       begin
         BeginDoc;
         WriteLn(ReadString(_Data,_data_Text,''));
         _hi_OnEvent(_event_onPrint, integer(Handle));
         EndDoc;
       end
      else 
       begin
         dt := ReadData(_Data,_data_RichEdit,nil);
         if Dt.sdata = 'RichEdit' then 
          begin
            re := pointer(Dt.idata);
            RE_Print(re);
          end;
       end;
    end;
end;

procedure THIPrinter._work_doCopies;
begin
  Copies := max(1, ToInteger(_Data)); 
  Printer.Copies := Copies;
end;

Add(MainForm,7302977,483,301)
{
 Width=944
 Height=609
}
Add(Memo,15483007,889,336)
{
 Left=10
 Top=20
 Width=305
 Height=125
 Strings=#41:Съешь ещё этих мягких французских булок, |15:да выпей же чаю|
}
Add(Label,13388471,483,252)
{
 Left=15
 Top=160
 Width=70
 Height=17
 Caption="кол.во копий"
}
Add(Button,8394074,497,406)
{
 Left=155
 Top=155
 Width=160
 Height=50
 Caption="Print"
 link(onClick,16078791:doDeferredEvent,[(647,412)(647,391)])
}
Add(DeferredEvent,16078791,693,385)
{
 Delay=21
 InData=0
 link(onDeferredEvent,16005317:doFor,[])
}
Add(Printer,510874,903,462)
{
 Point(doSettings)
 Point(doPrintDlg)
 Point(doCopies)
 link(Text,15483007:Text,[(909,422)(895,422)])
}
Add(For,16005317,784,385)
{
 Start=1
 link(onEvent,510874:doPrint,[(860,391)(860,468)])
 link(End,3829279:Text,[(797,349)(804,349)])
}
Add(Edit,3829279,798,280)
{
 Left=20
 Top=185
 Text="0"
 DataType=1
}

Add(MainForm,2953706,21,105)
{
 Height=492
 link(onCreate,3594548:doEvent1,[])
}
Add(Registry,16114156,210,224)
{
 HKey=1
 Key="Printers\DevModePerUser"
 Point(onEnumValue)
 Point(onEnumKey)
 Point(doEnumValues)
 link(onEnumValue,6261126:doAdd,[])
}
Add(Hub,5859765,161,273)
{
 OutCount=4
 link(onEvent1,6261126:doClear,[(266,279)(266,244)])
 link(onEvent2,16114156:doEnumValues,[(203,286)(203,244)])
}
Add(ListBox,6261126,322,231)
{
 Left=5
 Top=155
 Width=380
 Height=200
 DataType=1
 Point(String)
 Point(doSelectString)
}
Add(Label,5236431,322,77)
{
 Left=10
 Top=25
 Width=103
 Height=17
 Caption="Принтер не выбран"
}
Add(InfoTip,16129091,133,189)
{
 Info=#25:Просмотр - выбор принтера|
 Width=337
 Height=165
}
Add(Registry,2665837,609,245)
{
 HKey=1
 Key="Software\Microsoft\Windows NT\CurrentVersion\Devices"
 link(onRead,14187175:doString,[])
 link(Value,15760165:Var2,[])
}
Add(Registry,8651221,777,238)
{
 HKey=1
 Key="Software\Microsoft\Windows NT\CurrentVersion\Windows"
 Value="Device"
 Point(onEnumValue)
 Point(onEnumKey)
 Point(doEnumValues)
 link(Data,12323634:Value,[(783,226)(751,226)(751,289)(720,289)])
}
Add(Memory,12323634,714,245)
{
 link(onData,8651221:doWrite,[])
}
Add(FormatStr,14187175,672,245)
{
 Mask="%1,%2"
 link(onFString,12323634:doValue,[])
 link(Str1,15760165:Var3,[(678,220)])
}
Add(GetDataEx,15760165,623,215)
{
 Angle=3
 link(Data,6261126:String,[(488,220)(488,295)(349,295)])
}
Add(Button,15926929,497,245)
{
 Left=5
 Top=360
 Width=285
 Caption="Установить по умолчанию"
 link(onClick,3921436:doEvent1,[])
}
Add(InfoTip,11045398,518,189)
{
 Info=#31:Установить принтер по умолчанию|
 Width=337
 Height=165
}
Add(Registry,6008923,203,70)
{
 HKey=1
 Key="Software\Microsoft\Windows NT\CurrentVersion\Windows"
 Value="Device"
 Point(onEnumValue)
 Point(onEnumKey)
 Point(doEnumValues)
 link(onRead,4341045:doSplit,[])
}
Add(StrPart,4341045,252,70)
{
 Char=","
 link(onPart,5236431:doText,[])
}
Add(Hub,3594548,84,119)
{
 OutCount=4
 link(onEvent1,5600320:doWork2,[(150,125)(150,76)])
 link(onEvent4,5859765:doEvent1,[(130,146)(130,279)])
}
Add(Label,14952544,203,28)
{
 Left=10
 Top=5
 Width=121
 Height=17
 Caption="Принтер по умолчанию"
}
Add(Hub,3921436,553,245)
{
 link(onEvent1,2665837:doRead,[])
 link(onEvent2,5600320:doWork3,[(579,258)(579,168)(172,168)])
}
Add(HubEx,5600320,168,70)
{
 link(onEvent,6008923:doRead,[])
}