Вывод на принтер содержимого формы - Общие вопросы Delphi

Ermiss · 20.12.2007, 15:00

Вот код програмы
procedure TForm1.Button2Click(Sender: TObject);
begin
if PrintDialog1.Execute=true then begin
Printer.BeginDoc;
form1.PaintTo(Printer.Handle, 10,10);
Printer.EndDoc; end else exit;
end;

Но у меня выводимое изображение очень маленькое. Как можно задать масштаб, чоп размерность была под А4 бумагу?
Размер формы примерно 500*700.

AlDelta · 20.12.2007, 15:15

http://programmersforum.ru/showthrea...F4%EE%F0%EC%FB

Ermiss · 20.12.2007, 15:40

Получилось. Пасиб!

20.12.2007, 15:00	#1
Ermiss Пользователь Регистрация: 31.10.2007 Сообщений: 62	Вывод на принтер содержимого формы Вот код програмы procedure TForm1.Button2Click(Sender: TObject); begin if PrintDialog1.Execute=true then begin Printer.BeginDoc; form1.PaintTo(Printer.Handle, 10,10); Printer.EndDoc; end else exit; end; Но у меня выводимое изображение очень маленькое. Как можно задать масштаб, чоп размерность была под А4 бумагу? Размер формы примерно 500*700.

20.12.2007, 15:15	#2
AlDelta Реанимируюсь... Участник клуба Регистрация: 19.07.2007 Сообщений: 1,445	http://programmersforum.ru/showthrea...F4%EE%F0%EC%FB Пишите код так, как будто сопровождать его будет склонный к насилию психопат, который знает, где вы живёте. Правила форума => Правила раздела => Для общего развития => Помощь студентам => Перед тем, как создавать тему, скачайте себе... P.S.: форум не песочница (с) название статьи на сайте MS: "Отмена принудительного отключения автоматического запуска в реестре Windows"

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
из DBGrid на принтер	micaell	БД в Delphi	8	07.05.2010 17:29
Печать на принтер(USB)	kisser_san	Общие вопросы Delphi	4	25.04.2008 16:18
Принтер	xakkkkker	Общие вопросы Delphi	1	23.03.2008 15:05
вывод содержимого папки [delphi]	[Smarik]	Помощь студентам	4	12.03.2008 14:30
Принтер	Gromsky	Общие вопросы Delphi	4	05.03.2008 17:08

20.12.2007, 15:40	#3
Ermiss Пользователь Регистрация: 31.10.2007 Сообщений: 62	Получилось. Пасиб!