Как сделать кнопку для печати таблиц из экселя

    //запускаем Excel
    Excel = CreateOleObject("Excel.Application");
    Excel.OlePropertySet("Visible", false);
    Excel.OlePropertySet("DisplayAlerts", false);
 
    //создаем книгу по шаблону
    WorkBook = Excel.OlePropertyGet("WorkBooks")
                    .OleFunction("Add", xlt);
    WorkSheet = WorkBook.OlePropertyGet("WorkSheets", 1);
 
    //отметка времени
 
    SYSTEMTIME t;
    GetLocalTime(&t);
 
    char s[32];
    sprintf(s, "%02hu.%02hu.%hu %02hu:%02hu:%02hu",
        t.wDay, t.wMonth, t.wYear, t.wHour, t.wMinute, t.wSecond);
    WorkSheet.OlePropertyGet("Cells", 1, 6)
             .OlePropertySet("Value", s);
 
    //данные
    data_type *p = (data_type *)data;
    for (int i = 0; i < field_count_xls; i++)
        WorkSheet.OlePropertyGet("Cells", i + 4, 6)
                 .OlePropertySet("Value", p++->value);
 
    //сохраняем, печатаем, выходим
    sprintf(s, "%hu-%02hu-%02hu %02hu-%02hu-%02hu",
        t.wYear, t.wMonth, t.wDay, t.wHour, t.wMinute, t.wSecond);
    WorkBook.OleProcedure("SaveAs", (AnsiString(xls) + '\\' + s).c_str());
    WorkSheet.OleProcedure("PrintOut");
    Excel.OleProcedure("Quit");