Страница 1 из 1
Very simple ABC Report
Добавлено: 29 Октябрь 2018, 21:18
Игорь Столяров
Привет всем !
Подскажите пожалуйста, а нет ли у кого-нибудь примера совсем простого ABC отчёта в Source ?
Т.е. надо напечатать несколько строк текста (или картинку), но файлы, window, view, фильтры и т.д. - не нужны.
Но при этом, очень хочется, что бы он поддерживал стандартный Preview отчётов.
Кажется, в SVGraph было, что-то похожее ...
Заранее спасибо !
Very simple ABC Report
Добавлено: 29 Октябрь 2018, 22:59
Yufil
Для начала - без ABC
Код: Выделить всё
PrintProc PROCEDURE (Loc:Id,Loc:Control,Loc:SaveMargin) ! Declare Procedure
Report REPORT ...
Detail DETAIL ...
END
END
Q PreviewQueue
CODE
OPEN(Report)
Report{Prop:Preview} = Q.FileName
LOOP ....
PRINT(RPT:DETAIL)
END
ENDPAGE(Report)
Report{PROP:FlushPreview} = True
CLOSE(REPORT)
FREE(Q)
Very simple ABC Report
Добавлено: 29 Октябрь 2018, 23:16
Yufil
А теперь с ABC.
Если Clarion не знает, что такое PrintPreViewClass и всё такое,
добавь в модуль пустой report, чтобы всё подключилось
Код: Выделить всё
T
Test Procedure
....
Previewer PrintPreviewClass
Q PreviewQueue
....
! Возможно, нужно Previewer.init() - у меня есть далеко не везде
OPEN(Report)
Report{Prop:Preview} = Q.FileName
Loop ...
Print(Rpt:Detail)
End
ENDPAGE(Report)
Previewer.AllowUserZoom=1
Previewer.Maximize=1
IF Previewer.Display()
Report{PROP:FlushPreview} = True
End
CLOSE(REPORT)
! Возможно, нужно Previewer.Kill ()
FREE(Q)
Very simple ABC Report
Добавлено: 29 Октябрь 2018, 23:42
Игорь Столяров
Спасибо !
Вроде бы то, что нужно. Завтра-с буду пробовать …