код такой

Word=Новый COMОбъект("Word.Application");
Word.Documents.Add(ВремФайл);
Doc=Word.ActiveDocument;
Doc.PrintOut();      
Word.Quit();
Word="";

принтаут посылает сразу на печать ,а как диалог выбора принтера вызвать?

Print()?

(1) не

http://social.msdn.microsoft.com/Search/ru-RU?query=PrintOut&ac=4

(3) я смотрел, вызова диалога печати не нашел там

засада блин

теперь надо список принтеров формировать и подсовывать , выбранный принтер в printout

почему все так сложно блин.

(4) PreviewТип: System.Object
Значение true, чтобы приложение Microsoft Office Excel открывало перед печатью объекта окно предварительного просмотра; значение false, чтобы печать объекта начиналась немедленно.
Не оно?
Тогда ищи в разделе диалогов

Пример открытия файла

    ОбъектВорд = ПолучитьВорд();
    Если  Не ОбъектВорд = Неопределено Тогда
        ОбъектВорд.WindowState = 1;
        ОбъектВорд.Height = 0;
        ОбъектВорд.Width = 0;
        myopendial = ОбъектВорд.FileDialog(3);
        myopendial.AllowMultiSelect =0;
        myopendial.Title = "Выбирайте файлы...";
        Для i = 1 По myopendial.Filters.Count Цикл
            myopendial.Filters.Delete();
        КонецЦикла;
        //myopendial.Filters.Add("1С файлы", "*.ert; *.mxl; *.txt", 1);
        ОбъектВорд.Visible=-1;
        ОбъектВорд.Activate();
        myopendial.InitialFileName = Путь;
        myopendial.Show();
        Если myopendial.SelectedItems.Count > 0  Тогда
            Возврат myopendial.SelectedItems.Item(1);
        Иначе
            Возврат Неопределено;
        КонецЕсли;  
    Иначе
        Возврат Неопределено;
        
    КонецЕсли;


http://support.microsoft.com/kb/288543/ru

теперь надо подобюное для печати

Word.Dialogs(88).Show();

(11) спасибо