Вывод на печать

[-=<[Evklidd]>=-]

Написал программу и теперь хочу полученные результаты вывести не только в Label как сделано сейчас, но еще и на печать принтеру, как это сделать??? Подскажите уважаемые программисты

[benjaminfran]

вот пример для memo но мне кажется ты сможеш ппеределатьв дельфий

var
f:Textfile;
i:integer;
begin
 assignprn(f);
try
Rewrite(f);
forr i:= to Memo1.lines.count-1 do
Writeln(f, Memo1.line.Strings[1]);
Finally
CloseFile(f);
end;
end.

а вот я переделал попробуй

var
f:Textfile;
begin
 assignprn(f);
try
Rewrite(f);

Writeln(f, Label1.caption);
Finally
CloseFile(f);
end;
end.

From Stilet: Если не хочеш получать горчичники обрати внимание на возможность редактирования сообщения и не плоди рядом свои посты.

[Sibedir]

uses
  ... Printers, ...

...
Printer.BeginDoc;
Printer.Canvas.TextOut (x, y, s);
Printer.EndDoc;
...

+ F1

[Air]

И я добавлю кое-что.

Uses Printers;
...
Function SendToPrint(Text:TStrings):boolean;
var
r:TRect;
i:Integer;
Printer:TPrinter;
begin
Printer:=TPrinter.Create;
Result:=false;
with Printer do
 begin
try
  r:=Rect(200,200,(Pagewidth - 200),(PageHeight - 200));
  BeginDoc;
  Canvas.Brush.Style := bsClear;
  for i := 0 to Text.Count do
   Canvas.TextOut(200,200 +(i * Canvas.TextHeight(Text[i])),
    Text[i]);
  Canvas.Brush.Color := clBlack;
  Canvas.FrameRect(r);
  EndDoc;
  Result:=true;
except
Result:=false;
end;
 end;
Printer.Free;
end;

Откапал в Нэте, а можно вопрос?

   1. uses  
   2.   ... Printers, ...  
   3.   
   4. ...  
   5. Printer.BeginDoc;  
   6. Printer.Canvas.TextOut (x, y, s);  
   7. Printer.EndDoc;  
   8. ...

Вы "выдрали" этот код откуда? и где описание переменных?

[Sibedir]

Этого делать не надо:

var
Printer:TPrinter;   
begin   
Printer:=TPrinter.Create;

А то будут проблемы при использовании TPrinterSetupDialog и TPrintDialog. Для общения с принтерами надо пользоваться готовой функцией Printer модуля Printers.

Вы "выдрали" этот код откуда? и где описание переменных?

Некогда было разъяснять, тем более, что это наверное в каждой книге написано, а я так думаю, люди прежде чем на форум обращатся книжки хотябы листают. Или нет? А из приведенного мною кода видно, какой переменной (ну вообще-то это функция дающая ссылку на переменную) пользоваться, в каком модуле она находится, как начать и как кончить. А главное, видно, что Printer имеет такое свойство как Canvas. Ну уж рисовать на канве, думаю даже самые новички умеют, а если нет, так прочитают. А описание переменных не привел потому что это безсмысленно. Щелкните мышкой на слово TextOut удерживая Ctrl в редакторе кода и вы получите то, что вам нужно. А если установить туда курсор и нажать F1, то информации будет более чем достаточно.

[Air]

В основном я согласен, но я встречал людей, которые достаточно плохо знают Delphi и Paskal, не знают как в принципе пользоваться справкой или поиском, они пришли на форум для того, чтобы получить ответ на свой вопрос, я говорю так потому что сам когда-то начинал.

Я Вас не критикую, просто нужно давать маленькие комментарии в коде, если он у Вас не полный.

[Sibedir]

ОК, исправлюсь. Просто не надо было отвечать второпях. Пришел бы домой и нормально ответил бы.