Форум: "Начинающим";
Поиск по всему сайту: www.delphimaster.net;
Текущий архив: 2006.07.16;
Скачать: [xml.tar.bz2];




Вниз

Послать *.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]

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



Palladin ©   (2006-06-26 13:46) [10]

можно и через 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]

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




Форум: "Начинающим";
Поиск по всему сайту: www.delphimaster.net;
Текущий архив: 2006.07.16;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.74 MB
Время: 0.035 c
15-1150658905     zxcv                  2006-06-18 23:28  2006.07.16  
Nokia WAP Toolkit 2.0


6-1141732535      AllBrain              2006-03-07 14:55  2006.07.16  
Помогите The memory could not be "read".


1-1149236633      PanIlya               2006-06-02 12:23  2006.07.16  
Дата в StringGrid (Перенесена из Компоненты)


15-1150640191     ***(H@kker)***        2006-06-18 18:16  2006.07.16  
Windows SDK и MSDN


2-1151352861      Norfolk               2006-06-27 00:14  2006.07.16  
Ограничение на количество символов в TMemo и TEdit