I have one simple worksheet in a workbook. It consists of three print ranges.
++++++
Now I have a custom print button:
Sub Button27_Click()
Application.ScreenUpdating = False
Sheets("sheet1").Visible = True
Sheets("sheet1").Select
ActiveSheet.PageSetup.PrintArea = "$A$1:$E$120"...