PHP DM Gate v0.9 » Как вызвать окно печати Excel из Delphi? <span class="vd">[D7, WinXP]</span>

VoznikVopros (08.04.09 19:04) [0]

Как из Delphi вызвать окно печати активного Excel-документа (пукнт меню Файл-Печать)?..

Для печати активного документа используется команда ActiveSheet.PrintOut;
Но при этом документ сразу идёт на печать, без появления окна..

Код:
var
VExcel:Variant;
begin
VExcel := GetActiveOleObject('Excel.Application');
VExcel.Visible := True;
VExcel.WindowState := -4137;
VExcel.WorkBooks.Open('FileName.xls');
... (заполнение)
VExcel.ActiveSheet.PrintOut; //сразу идёт печать... нужно вывести окно печати
end;

<Цитата>
ngpol (22.04.09 11:42) [1]

Попробуй - ExcelApplication1.Dialogs[xlDialogPrint].Show;

<Цитата>