Access: Программная прокрутка отчета
Модератор: Naeel Maqsudov
Добрый день! По умолчанию при открытии предварительного просмотра отчета показывается левая верхняя граница страницы. А как можно передвинуть скроллбар вправо (а вообще мне нужно до правого края)? Или вниз например?
Вот код как центровать экран относительно выделения. Можете поступить, по идее просто, вместо выделения задать крайнюю ячейку листа. Крайнюю правую, левую, нижнюю, верхнюю. В общем любую.
With ActiveWindow
With .VisibleRange
irow = .Row + (.Rows.Count \ 2) - 1
icolumn = .Column + (.Columns.Count \ 2) - 1
End With
.SmallScroll _
Down:=.ActiveCell.Row - irow, _
ToRight:=.ActiveCell.Column - icolumn
End With
----------------------------------------
Упс. Сорри. Прсмотрел, что речь об access. Я же про excel. Жара.
With ActiveWindow
With .VisibleRange
irow = .Row + (.Rows.Count \ 2) - 1
icolumn = .Column + (.Columns.Count \ 2) - 1
End With
.SmallScroll _
Down:=.ActiveCell.Row - irow, _
ToRight:=.ActiveCell.Column - icolumn
End With
----------------------------------------
Упс. Сорри. Прсмотрел, что речь об access. Я же про excel. Жара.
В общем, пока решил так:
VBA.SendKeys "{RIGHT}"
в нужном количестве в цикле (кол-во прогонов цикла зависит от ширины получаемого документа)...
VBA.SendKeys "{RIGHT}"
в нужном количестве в цикле (кол-во прогонов цикла зависит от ширины получаемого документа)...