Распечатать на одном листе - VB
Формулировка задачи:
Привет всем!
Подскажите, как можно настроить область печати, чтобы результат был на одном листе.
Подскажите, как можно настроить область печати, чтобы результат был на одном листе.
Решение задачи: «Распечатать на одном листе»
textual
Листинг программы
Sub slgkjkg()
Sheets("12_").PageSetup.PrintArea = Selection.Address
Application.PrintCommunication = False
With ActiveSheet.PageSetup
.FitToPagesWide = 1
.FitToPagesTall = 1
End With
Application.PrintCommunication = True
End Sub