procedure TForm6.FlatButton2Click(Sender: TObject);
var vaIn, vaOut: OleVariant;
begin try
exp1.ControlInterface.ExecWB(OLECMDID_PRINT, OLECMDEXECOPT_PROMPTUSER,vaIn, vaOut);
except end;End;