Afdrukken van selectie

[patjel]

Hallo,

Selectie afdrukken
doe dit nu met ctrl+p
krijg ik startpagina voor afdrukken
had graag via een makro mijn selectie afgedrukt
door P1018 te selecteren
ActiveSheet.Range.Selection(Cells(2), Cells(16)).Select ?
maar kom niet verder wie kan mij bij deze helpen.
Dank bij voorbaat
Groeten Pat

 

[VenA]

Probeer zoiets

Private Sub Afdruk_Click()
ActiveSheet.Range("B2:P16").PrintPreview
End Sub

 

[patjel]

Bedankt

Bedankt voor uw reactie op mijn vraag.
Groeten Pat