параметры принтера

[_AxDevel_]

Для печати отчёта пользуюсь классом ComExcelDocument_RU. У пользователя возникло желание сразу отправлять (без предпросмотра) на принтер (это реализовано) на печать в ДУПЛЕКСНОМ режиме. Никак не получается справиться с этим. Как задавать параметры принтера?

[AndyD]

Устанавливать на принтере по умолчанию перед выводом на печать режим дуплексной печати и снимать его после.
Здесь есть пример для Visual Basic. Этот код можно переложить на Аксапту и реализовывать изменения из нее
А вот здесь этот же код адаптирован для VBA

[Alexx7]

Цитата:

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

Устанавливать на принтере по умолчанию перед выводом на печать режим дуплексной печати и снимать его после.
Здесь есть пример для Visual Basic. Этот код можно переложить на Аксапту и реализовывать изменения из нее
А вот здесь этот же код адаптирован для VBA

А кто то уже адаптировал на X++?
Очень нужно. А времени мало.

Спасибо.

[pitersky]

Цитата:

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

У пользователя возникло желание сразу отправлять (без предпросмотра) на принтер (это реализовано)

В ComExcelDocument_RU я не нашёл подходящего метода. Вы это сами дописывали или где-то всё-таки есть?

[jonny]

Нет, в стандартном классе нету.

[lev]

про дуплексную печать...
все на самом деле просто, изначально в windows в настройках принтера нужно поставить галку "Двухсторонняя печать". Затем нужно отправлять на печать всю книгу целиком, одним заданием. Если будете выводить на печать перебирая листы, дуплексной печати не получиться, потому что каждый лист будет уходить отдельным заданием, а принтер каждое задание начинает с нового листа.

по поводу реализации вывода сразу на печать. делаете галку в отчете "На принтер". Если галка стоит то делаете следующее (у нас написана своя обертка для вывода в Excel, но думаю вы поймете что к чему):
1. печатаем книгу:

excel.activeWorkBook().PrintOut(1, // From: OleVariant;
                                        32767, // To_: OleVariant;
                                        cntCopies ? cntCopies : 1, //Copies: OleVariant;
                                        false, // Preview: OleVariant;
                                        activePrinter, // ActivePrinter: OleVariant;
                                        false, // PrintToFile: OleVariant;
                                        true); //Collate: OleVariant; галка печатать "всю книгу"

2. Закрываем документ:

excel.ActiveWindow().Close(false); // save changes

или

excel.finalize();

[lev]

да забыл, перед формированием отчета конечно надо сделать excel.visible(false) что бы ничего лишнего на экран не выпрыгивало.

[pitersky]

Цитата:

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

по поводу реализации вывода сразу на печать...

excel.activeWorkBook().PrintOut(1, // From: OleVariant;
                                        32767, // To_: OleVariant;
                                        cntCopies ? cntCopies : 1, //Copies: OleVariant;
                                        false, // Preview: OleVariant;
                                        activePrinter, // ActivePrinter: OleVariant;
                                        false, // PrintToFile: OleVariant;
                                        true); //Collate: OleVariant; галка печатать "всю книгу"

Наверное, я чего-то не знаю. Но никакого activeWorkBook() на excel я не нашёл. Может это вы дописывали сами?

[Freeangel]

Добавьте метод в класс ComExcelDocument_RU

void printOut(int _cntCopies = 1)
{
m_ComDocument.PrintOut(1, // From: OleVariant;
32767, // To_: OleVariant;
cntCopies, //Copies: OleVariant;
false, // Preview: OleVariant;
1, // ActivePrinter: OleVariant;
false, // PrintToFile: OleVariant;
true);
}

[kornix]

Цитата:

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

Наверное, я чего-то не знаю. Но никакого activeWorkBook() на excel я не нашёл. Может это вы дописывали сами?

activeWorkBook можно получить так

т.е. сначала от ComExcelDocument_RU можно получить getComDocument(), потом то что получили можно сохранить в COM, и от этой COM-переменной вызвать метод Application(), как написано в статье из ссылки:

    excel = new ComExcelDocument_RU(); 
    excel.newFile(fileName,true);
    doc = excel.getComDocument(); 
    app = doc.Application();             
    Workbook = app.ActiveWorkbook();

[lev]

Цитата:

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

Наверное, я чего-то не знаю. Но никакого activeWorkBook() на excel я не нашёл. Может это вы дописывали сами?

excel это ком:

excel = new COM("Excel.Application");

а уже у com объекта есть необходимая функция activeWorkBook(). После точки просто напишите это и все будет ок аксапта откомпилируется, и будет вам счастье.

[samolalex]

Цитата:

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

Наверное, я чего-то не знаю. Но никакого activeWorkBook() на excel я не нашёл. Может это вы дописывали сами?

Вы не нашли activeWorkBook(), потому что доступ к методам классов COM, ComExcelDocument_RU, ComWordDocument_RU происходит по принципу позднего свзвания, т.е. во время исполнения кода программы, в то время как при работе с другими классами срабатывает технология IntelliSense, благодаря которой при указании точки после экземпляра класса всплывает список доступных методов. Поэтому следуйте совету автора предыдущего сообщения

[Gustav]

Цитата:

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

activeWorkBook можно получить так

т.е. сначала от ComExcelDocument_RU можно получить getComDocument(), потом то что получили можно сохранить в COM, и от этой COM-переменной вызвать метод Application(), как написано в статье из ссылки:

    excel = new ComExcelDocument_RU(); 
    excel.newFile(fileName,true);
    doc = excel.getComDocument(); 
    app = doc.Application();             
    Workbook = app.ActiveWorkbook();

В данном конкретном случае две последние строки лишние, т.к. переменная doc в 3-й строке уже содержит ссылку на worbook, который active. Т.е. и doc, и Workbook после отработки этих 5 строк ссылаются на один и тот же объект.

[Logger]

Цитата:

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

Здесь есть пример для Visual Basic. Этот код можно переложить на Аксапту и реализовывать изменения из нее
А вот здесь этот же код адаптирован для VBA

Ссылка битая но через архив доступна
https://web.archive.org/web/20130915...cle.asp?ID=116

На всякий случай сохранил как файл.