Аксапта лезет в Excel

[Eldar9x]

winapi вариант. Возвращает контейнер с адресами принтеров:

static client server container EnumPrinters()
{
    container   con;

    #define.PRINTER_ENUM_LOCAL(0x00000002)
    #define.PRINTER_ENUM_FAVORITE(0x00000004)

    DLL         _winApiDLL = new DLL("winspool.drv");
    DLLFunction _enumPrinters = new DLLFunction(_winApiDLL, 'EnumPrintersA');


    Binary      bytes_needed    = new Binary(4);
    Binary      returned        = new Binary(4);
    Binary      printers;
    Binary      bStr            = new Binary(255);
    Binary      bByte           = new Binary(1);

    Binary      PRINTER_INFO_4;


    int ret, i, offs;
    ;

    _enumPrinters.returns(ExtTypes::DWord);

    _enumPrinters.arg(  ExtTypes::DWord,
                        ExtTypes::Pointer,
                        ExtTypes::DWord,
                        ExtTypes::Pointer,
                        ExtTypes::DWord,
                        ExtTypes::Pointer,
                        ExtTypes::Pointer
                        );

    bStr.string(0, "");
    bByte.byte(0, 0);

    ret = _enumPrinters.call( #PRINTER_ENUM_LOCAL | #PRINTER_ENUM_FAVORITE,
                        bStr,
                        4,
                        bByte,
                        0,
                        bytes_needed,
                        returned );


    printers = new Binary(bytes_needed.dWord(0));


    ret = _enumPrinters.call(  #PRINTER_ENUM_LOCAL | #PRINTER_ENUM_FAVORITE,
                        bStr,
                        4,
                        printers,
                        bytes_needed.dWord(0),
                        bytes_needed,
                        returned );

    for (i = 0; i < returned.dWord(0); i++)
    {
        bStr.attach(printers.dWord(offs), 255);

        con += bStr.string(0);

        offs += 12;
    }

    return con;
}

[KingPeas]

Цитата:

Сообщение от Eldar9x

winapi вариант. Возвращает контейнер с адресами принтеров:

Вот только чистые названия принтеров эксель не кушает, ему нужно свое с указанием всех (Ne01, (LPT1 и т.д.
А получить список принтеров можно и через PrintJobSettings; Видел пост на форуме, правда где не помню, но через поиск легко найдете. Да и через SysFormPrint я уже диалог сделал для извлечения нужного имени. Проблема не в этом, а как скормить сие экселю

[KingPeas]

Цитата:

Сообщение от petergunn

Похоже что информация о портах есть в этих ветках реестра:

Я с реестром мало работал. Эти ветки неизменны будут для разных операционных? Получается если я поставлю на сервер то как это будет отрабатывать на клиентах?

Цитата:

Сообщение от Eldar9x

дык, так и скормить:

COM doc, app;
;  
doc = excel.getComDocument();
app = doc.Application();
app.ActivePrinter("\\\\ipp://192.168.20.1\\Printers_VO (Ne01:)");

зы: причем надо полное указывать. Такое вот, например:

app.ActivePrinter("Printers_VO (Ne01:)");

не пройдет.

Получить имя принтера не проблема) И установить в экселе легко, вопрос как получить (Ne01 по имени принтера безболезненно и стабильно для любой системы