|
Тема |
проблем с принтирането |
|
Автор |
otoboto (непознат
) |
|
Публикувано | 22.04.05 20:11 |
|
|
Здравейте , проблемът ми по точно е че след комадата за принтиране трябва да се отпечатят 2 реда след което принтера да извади още малко хартия за да може да се откъсне отпечатаното и да спре ( става дума за матричен принтер с безконечна хартия) , а в момента след като отпечати ми вади още един лист и тогава спира .принтирането го правя от МЕМО така:
procedure TForm2.Button1Click(Sender: TObject);
VAR
POutput:TextFile;
N:LongInt;
begin
AssignPrn(POutput);
Rewrite(POutput) ;
FOR N := 0 to Memo1.Lines.Count - 1 DO
Writeln(POutput, Memo1.Lines [N]);
closefile(POutput);
END;
И ако може да обясните по подробно , защото съм новобранец в ДЕЛФИ и с една дума няма да разбера , Благодаря предварително на всеки който помогне.
работя с Делфи 7 ако има значение.
|
| |
|
|
|