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

← →
Maggot (2006-06-24 04:32) [0]

Как напечатать документ word одним нажатием на батон?

← →
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.

← →
Maggot (2006-06-24 21:50) [2]

Дело в том что принтера нету.Так что проверить код нет возможности.Все еще нуждаюсь в помощи с печатью вордовских документов.

← →
Пусик © (2006-06-25 03:31) [3]

> Maggot (24.06.06 21:50) [2]
> Дело в том что принтера нету.Так что проверить код нет возможности.Все
> еще нуждаюсь в помощи с печатью вордовских документов.

Приходите еще. Когда принтер будет.

← →
Экспериментатор (2006-06-25 12:56) [4]

попробуй поэкспериментировать с командной строкой, что-то типа winword.exe "имя файла" print - по крайней мере Word что-то подобное может делать
ну а вызов такой сделай при помощи ShellExecute

← →
Virgo_Style © (2006-06-25 13:12) [5]

Экспериментатор (25.06.06 12:56) [4]

Достаточно ShellExecute с параметром "print" и именем файла-документа

← →
Maggot (2006-06-26 01:20) [6]

А можно через CОМ?Дайте пожалуйста пример.

← →
C@N © (2006-06-26 13:22) [7]

Для доковских...shellExecute - то что доктор прописал, токо в uses не забудь прописать ShellApi

а в кнопе пиши типа этого
ShellExecute(application.handle, "print", "c:\1.txt", "", "", SW_SHOWNORMAL);

← →
C@N © (2006-06-26 13:24) [8]

в догонку... печатает на деафультный принтер в системе)))
печатает все, что можно напечатать )))
короче эксперементируйте )))

← →
имя (2006-06-26 13:38) [9]

Удалено модератором

можно и через COM (или OLEAutomation, или.... названий много)...
Var
w:OleVariant;
Begin
w:=CreateOLEObject("Word.Application");
w.PrintOut(FileName:=<имя файла>);
w.Quit;
w:=Unassigned;
End;

что то типа этого... есть правда небольшой нюанс, ворд не даст закрыть себя до окончания отправки на печать... поэтому придется устроить цикл с ожиданием...

← →
Maggot (2006-06-27 01:17) [11]

Спасибо всем за советы.

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