Печать изображения (Page 1 of 2)

Приветствую.

К сожалению такой возможности нет, разве что нажать на PrintScreen+Alt, чтобы скопировать в буфер обмена изображение формы и вставить его например в PaintBrush с последующей печатью.

К сожалению, скриншот оказался непригоден к использованию - мелкие детали изображения теряются при печати. При использовании Фаст репорта столкнулся с некоторыми сложностями. Во первых - компонент Мемо (если он непривязан к базе данных) при включении в список компонентов участвующих в поиске при попытке создания отчета вызывает ошибку. Во вторых - не получается включить в компоненты участвующие в поиске компонент Image. Возможно ли скриптом очищать отображаемое изображение в компоненте Image? Благодарю за ответ.

Компоненты включаются в список поиска для отображения в Фастрепорте среди Variables.
В компонент Мемо скриптом отбираются данные из базы, чтобы иметь возможность их измененения (не внося изменения в базу). С компонентом Image та же ситуация - поиск файла на компьютере, вывод в компонент для превью и, хотелось бы, последующую передачу изображения в Фастрепорт.

frmTexZavd.Image1.Clear;

Ругается - Undeclared identifier: 'Clear'

1. Если добавить компонент в список компонентов участвующих в поиске, а потом открыть дизайнер Фастрепорта, в чистом отчете новый компонент появится среди Variables, а вот в сохраненном - нет.
2. Если изображение невозможно передать, тогда передадим путь к нему)  Не найдется ли пример скрипта для Фастрепорта по такому случаю?
UPD 1. Все передается если выбирать сразу шаблон отчета в MVD.
UPD 2. Для отображения изображения в обьекте Picture Фастрепорта достаточно вписать в параметр FileLink имя компонента из списка Variables содержащий путь к файлу и заключить его в квадратные скобки [Edit1]
Все прекрасно работает

К сожалению переменные отчета не поддерживают перенос строк.

В принципе можно решить эту проблему скриптом
создаем переменную для скрипта, заменяя переводы строк символом /cr/lf

    s := Employees.Memo1.Text;
    s := ReplaceStr(s, #13#10, '/cr/lf');
    Employees.frxReport.Variables['My Variable 4'] := ''''+s+'''';

в отчете создаем событие для поля с данной переменной OnAfterData
заменяя символы /cr/lf обратно на переводы строк

procedure MyVariable4OnAfterData(Sender: TfrxComponent);
begin
       MyVariable4.Text := ReplaceStr(MyVariable4.Text, '/cr/lf', #13#10);  
end;

Вы можете выделить все записи в гриде (нажав Ctrl+A), тогда все они попадут в отчет. Чтобы иметь возможность выделять несколько записей в гриде, установите свойство грида Additional > Options > goMultiSelect

У себя я такого не наблюдал, приложите пожалуйста ваш проект, проверю  чем дело.

В коде нету ничего такого...

//Заносим в Мемо нужные значения
var
    zzid, zzri, zzrc: integer;  //id заказа, индекс и количество утвержденных заказов
begin
    zzrc := SQLExecute ('SELECT COUNT (zamovlinfo) FROM Zamovlennya WHERE id_Klient = '+ Form1.ComboBox1.sqlValue+' AND zamovlvroboty = 1 AND zamovlvudano = 0'); 
    if zzrc > 0 then
    begin
        zzid := -1;
        for zzri := 1 to zzrc do 
        begin
            frmTexZavd.Memo2.Text := frmTexZavd.Memo2.Text + SQLExecute ('SELECT zamovlinfo FROM Zamovlennya WHERE id_Klient = '+ Form1.ComboBox1.sqlValue+' AND zamovlvroboty = 1 AND zamovlvudano = 0 AND id >' +inttostr (zzid)) + #13#10;
            zzid := SQLExecute ('SELECT id FROM Zamovlennya WHERE id_Klient = '+ Form1.ComboBox1.sqlValue+' AND zamovlvroboty = 1 AND zamovlvudano = 0 AND id >' +inttostr (zzid));
        end;
    end;
//Создаем переменные в Фастрепорте
procedure VariableToReport ();
var
    vrbl: string;  
begin
    Form1.frxReport.Variables.Clear;
    Form1.frxReport.Variables[' ' + 'Components'] := Null;
    vrbl := frmTexZavd.Memo1.Text;
    Form1.frxReport.Variables['Memo1'] := ''''+vrbl+'''';
    vrbl := frmTexZavd.Memo2.Text;
    Form1.frxReport.Variables['Memo2'] := ''''+vrbl+'''';
    vrbl := frmTexZavd.Memo3.Text;
    Form1.frxReport.Variables['Memo3'] := ''''+vrbl+'''';
end;

И в Фастрепорте получаем апострофы в полях Мемо. Причем если строка одна - их нету, а если несколько строк - они есть.
И еще тот же вопрос - символ переноса строки через список компонентов участвующих в поиске?

Приложил пример.

Символ переноса строки передается скриптом в очет (как в примере - без замен и возвращения), но не переносится через список компонентов участвующих в поиске! Почему?

Так должно быть и по-другому не планируется?
И возможно ли убрать появляющиеся в отчете апострофы?

Прописал скрипт - апострофы остались.

Данный скрипт был предназначен для скриптов в отчете. Поправил ваш проект: