spas2001,

long ll_copies
s_printjob lstr_print
w_vivz_docum lw_sheet

lw_sheet = This.of_get_sheet('w_vivz_docum')

if IsValid(lw_sheet) then
if ib_printsetup then
OpenWithParm(etfc_w_print, ii_copies)
if not IsValid(Message.PowerObjectParm) then
if not ib_viewenable then
Close(lw_sheet)
end if
Return
end if
lstr_print = Message.PowerObjectParm
if lstr_print.b_collate then
lw_sheet.dw_vivz_docum.Object.DataWindow.Print.Collate = "Yes"
else
lw_sheet.dw_vivz_docum.Object.DataWindow.Print.Collate = "No"
end if
lw_sheet.dw_vivz_docum.Object.DataWindow.Print.Copies = lstr_print.i_copies
lw_sheet.dw_vivz_docum.Object.DataWindow.Print.Page.Range = lstr_print.s_range
lw_sheet.dw_vivz_docum.Object.DataWindow.Print.Page.RangeInclude = lstr_print.i_include
else
lw_sheet.dw_vivz_docum.Object.DataWindow.Print.Copies = ii_copies
end if
//НАЧАЛО
if lw_sheet.dw_vivz_docum.DataObject = 'data_w_nakl' then
lw_sheet.dw_vivz_docum.Object.DataWindow.Print.Copies = 1
ll_copies = 1
do while ll_copies <= lstr_print.i_copies
data_w_nakl.Modify("copy_num.text = ~'" + string(ll_copies) + "~'")
lw_sheet.dw_vivz_docum.Print(True)
ll_copies++
loop
else
lw_sheet.dw_vivz_docum.Print(True)
end if
//КОНЕЦ

if ib_closereport then
Close(lw_sheet)
end if
end if