Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.08.15;
Скачать: CL | DM;

Вниз

Печать документа Word   Найти похожие ветки 

 
SemFLY ©   (2002-07-28 21:02) [0]

Как распечатать документ Word из программы ?
Ипользуя PrintDialog.
Спасибо !


 
SemFLY ©   (2002-07-28 21:05) [1]

Как распечать если документ в OLE контейнере ?


 
SemFLY ©   (2002-07-30 00:13) [2]

В FAQ, печати докуметов Word"а нет :(


 
Song ©   (2002-07-30 09:18) [3]

IF PrintDialog1.Execute then ShellExecute(Handle,"print","1.doc",nil,nil,SW_HIDE);


 
SemFLY ©   (2002-08-04 23:34) [4]

Song, То что ты предложил удобно, быстро и практично !

А есть ещё способ распечатки документа Word, непосредственно из программы ?
Не открывая Word.


 
Song ©   (2002-08-04 23:36) [5]

Через TOleObject


 
SemFLY ©   (2002-08-04 23:45) [6]

А точнее через TOleContainer, так ?
Я в FAQ в Delphi глянул, там что-то нет ни слова про Print.
Может пример приведёшь ?


 
Song ©   (2002-08-05 08:57) [7]


Var WA:Variant;
...
WA:=CreateOLEObject("Word.Application");
With WA Do
try
Documents.Open(...);
Documents.Visible:=False;
Documents.Print(...);
Quit;
finally
WA:=UnAssigned;
end;


Что-то в этих чертах, возможно я не прав, потому что не знаю иерархии свойств объекта Documents в VB.
Про Print в Дельфи и не должно быть не слова. Нужно смотреть эти свойства в поставке справочника/хэлпа к MS Office"у.


 
zavdim   (2002-08-05 09:38) [8]

Точнее будет так:

var Word : Variant;

Try
Word := CreateOleObject("Word.Application")
Except
raise Exception.Create("trala-la")
End;

Try
Word.Visible := true;
Word.Documents.Open("1.doc");
Word.Documents.Item(1).PageSetup.Orientation:= 0;
Word.Documents.Item(1).PrintOut
finally
Word.Quit
end;

Хотя по хорошему надо лезть в файл: VBAWRD9.HTM
и шариться по не бу до скрежета зубовного.



Страницы: 1 вся ветка

Текущий архив: 2002.08.15;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.021 c
3-47968
KMZ
2002-07-26 08:01
2002.08.15
ORA-04091- ошибка в ORACLE,кто решал такую проблему помогите пож.


1-48201
RangerBetta
2002-08-02 19:12
2002.08.15
Посоветуйта какой отчет использовать


3-48011
sia
2002-07-27 18:06
2002.08.15
подстолбцы в столбцах


3-48013
pum5a
2002-07-27 16:52
2002.08.15
SELECT TOP 25


14-48276
Sour
2002-07-19 21:14
2002.08.15
Как распространять приложения с БД под Interbase?