Скачать: CL | DM;

Вопрос по 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;

---

← →
Skyle ©   (2006-06-28 07:50) [4]

> 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;


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

---

← →
PSPF2003 ©   (2006-06-28 08:42) [5]

> > 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;


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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.026 c