Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2002.08.15;
Скачать: [xml.tar.bz2];

Вниз

Печать документа 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;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.56 MB
Время: 0.033 c
1-48150
Man-In-Red
2002-08-01 15:39
2002.08.15
Помогите пожалуйста!


1-48194
Fissher
2002-08-02 20:36
2002.08.15
Снова я со своим курсором


14-48304
Анечка
2002-07-22 01:28
2002.08.15
Народ а кто знает есть ли услуга которая ищет людей в сети по ВСЕ


7-48325
ЗГ
2002-05-23 07:32
2002.08.15
Люди не подскажите как в виндах и в ХР прописать прогу, которая


1-48176
galik
2002-08-02 15:35
2002.08.15
Express QuantumGrid?





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский