bcb使用ole打开excel设置打印属性速度很慢，求解。
设置直到预览窗口打开需要8秒左右的时间，太慢了。
想请教下，有没有什么优化的方法，还是我使用方法不对。
代码
Variant Ex, wb;
try
{
Ex = Variant::CreateObject("Excel.Application");
}
catch(...)
{
Application->MessageBox(L"电脑中没有安装Excel，无法使用Excel打印", L"错误", MB_ICONSTOP | MB_OK);
return;
}
try
{
DWORD dwStart = GetTickCount();
Ex.OlePropertyGet("Workbooks").OleProcedure("Open", AnsiString(strExcelPath).c_str(),0,true);
Ex.OlePropertySet("DisplayAlerts", false);
//wb = Ex.OlePropertyGet("ActiveWorkBook").OlePropertyGet("ActiveSheet");
wb = Ex.OlePropertyGet("ActiveSheet");
wb.OlePropertyGet("PageSetup").OlePropertySet("PrintArea", AnsiString(strArea).c_str());
wb.OlePropertyGet("PageSetup").OlePropertySet("BlackAndWhite", true);
wb.OlePropertyGet("PageSetup").OlePropertySet("PaperSize", 9);
wb.OlePropertyGet("PageSetup").OlePropertySet("Zoom", false);
// 1纵向，2横向
wb.OlePropertyGet("PageSetup").OlePropertySet("Orientation", Orientation);
wb.OlePropertyGet("PageSetup").OlePropertySet("CenterHorizontally", true);
wb.OlePropertyGet("PageSetup").OlePropertySet("CenterVertically", false);
wb.OlePropertyGet("PageSetup").OlePropertySet("FitToPagesWide", 1);
wb.OlePropertyGet("PageSetup").OlePropertySet("FitToPagesTall", 1);
wb.OlePropertyGet("PageSetup").OlePropertySet("LeftMargin", 0.3);
wb.OlePropertyGet("PageSetup").OlePropertySet("RightMargin", 0.3);
wb.OlePropertyGet("PageSetup").OlePropertySet("TopMargin", 0.3);
wb.OlePropertyGet("PageSetup").OlePropertySet("BottomMargin", 0.3);
wb.OlePropertyGet("PageSetup").OlePropertySet("HeaderMargin", 0.3);
wb.OlePropertyGet("PageSetup").OlePropertySet("FooterMargin", 0.3);
MainFrm->WriteMemoInfo_sb(String(GetTickCount() - dwStart));
Ex.OlePropertySet("Visible", (Variant)true);
wb.OleFunction("PrintPreview",true);
//wb.OleFunction("PrintOut");
Ex.OleFunction("Quit"); // 退出Excel
// quit
// Ex.OleFunction("Quit");
}
catch(...)
{
// return;
}
Ex.OleFunction("Quit");
