Ну например так...

lp_JobName = dw_pp.ClassName()
if dw_pp.Tag <> "" then
lp_JobName = lpdw_Data.Tag
end if
lp_Job = PrintOpen(lp_JobName)
PrintDataWindow(lp_Job,dw_pp)
PrintClose(lp_Job)