Послать *.doc на печать.Подскажите пожалуйста!

← →
sava18 (2006-06-24 19:32) [1]

делал лабы в кансоли.Там есть вывод на печать.короче сам разберешься.

program Project1;

{$APPTYPE CONSOLE}

uses
SysUtils,Printers;

var
x,y:array[1..30]of integer;
a,i,b,c,j:integer;
p:string;
St:string;
f:text;
Label s,s1;
begin
randomize;
i:=0;
AssignFile(f,"file.txt");
Rewrite(f);

for a:=1 to 30 do
begin
i:=i+1;

x[i]:=random(10);
y[i]:=random(10);

if x[i]<5 then if y[i]<3 then
begin
writeln("(x",i,":y",i,") ",x[i],":",y[i]);

p:=inttostr(x[i])+":"+inttostr(y[i]);

writeln(f,p);
end;

end;
CloseFIle(f);

AssignFile(f,"file.txt");
Reset(f);

with Printer do begin

BeginDoc;
Canvas.Font.Color := 10;
j:=0;
s:
j:=j+100;
ReadLn(f,St);
if St="" then goto s1;
Canvas.TextOut(100,j, St);

goto s;
s1:
EndDoc;
end;

readln;
CloseFile(f);
end.

Послать *.doc на печать.Подскажите пожалуйста! Найти похожие ветки