Печать Excel из delphi

[Ivan174]

Здравствуйте. Только начинаю изучать делфи и столкнулся с такой проблемой, не могу никак решить. Имеется накладная в формате .xls.

Ap := CreateOleObject('Excel.Application');
Ap.Workbooks.Open('C:\..\sp31.xls');

Для начала нужно просто из делфей ее распечатать, но пользователь должен сам выбирать принтер. кидаю на форму PrintDialog.

if printDialog1.Execute then

А что дальше? Как распечатать мой документ с настройками принтера, которые сделал юзер?

[FaTaL]

Тогда лучше печатать из самого Excel, а не из диалога Delphi.

[eval]

У Excel.Application есть метод для печати, вот его и надо вызывать с указанием того принтера что выбрали в диалоге.
Ну и сам Excel надо прятать.

[Ivan174]

Сообщение от FaTaL

Тогда лучше печатать из самого Excel, а не из диалога Delphi.

Позже к программе будет подцеплена база данных. Данные из базы будут подставляться в накладную и только потом накладная будет распечатываться. С заполнением документа вопросов нет, проблема именно с печатью...

Сообщение от eval

У Excel.Application есть метод для печати, вот его и надо вызывать с указанием того принтера что выбрали в диалоге.
Ну и сам Excel надо прятать.

А не подскажете, что за метод?

[SNUPY]

Для простоты советуют посмотреть VBA код который будет сформирован при автозаписи макроса близкой к этой аналогии будет код в Delphi во всяком случаем имена сущностей будут совпадать.

[eval]

В справке по Excel все есть. PrintOut

[Ivan174]

Сообщение от eval

В справке по Excel все есть. PrintOut

Я уже пробовал PrintOut. Если без параметров - то печатает на принтере по умолчанию, даже если в PrintDialog выбрать другой принтер. А указать параметры по непонятной для меня причине не получается.

PrintOut([From], [To], [Copies], [Preview], [ActivePrinter], [PrintToFile], [Collate], [PrToFileName])

Если написать PrintOut(Preview:=True) - Preview подчеркивается как неопознанная переменная(( С ActivePrinter та же беда. Остальные параметры не пробовал, ибо не важно

[SNUPY]

http://www.delphimaster.ru/cgi-bin/f...1235064008&n=8

[eval]

Указывать надо ActivePrinter и указывать правильно.

[FaTaL]

Посмотрите книгу Василий Корняков "Программирование документов и приложений MS Office в Delphi" страница 332