Delphi怎样实现excel 多表单(sheets)预览

Question

VBA里头是这样实现的
Sub Macro1()
    Sheets(Array("Sheet1", "Sheet2", "Sheet3")).Select
    ActiveWindow.SelectedSheets.PrintPreview
End Sub以下是我写的Delphi函数，卡住了，希望帮忙
function PrintPreview(fileName:string):integer;
var ExcelApp:variant;
begin
ExcelApp:=CreateOleObject('Excel.Application');
ExcelApp.visible:=true;
ExcelApp.workBooks.Open(fileName);
{这里就不会写了,希望帮忙}
//excelApp.WorkSheets[ExcelApp.Array('sheet1','sheet2')].Select;
ExcelApp.ActiveWindow.SelectedSheets.PrintPreview;
Result:=1;
end; 
分不多，望能得到您的帮助

Answer 1

在adoquery中写了一条语句：select a.name,b.name,c.mame from a,b,c where···，在SQL SREVER中可以正确执行，但到了adoquery里，后面的两个name显示的内容都是第一个name的值，即都是a.name，如果将b和c的name换成不同的名字执行就可以，为什么呢?是格式不对吗?