excel vba изменение размера область печати

У меня есть инструмент для Excel, который был сделан кем-то передо мной. Однако, когда инструмент был создан, он выводит рабочие листы на определенный размер, который подходит для области печати в Excel 2007. Однако в excel 2010 калибровка отключена. Как изменить размер области печати на листе, не изменяя размер отдельных ячеек на каждом листе?excel vba изменение размера область печати

Спасибо всем, кто может предложить их 2 цента.

источник

2012-03-01 thebiglebowski11

Было бы полезно увидеть код, который не работает. Я не уверен, что вы пытаетесь сделать. Я бы тоже использовал макрорекордер. Включите его, выполните шаги, необходимые для правильной установки, и он должен создать полезный код. –

У меня нет кода. У меня просто есть инструмент excel, который генерирует новые рабочие листы информации, которые можно распечатать. Но размер новых рабочих листов не всегда подходит. Я думаю, мне нужно изменить размер печати для каждого листа с помощью функции и вызывать эту функцию каждый раз, когда создается новая страница. Кроме того, страницы вставляются в новый лист один за другим, поэтому на каждом листе есть несколько страниц для печати. Если я могу область печати только один раз, будет ли она делать все страницы на этом листе того же размера? – thebiglebowski11

Я предполагаю, что возможность задать область печати в диапазоне ячеек будет программно получить, где вы бы хотели быть:

Dim MyPrintArea As Range 
Set MyPrintArea = ActiveSheet.Range("A1:G15") 

ActiveSheet.PageSetup.PrintArea = MyPrintArea

Лучшее, что я мог сделать, основываясь на аск.

источник

2012-03-01 23:36:37 PatternMatching

PrintArea - это строка, поэтому ваш код должен быть: ActiveSheet.PageSetup.PrintArea = MyPrintArea.Address или обходить диапазон и просто использовать строку, например: ActiveSheet.PageSetup.PrintArea = "A1: G15" –

excel vba изменение размера область печати

ответ

Смежные вопросы