En Excel
Código Delphi
[-]
Dialogo:= xlDialogPrint;
ExcelApplication1.Dialogs.Item[Dialogo].Show(EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam
, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam
, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam
, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam);
En Word
Código Delphi
[-]
Dialogo:= wdDialogFilePrint;
WordApplication1.Dialogs.Item(Dialogo).Show(EmptyParam);