[izyaslaw]

Так. Проблема. Мне нужно вывести на печать всё то, что находится в окне программы. Либо распечатать принтскрин ОКНА ПРОГРАММЫ (не экрана!!!) , или же хотя бы сохранить этот скрин. HELPPPPPPPP!!!!!!!111

[poli-smen]

Сообщение от izyaslaw

Так. Проблема. Мне нужно вывести на печать всё то, что находится в окне программы. Либо распечатать принтскрин ОКНА ПРОГРАММЫ (не экрана!!!) , или же хотя бы сохранить этот скрин. HELPPPPPPPP!!!!!!!111

Код:

Form1.Print;

[izyaslaw]

Сообщение от poli-smen

Код:

Form1.Print;

У меня не сработало

[poli-smen]

Сообщение от izyaslaw

У меня не сработало

А принтер подключен?
Он стоит по-умолчанию?

Сохранить принтскрин формы в файл:

Код:

  with Form1.GetFormImage do
  begin
    SaveToFile('D:\Form1.bmp');
    Free;
  end;

[izyaslaw]

А что есть Free????

[poli-smen]

Сообщение от izyaslaw

А что есть Free????

Освобождение (разрушение) объекта.
Если написать тоже самое но без конструкции with, то получится так:

Код:

var
  bmp: TBitmap;
begin
  bmp := Form1.GetFormImage;
  bmp.SaveToFile('D:\Form1.bmp');
  bmp.Free;
end;

[izyaslaw]

И у меня ещё один тогда вопрос. Как сделать точно такое же сохранение только через SaveDialog?????

[poli-smen]

Сообщение от izyaslaw

И у меня ещё один тогда вопрос. Как сделать точно такое же сохранение только через SaveDialog?????

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin
  if SaveDialog1.Execute then
  begin
    with GetFormImage do
    try
      SaveToFile(SaveDialog1.FileName);
    finally
      Free;
    end;
  end;
end;

[izyaslaw]

И у меня ещё один тогда вопрос. Как сделать точно такое же сохранение только через SaveDialog?????