各位大侠，赶紧过来帮忙看下，关于打印的问题

Question

我把数据保存到excel里，然后打印 ，为啥每次打印会打印出两份，
控制打印次数的语句怎么写？代码如下，高人给加一下
ExcelApp := CreateOleObject('Excel.Application');
    ExcelApp.WorkBooks.Open(path);
    WorkBook:=ExcelApp.WorkBooks.Open(path);
    WorkBook.WorkSheets[1].Activate;    WorkBook.WorkSheets[1].Cells[2,6].Value:='aaaa';    WorkBook.ActiveSheet.PrintOut;
    workBook.Saved := True;
    ExcelApp.WorkBooks.Close;
    ExcelApp.Quit;