Вопрос по delphi

← →
Shrek © (2006-06-27 23:33) [0]

не могу никак на delphi написать код для кнопки print.
пробывал писать с инструкции:
procedure TForm1.Button1Click(Sender: TObject);
var
To_Prn : TextFile;
begin
AssignPrn(To_Prn);
Rewrite(To_Prn);
Writeln(To_Prn, "Printer in Text Mode");
CloseFile(To_Prn);
end;

но delphi видит ошибку. как сделать прваильно, чтоб при нажатии кнопки print выводилась печать?

← →
Yanis © (2006-06-27 23:38) [1]

> но delphi видит ошибку

Удали Delphi. Тогда она ошибку точно не увидит.

← →
Alx2 © (2006-06-27 23:47) [2]

>Shrek © (27.06.06 23:33)

Подозреваю, что в секцию uses не добавили модуль printers.

← →
JUS © (2006-06-27 23:51) [3]

Ты подключил модуль Printers?
В начале кода есть строка с подключенными модулями uses
добавь туда через запятую Printers.

Печать с экрана "с формы (Form1)"
procedure TForm1.Button1Click(Sender: TObject);
begin
With Printer do Begin
Orientation:=poLandscape;
BeginDoc; { Начало печати}
Canvas.Font:=label1.font; { задаем шрифт к примеру как в Label1}
Canvas.TextOut(60,150," Пробная печать "); { печатаем текст}
EndDoc; { конец печати }
end;
end;

> JUS © (27.06.06 23:51) [3]
> Ты подключил модуль Printers?
> В начале кода есть строка с подключенными модулями uses
> добавь туда через запятую Printers.
>
> Печать с экрана "с формы (Form1)"
> procedure TForm1.Button1Click(Sender: TObject);
> begin
> With Printer do Begin
> Orientation:=poLandscape;
> BeginDoc; { Начало печати}
> Canvas.Font:=label1.font; { задаем шрифт к примеру как
> в Label1}
> Canvas.TextOut(60,150," Пробная печать "); { печатаем текст}
> EndDoc; { конец печати }
> end;
> end;

А как выделенное жирным согласуется между собой?

> > JUS © (27.06.06 23:51) [3] > Ты подключил модуль Printers?
> > В начале кода есть строка с подключенными модулями uses>
> добавь туда через запятую Printers.> > Печать с экрана "с
> формы (Form1)"> procedure TForm1.Button1Click(Sender: TObject);
> > begin> With Printer do Begin> Orientation:=poLandscape;
> > BeginDoc; { Начало печати}> Canvas.Font:=label1.font;
> { задаем шрифт к примеру как > в Label1}> Canvas.TextOut(60,
> 150," Пробная печать "); { печатаем текст}> EndDoc; { конец
> печати }> end;> end;

А может тебе лутше ручкой пописать?

Вопрос по delphi Найти похожие ветки