Problems Defining A Print Range

[Ark68]

I am trying to use VBA to creat a dynamic print range. What I have doesn't seem to be working. Will someone be kind enough to have a look at what I have and share with me where I have went wrong and a possible solution? The line in red is giving me a "Type mismatch error"

Sub printme_d()
    dim rwtopLeft as Long, coltopLeft as Long
    dim rwbtmRight as ong, colbtmRight as Long
    dim diarng as range
    Stop
    rwtopLeft = Application.WorksheetFunction.VLookup("D", ws_lists.Range("X3:AD10"), 3, False)
    coltopLeft = Application.WorksheetFunction.VLookup("D", ws_lists.Range("X3:AD10"), 4, False)
    rwbtmRight = Application.WorksheetFunction.VLookup("D", ws_lists.Range("X3:AD10"), 5, False)
    colbtmRight = Application.WorksheetFunction.VLookup("D", ws_lists.Range("X3:AD10"), 6, False) + 26
    
    Set diarng = ws_front.Range(ws_front.Cells(rwtopLeft, coltopLeft), ws_front.Cells(rwbtmRight, colbtmRight))
    
    With ws_front.PageSetup
        ws_front.Unprotect
        .PrintArea = diarng 
        pgnums = .Pages.Count
        ws_front.Protect
    End With
    . . .

 

[Ark68]

I think I know the problem here, but I certainly don't know how to fix it.
The value for PrintArea has to be text. I'm try to use the range I want to set. How can I get the text equivalent of my range?

 

[John_w]

Use the Range's Address property: .PrintArea = diarng.Address.

Address is very useful to verify that a Range is referencing the correct cells, particularly when adjusting a Range with the Offset, Resize and Item properties.

 

[Ark68]

Awesome! Thanks John_W!