настройка печати из Delphi

[Ivan174]

Имеется программа, которая позволяет заполнять шаблон документа Word, используя данные из базы данных. По итогу пользователь может документ либо сохранить, либо сохранить и сразу отправить на печать. Никогда не редактировал до этого Word из делфи и не печатал. Добавляю объект PrintDialog. А вот далее сложность. Я так понимаю, для печати документа используется PrintOut. А как в ней задать выбранный в PrintDialog принтер?

[Stilet]

А может стоит просто открыть Ворд и выкинуть пользователю сообщение "Печатай, товарищ"?

[Ivan174]

Кстати, хорошая идея в рамках данной программы. Спасибо. Пожалуй так и сделаю. Но все же хотелось бы на будущее узнать, как задать имя принтера при печати))
И еще один вопрос, когда сохраняю документ, если не открыт ни один другой Word документ - все хорошо. Если же открыт, то мой документ сохраняется, но вылетает ошибка, что normal.dotm занят и т.п. Из-за чего такое может быть?

  
W:=CreateOleObject('Word.Application');
  W.visible:=False;
  W.Documents.Open(ExtractFileDir(Application.ExeName)+'\dogovor.doc');

  W.selection.Find.Text:='$$$date$$$';                     //дата
  W.selection.Find.Replacement.Text:=FormatDateTime('dd mmmm yyyy',Form2.dtp1.Date);
  W.Selection.Find.Execute(Replace:= 2);
W.ActiveDocument.SaveAs(path_dogovor+'\'+Form2.edt16.Text+'.doc');
  W.Documents.Close;
  W.Quit;
  W:=UnAssigned;

[саша40]

В PrintDialog есть такое замечательное чудо как Execute. Там можно выбрать не только принтер, но и многое другое.

[Ivan174]

Я знаю про Execute. Пользователь может выбрать принтер и настроить параметры печати. Как потом мне эти настройки применить - я тоже в курсе. Не знаю лишь то, как отправить на выбранный пользователем принтер

[FaTaL]

Вам совсем не нужен PrintDialog. Печатайте из самого ВОРДа средствами VBA.

[Stilet]

Как потом мне эти настройки применить - я тоже в курсе. Не знаю лишь то, как отправить на выбранный пользователем принтер

Не мучался бы ты...

[саша40]

Может тогда вообще используете объект типа TPrinter. Модуль Printers. Если верить Флёнову.

[FaTaL]

И еще один вопрос, когда сохраняю документ, если не открыт ни один другой Word документ - все хорошо. Если же открыт, то мой документ сохраняется, но вылетает ошибка, что normal.dotm занят и т.п. Из-за чего такое может быть?

Попробуйте так
W.ActiveDocument.Close; вместо W.Documents.Close;