Показать сообщение отдельно
Старый 30.09.2009, 19:53   #6  
Gustav is offline
Gustav
Moderator
Аватар для Gustav
SAP
Лучший по профессии 2009
 
1,858 / 1152 (42) ++++++++
Регистрация: 24.01.2006
Адрес: Санкт-Петербург
Записей в блоге: 19
ХА-ХА-ХАААА... А вообще всё было проще!

COMVariant для Zoom!!

X++:
#define.xlDialogPageSetup(7)
static void Job211(Args _args)
{
    ComExcelDocument_RU excel = new ComExcelDocument_RU();
    COM doc;
    COM app;
    COM worksheet;
    COM pageSetup;
    COM temp;
    COMVariant cv = new COMVariant();

    ;
    excel.newFile();
    doc = Excel.getComDocument();
    app = doc.Application();
    worksheet = app.ActiveSheet();

    pageSetup = worksheet.PageSetup();

    cv.boolean(false);
    pageSetup.Zoom(cv);
    pageSetup.FitToPagesWide(2);
    pageSetup.FitToPagesTall(3);

    // это для демонстрации того, что получается
    temp = app.Dialogs();
    temp = temp.Item(#xlDialogPageSetup);
    temp.Show();
}
Правда, значение comVariant.noValue() - на случай пустого значения полей "Fit to" - что-то пока не получается передать в FitToPagesWide или в FitToPagesTall...

Последний раз редактировалось Gustav; 30.09.2009 в 20:14.
За это сообщение автора поблагодарили: Alenka (1), zelibobis (1), decoder (1).