Код VBA в RSViewSE приводит к зависанию

[kempo]

На экране есть тренд, фон которого черного цвета (дабы лучше было видно перья). Возникла необходимость печатать тренд на белом фоне. Решил сделать это по нажатию одной кнопки.
Использую VBA код что бы печатать тренд
Что бы напечатать на белом фоне - вначале делаю фон белым, потом печатаю, потом снова делаю черным.
Так вот - после того как напечатал - клиент жестко виснет. Ничего не могу с ним сделать - только через менеджер задач получается снять
если начинаю отлаживать в студии это - то такая же фигня - тока студию снимать через менеджер задач
Если после нажатия кнопки в окне выбора принтера отменить печать - то все продолжает нормально работать. Но если нажать ОК - полный подвисон.

Сам код VBA:
Private Sub Button1_Released()
Trend1.BackgroundColor = 16777215
Trend1.PrintChart False, True
Trend1.BackgroundColor = 0
End Sub

[SimpleX]

Добрый день!
Написанный Вами код полностью работоспособен и приводит к желаемому результату. Вероятно, имеет смысл искать проблему в операционной системе, или же, что маловероятно, в настройках принтера.

[dv_]

[kempo]

[mr_Vad]

А нельзя было сделать проще, без VBA.
Например:
Invoke Me.RStrendx.PrintChart(0,1)

[SimpleX]

Добрый день!
Без VBA можно было бы, но суть не в том, что бы распечатать тренд. Необходимо предварительно изменить его фон.