Big size of fast report files, exported to PDF

Уточните, пожалуйста, Вашу версию. Если причина описанной Вами проблемы такая же, как здесь (последний комментарий от 30 ноября 2009), то возможно, проблему решит обновление до версии не ниже 3.3.1.95. Для обновления необходимо выслать письменный запрос на адрес Службы технической поддержки support@tscrm.com .

Олег Лабьяк,
разработчик,
3-я линия Службы поддержки Terrasoft.

Before I got this problem on version 3.3.1.91. Today I tried again on version 3.3.1.100, but I guess that the problem still exists.
I created Fast report with rich text objects only, no pictures. I tried to export to pdf with version 3.3.1.100. Results are:
- with print optimized true: size 9 MB;
- with print optimized false: size 1,5 MB;
Then I exported the same report to rtf and printed it to pdf with PDF995 tool, and the size was 50 KB.

I got information, that this is a problem of Fast Report tool, but maybe You have any information about new versions of Fast Report tool, maybe this exporting to pdf function are going to be repeared in some newer releases?

Thank You :)

Kind regards,
Aurimas

Aurimas Lacitis, добрый день.

К сожалению, мы не располагаем подобной информацией. В качестве обходного варианта попробуйте автоматизировать процесс, который Вы описали: в функции SendByEmail скрипта scr_BaseFastReportPreviewScript при выборе типа PDF сохраните отчёт в файл RTF, а перед отправкой письма попытайтесь с помощью утилиты PDF995, которую Вы используете, перевести файл в нужный формат. Например:

function SendByEmail(ReportExportType) {
	if (!GetCanCreateMessage(true)) {
		return;
	}
	var TempFileName = System.CreateObject('TSObjectLibrary.Value');
	var FileNameStr = frpMain.Report.Caption;
	var Extension = '';
	switch (ReportExportType) {
	case retRTF: Extension = '.rtf';
		break;
	case retXLS: Extension = '.xls';
		break;
	case retPDF: //Extension = '.pdf';
		Extension = '.rtf';
		break;
	case retHTML: Extension = '.html';
		break;
	}
	TempFileName.Value = GetTemporaryFileName(FileNameStr + Extension, true);
	if (ReportExportType == retHTML) {
		var FileSystemObject = GetFileSystemObject();
		var FolderName = TempFileName.Value.
			replace(ExtractFileExtension(TempFileName.Value), 'files');
		if (!FileSystemObject.FolderExists(FolderName)) {
			FileSystemObject.CreateFolder(FolderName);
		}
	}
	if (ReportExportType == retPDF) {
		frpMain.Export(retRTF, TempFileName, true);
		<Выполняем операции по конвертации файла в формат PDF>;
	} else {
		frpMain.Export(ReportExportType, TempFileName, true);	
	}
	SendEmail({Subject: FormatStr("Файл отчета %1", FileNameStr),
		BodyFormat: 2, Attachments: [TempFileName.Value]});
}

Олег Лабьяк,
разработчик,
3-я линия Службы поддержки Terrasoft.

Thank You, Олег,

I will rewrite SendByEmail function.

This probably should be another issue, but maybe You have used and can offer any conversion from .doc to .pdf tools, which can convert to PDF by calling program from command line? Customer will have to install this tool separately from Terrasoft software.
For example, I used PDFCreator, but it has some restrictions - it can convert to PDF only if MS Word application is closed, etc., other tools have other restrictions.

Kind regards,
Aurimas Lacitis

Лично у меня такой задачи никогда не возникало. В Интернете нашёл эту утилиту, судя по описанию - неплохая. Возможно, Вам подойдёт.

Олег Лабьяк,
разработчик,
3-я линия Службы поддержки Terrasoft.

Thank You, Олег,

Kind regards,
Aurimas Lacitis