Ændre eller bevare font størrelse når et ark bliver omdannet til PDF

Jeg har denne sekvens, som NATKATTEN har skrevet (tak)
Private Sub makePDFfromRange()
' Denne kode opretter en pdffil i TEMPmappen af den aktive fane -  udskriftsområde defineres i koden

myPath = ActiveWorkbook.Path & tempMappe
If Len(Dir(myPath, vbDirectory)) = 0 Then MkDir myPath ' opretter undermappen hvis ikke den allerede findes
myFullPath = myPath & "\" & tempPDF
Range(mySelection).Name = "myRange"
ActiveSheet.PageSetup.PrintArea = Range("myRange").Address

' DANNER PDF
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=myFullPath, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False

End Sub

Jeg antager det er her, jeg skal gøre noget.
Som det er nu, er Font størrelsen på PDF udskriften ca. 8, uanset hvad der er i axcelarket, og jeg skal bruge mindst 12 eller mere, så det kan læses uden briller :-)