将Excel 在外部启动,将你在OleContainer中的内容到入,同时启动Excel
的Preview功能,
//Preview
XLApp:=CreateOleObject('Excel.Application');
XLApp.Workbooks.Add(xlWBatWorkSheet);
InsertData;
PageSet;
XlApp.Visible:=True;
XlApp.Workbooks[1].WorkSheets[1].PrintPreview;
//Print
XLApp:=CreateOleObject('Excel.Application');
XLApp.Workbooks.Add(xlWBatWorkSheet);
InsertData;
PageSet;
XlApp.Visible:=False;
XlApp.Workbooks[1].WorkSheets[1].PrintOut;
if not VarIsEmpty(XLApp) then
begin
XLApp.DisplayAlerts:=False;
XLApp.Quit;
end;
你试一试吧!