Программное нажатие функциональной клавиши?

vga

Добрый день!
Сорри, по поиску в форуме на нашел.

Мужно последовательно открывать документы в Excel и распечатывать.
Ничего лучше не придумал, как, чтобы не терять интерактивность с пользователем, пролистывание документов делать через программный вызов события "Нажать кнопку PageDown".
Осталось только найти способ, как программно затолкнуть событие нажатия функ. клавиши в очередь событий?

Да, кстати попутный вопрос.
Какая последовательность вызова ole2 объектов, чтобы установить свойство PrinterName = 'theMyPriner' в Excel?

sy-uname

vga написал(а):

Добрый день!
Сорри, по поиску в форуме на нашел.

Плохо искал

Цитата:

Мужно последовательно открывать документы в Excel и распечатывать.
Ничего лучше не придумал, как, чтобы не терять интерактивность с пользователем, пролистывание документов делать через программный вызов события "Нажать кнопку PageDown".
Осталось только найти способ, как программно затолкнуть событие нажатия функ. клавиши в очередь событий?

Вообще с такими вопросами надо не на форум по ABAPу, а на форум по VBA (ну и help по нему же изучать)

Цитата:

Да, кстати попутный вопрос.
Какая последовательность вызова ole2 объектов, чтобы установить свойство PrinterName = 'theMyPriner' в Excel?

http://msdn.microsoft.com

vga

sy-uname написал(а):

Вообще с такими вопросами надо не на форум по ABAPу, а на форум по VBA (ну и help по нему же изучать)

В VBA свойство устанавливается так:
Dim pd As New PrintDocument()
' Specify the printer to use.
pd.PrinterSettings.PrinterName = printer

Не совсем понятно, через какой объект получить хэндлер на PrinterSettings в abap:
CALL METHOD OF H_APPL 'PrinterSettings' = H_PRINT_SETTING.

PrintDocument выдает ошибку.

sy-uname

vga написал(а):

В
Не совсем понятно, через какой объект получить хэндлер на PrinterSettings в abap:
CALL METHOD OF H_APPL 'PrinterSettings' = H_PRINT_SETTING.

PrintDocument выдает ошибку.

А ведь PrinterSettings это не метод, а Properties - значит GET PROPERTY

vga

Удалось получить имя активного принтера, то если его тут же попытаться установить, то выдается ошибка. Странно.

Code:

FORM set_excel_printer_name
  USING
    document TYPE REF TO i_oi_document_proxy
    l_printername type ESEWINPR.

DATA:
  h_application TYPE ole2_object,

DATA:
   l_handle    TYPE cntl_handle.

  CALL METHOD document->get_document_handle
    IMPORTING
      handle   = l_handle.

* Gettig OLE-Application

  CALL METHOD OF l_handle-obj 'Application' = h_application.

  GET PROPERTY OF h_application 'ActivePrinter' = l_printername.

  SET PROPERTY OF h_application 'ActivePrinter' = l_printername.

ENDFORM. 

Правила форума

Программное нажатие функциональной клавиши?

Кто сейчас на конференции