установить область печати, чтобы соответствовать после выбранного

Question

Я работаю над созданием счета-фактуры для компании с Excel

Так что этот счет-фактура основан на изменяемом количестве строк, и я пытаюсь выбрать область печати в зависимости от того, к какому счету пришел и затем подгоните под настроенную страницу печати

Я смог сделать первое успешно, но мне тяжело сделать этот выбор подходящим для страницы печати потом

вот мой код

Sub BBPRINT_AREA()
    Range("AR148:AW239").Select
    ActiveSheet.PageSetup.PrintArea = ""
    ActiveSheet.PageSetup.PrintArea = "$AR$148:$AW$239"
    ActiveSheet.PrintPreview
End Sub

Answer 1

Следующий код можно использовать для выбора диапазона для печати. ​​

Обратите внимание, что для параметра Формат бумаги установлено значение A4, а область печати помещается на одной странице. Вы можете изменить оба этих свойства в Параметры страницы после запуска макроса и открытия предварительного просмотра печати. Макрос не остановится, если вы не выйдете из режима предварительного просмотра.

Sub SelectPrintArea()

Dim ws As Worksheet
Set ws = ActiveSheet

Dim SelectPrint As Range
Set SelectPrint = Application.InputBox(prompt:="Sample", Type:=8)

With ws.PageSetup
 .PrintArea = SelectPrint.Address
 .PaperSize = xlPaperA4
 .Zoom = False
 .FitToPagesTall = 1
 .FitToPagesWide = 1
End With

ws.PrintPreview

End Sub