PrintSelectionToPDF - Select an area in sheet based on "Selected" - divided into 2 pages

I have written this, but have a problem that if one of the ranges are "False", then the print is divided into two printed pages. Can anyone see what the problem is?

Sub PrintSelectionToPDF()
Dim UruruSelected As Boolean, PerferaSelected As Boolean, StylishSelected As Boolean, EmuraSelected As Boolean, GulvSelected As Boolean
If Sheets("Indtast her").Range("F5").Value = "Ja" Then UruruSelected = True
If Sheets("Indtast her").Range("F9").Value = "Ja" Then PerferaSelected = True
If Sheets("Indtast her").Range("F13").Value = "Ja" Then StylishSelected = True
If Sheets("Indtast her").Range("F17").Value = "Ja" Then EmuraSelected = True
If Sheets("Indtast her").Range("F21").Value = "Ja" Then GulvSelected = True
Sheets("Prislisteudvalg").Select
Dim Headline As Range, Ururu As Range, Perfera As Range, Stylish As Range, Emura As Range, Gulv As Range, Bund As Range
Dim pdfile As String
'Setting range to be printed
Set Headline = Range("A1:I3")
Set Ururu = Range("A4:I7")
Set Perfera = Range("A8:I11")
Set Stylish = Range("A12:I15")
Set Emura = Range("A16:I19")
Set Gulv = Range("A20:I23")
Set Bund = Range("A24:I36") '
'Set myMultipleRange = Union(Headline, Ururu, Perfera, Stylish, Emura, Gulv, Bund)
Set myMultipleRange = Headline
If UruruSelected Then
Set myMultipleRange = Union(myMultipleRange, Ururu)
End If
If PerferaSelected Then
Set myMultipleRange = Union(myMultipleRange, Perfera)
End If
If StylishSelected Then
Set myMultipleRange = Union(myMultipleRange, Stylish)
End If
If EmuraSelected Then
Set myMultipleRange = Union(myMultipleRange, Emura)
End If
If GulvSelected Then
Set myMultipleRange = Union(myMultipleRange, Gulv)
End If
Set myMultipleRange = Union(myMultipleRange, Bund)
'setting file name with a time stamp.
pdfile = "Prisliste" & "_" & Format(Now(), "yyyymmdd_hhmmss") & ".pdf"
'setting the fulli qualified name. The resultent pdf will be saved where the main file exists.
pdfile = ThisWorkbook.Path & strfile
myMultipleRange.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=pdfile, _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=True
End Sub