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

Вниз

Печать из Word а без лишнего писка   Найти похожие ветки 

 
gai   (2003-12-26 23:01) [0]

Здравствуйте, уважаемые коллеги. Пишу программу
в кторой требуется печатать Word документ в
фоновом режиме. Пробовал по всякому, но каждый раз при попытке
распечатать документ, выскакивает мерзенькое сообщение
"Документ не входит в границы печати. Продолжить? [Да][Нет]".
Мне это предупреждение как "зуб в носу", во первых появляется на экране
редактор Word, во вторых, если я захочу напечатать 100 документов
подряд, мне это окно будет совсем неуместно. Что делать?
Печатаю так: ShellExecute(Application.handle, "print", PChar("file.doc"), nil, nil, SW_HIDE);

С уважением.
Гришан А.


 
Shirson   (2003-12-27 13:06) [1]

попробуй так:

uses comobj;
...
var msw:variant;
begin
msw:=createoleobject("word.application");
msw.Documents.Open(FileName:="file.doc");
msw.Documents.PrintOut(Background:=true);


 
gai   (2003-12-27 15:53) [2]

пробовал, та же проблема :(



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

Форум: "Основная";
Текущий архив: 2004.01.13;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.44 MB
Время: 0.007 c
1-37687
rel_
2003-12-26 10:55
2004.01.13
Последние используемые файлы


1-37657
Anderson
2003-12-26 18:42
2004.01.13
Как в Мемо узнать число видимых строк?


1-37673
ibar
2003-12-26 11:54
2004.01.13
Как отключить распознавание зарезервированных слов?


1-37709
Kein
2003-12-25 18:11
2004.01.13
Звук


1-37762
Kelvin
2003-12-27 11:00
2004.01.13
Тетрадный лист





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский