Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Документ Word на печать [D7, NT4]

Win32 © (2005-11-30 14:07:00)
Мастера подскажите можно ли пустить на печать документ Word
не открывая его, и как это сделать ? Заранее спасибо.

Andron.Ru (2005-12-01 13:05:00) [1]
Воспользуйся компонентами вкладки servers в Delphi 6-7
WordApplication
WordDocument

В сети полно примеров работы с ними

gdaujk (2005-11-30 15:53:00) [2]
HimemSys (30.11.05 14:17) [3]

Попробуй открыть Вордовский документ Блокнотом и напечатать его. Вот потеха-то будет. Ты сделал тоже, только на програмном уровне...

Virgo_Style (2005-11-30 15:02:00) [3]
Anatoly Podgoretsky © (30.11.05 15:01) [9]

м-м... я сдаюсь =)

Anatoly Podgoretsky (2005-11-30 15:02:00) [4]
Если документ, то это в принципе не возможно.

Anatoly Podgoretsky (2005-11-30 15:01:00) [5]
Virgo_Style © (30.11.05 14:57) [8]
Попробуй расставить запятые :-)
на печать документ Word не открывая его

Virgo_Style (2005-11-30 14:57:00) [6]
Anatoly Podgoretsky © (30.11.05 14:46) [7]

почему, в свете [2], imho, нормальная идея; для [0] - согласен, не подойдет :-)

а про то, что Ворд нельзя открывать, ничего не говорилось вообще %-)

Anatoly Podgoretsky (2005-11-30 14:46:00) [7]
Virgo_Style © (30.11.05 14:34) [6]
Идея провальная, будет открыт Ворд, открыт и напечатан документ, закрыт документ, закрыт Ворд.

Virgo_Style (2005-11-30 14:34:00) [8]
по идее, можно вызвать ShellExecute с Operation = 'print' ?

Digitman (2005-11-30 14:32:00) [9]

> Win32 (30.11.05 14:12) [2]

см. объект Word.Application

у него есть методы Open, PrintOut

Recall (2005-11-30 14:20:00) [10]
К чему такое извращение ???

HimemSys (2005-11-30 14:17:00) [11]
procedure TForm1.Button1Click(Sender: TObject);
var
port, prnfile: file;
buffer: array [1..128] of Char;
Read: Integer;
begin
// Specify a file to print
AssignFile(prnfile, 'filetoprint');
Reset(prnfile, 1);
// specify printer port
AssignFile(port, 'LPT1');
Rewrite(port, 1);
repeat
BlockRead(prnfile, buffer, SizeOf(buffer), Read);
BlockWrite(port, buffer, Read);
// Application.ProcessMessages;
until EOF(prnfile) or (Read <> SizeOf(buffer));
CloseFile(prnfile);
CloseFile(port);
end;

Win32 (2005-11-30 14:12:00) [12]
2 Digitman
Скажите если знаете, как открыть и сразу пустить на печать ?

Digitman (2005-11-30 14:09:00) [13]
нельзя.

встречный вопрос - можно ли распечатать некую картинку, данные которой хранятся в некоем файле, не открывая этот файл ?

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »