При открытии отчета в VB6, в функции
Private Sub DataReport_Initialize()
If Printer.Orientation = 1 Then Printer.Orientation = 2
….
End Sub
В отладчике все работает нормально. Если запуск приложения происходит при установке Printer.Orientation = 1, то значение Printer.Orientation меняется и сохраняется до закрытия приложения, но на свойства самого принтера, установленного в системе, это ни как не влияет. Даже при устойчивом значении Printer.Orientation = 2 в отладчике, выскакивает ошибка, о нехватке места на странице и открывается пустая страница отчета. Да и проверка настройки печати принтера подтверждает, что ориентация страницы не меняется из программы. А при изменении ориентации в ручную, все работает нормально. Что не хватает, для того чтобы изменения свойства принтера при выполнении программы, менялись и в самом объекте?