Print Macro -print each range on one Page

[howard]

I have a user form to print several ranges

I would like my Print macro to be amended so that each Print Area prints on 1 page eg bTM1

See snippet of my code


your assistance is most appreciated

 Private Sub OKButton_Click()
Application.ScreenUpdating = False
If OptionBTM Then
Range("BTM1").Select
    ActiveSheet.PageSetup.PrintArea = ""
    ActiveSheet.PageSetup.PrintArea = "BTM1"
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
       Range("BTM2").Select
    ActiveSheet.PageSetup.PrintArea = "BTM2"
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
    Range("A1").Select
    End If

If OptionKPT Then
Range("KPT1").Select
    ActiveSheet.PageSetup.PrintArea = ""
    ActiveSheet.PageSetup.PrintArea = "KPT1"
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
       Range("KTP2").Select
    ActiveSheet.PageSetup.PrintArea = "KTP2"
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
    Range("A1").Select
    End If

End Sub

 

[howard]

I have also posted on Macro to print all ranges on 1 page