font grote aanpassen

[spokkem]

Hallo Heren en Dames

ik heb dit stukje gemaakt en het werkt

Sub Printen_afleveradres()
Application.ScreenUpdating = False
ActiveSheet.Range("F12:F15").PrintOut Copies:=1
Application.ScreenUpdating = True
    Range("B21").Select
End Sub

maar ik wil graag de font size verhogen zodat hij een wat groter lettertype uitprint.
maar het lettertype in het werkblad moet hetzelfde blijven
kan dit zo ja hoe dan.

vr gr theo

 

[Cobbe]

Zo zou dat kunnen:

Sub Printen_afleveradres()
 Application.ScreenUpdating = False
 With ActiveSheet.Range("F12:F15")
        .Font.Size = 20
        .PrintOut Copies:=1
        .Font.Size = 10
 End With
 Application.ScreenUpdating = True
End Sub

 

[HSV]

Zoiets?

Sub Printen_afleveradres()
Application.ScreenUpdating = False
With ActiveSheet
  .Range("F12:F15").Font.Size = 20
  .PageSetup.PrintArea = "F12:F15"
  .PrintOut
  .PageSetup.PrintArea = ""
  .Range("F12:F15").Font.Size = 11
 End With
End Sub

 

[spokkem]

Hallo Harry en cobbe

bedankt voor de snelle reactie jullie oplossingen werken alle twee goed bedankt hiervoor.

vr gr Theo