При формировании отчета в TIFF-файл, с помощью ReportListener, в результате получаю файл только с последней страницей отчёта.
Делаю всё как-то так:
[code]LOCAL loListener AS ReportListener, loPreview AS Form
THIS.DeviceType = 1 &&Режим создания нового TIFF-файла
DO (_REPORTPREVIEW) WITH loPreview
xh = CREATEOBJECT("EffectsPreview")
loPreview.SetExtensionHandler(m.xh)
loListener = CREATEOBJECT("EffectsListener")
WITH loListener
.ListenerType = 2
.PreviewContainer = loPreview
ENDWITH
REPORT FORM repspr_90 OBJECT loListener NOWAIT TO PRINTER PROMPT[/code]
на OutputPage следующее:
[code]LPARAMETERS nPageNo, eDevice, nDeviceType, nLeft, nTop, nWidth, nHeight, nClipLeft, nClipTop, nClipWidth, nClipHeight
IF THIS.ListenerType = 2
WITH oApp.Maine_doc
eDevice = .prj_SaveDir + .prj_DocDesignatio + ".TIFF"
nDeviceType = IIF(.DeviceType = 1, 101, 201)
ENDWITH
DODEFAULT(nPageNo, eDevice, nDeviceType)
ELSE
DODEFAULT(nPageNo, eDevice, nDeviceType)
ENDIF[/code]
Подскажите, чего не хватает, чтобы в TIFF попадали все страницы?