Excuus voor de late reactie, probeer het volgende eens:
Sub afdrukbereik()
Dim f As Range
Dim t As Range
Dim FromCell As String
Dim ToCell As String
FromCell = Range("C1").Value
ToCell = Range("C2").Value
Set f = Range(FromCell)
Set t = Range(ToCell)
ActiveSheet.PageSetup.PrintArea = Range(f, t).Address
End Sub
G'luck
Mike