Vba: распечатать лист Excel на несколько страниц PDF - PullRequest
Новая
       10

Vba: распечатать лист Excel на несколько страниц PDF

0 голосов
/ 06 июня 2018

Я постараюсь сохранить это коротким.Я работаю над проектом Excel, и мне нужно напечатать в конце один лист, проблема в том, что напечатанный PDF слишком мал, поэтому я искал его на разных форумах и обнаружил, что мне нужно повернуть.FitToPagesTall = 0 Для того, чтобы рабочий лист Excel не помещался на одной странице PDF.Проблема, с которой я сейчас борюсь, заключается в том, что даже если PDF-страницы больше, чем раньше, они все еще малы, и их трудно читать.Моя идея состоит в том, чтобы напечатать каждые 30 строк (например) на странице pdf (Page1 -> Range ("A1: E30"), Page2 -> Range ("A31: E60") .. и т. Д., У вас есть идея)

Есть идеи, как мне это сделать, пожалуйста?

Заранее спасибо!

Обновление № 1: Вот снимок экрана только среза моего диапазона данных enter image description here

Даже если яустановите .PrintArea на A: D, он все равно даст тот же результат.Перефразируя мой запрос: я ищу способ напечатать разные диапазоны на нескольких страницах.

спасибо всем за то, что дали мне часть времени.

1 Ответ

0 голосов
/ 06 июня 2018

попробуйте адаптировать ориентацию и подогнать данные по горизонтали, примерно так: 

With ActiveSheet.PageSetup
    .PrintTitleRows = "$1:$1" 'to repeat your header on each page 
    .CenterHorizontally = True
    .CenterVertically = True
    .Orientation = xlLandscape ' or xlPortrait
    .Zoom = False
    .FitToPagesWide = 1 'fit to wide only
    .FitToPagesTall = 0
End With
...