delphi操作Excel打印问题

我现在用Ole方法打开Excel，我想通过虚拟打印机，把Excel打印成一个PDF文件，不需要提示打印设置，直接按照我给的路径保存。像操作Word这样
procedure TForm1.Button1Click(Sender: TObject);
var
   wdo,wdoc,wdocs : OleVariant;
begin
  wdo := CreateOleObject('Word.Application');
  wdocs := wdo.Documents;
  wdo.ActivePrinter := 'SmartPrinter';
  wdoc := wdocs.Open('D:\虚拟文件\Test1.doc');
  wdoc.PrintOut(0, 0, 0,'D:\虚拟文件\报告合成1.pdf');
  wdoc.Close;
end;
但是我不熟悉Ole控制Excel的打印方法，不动怎么样操作Excel执行同样的操作，请高手们帮帮忙！