Print report from button

HI, can someone please help me on how I can open a custom report from a screen on button click and pass the parameters from the screen to the report - for eg. batnbr, refnbr etc. 

This is my current code:

Dim prm1 As String
Dim prm2 As String

prm1 = GetObjectValue("cbatnbrb")
prm2 = GetObjectValue("crefnbr")

prm1 = "batch.batnbr = " & SParm(prm1)
prm1 = prm1 & "and apdoc1.refnb = " & SParm(prm2) & " /WHERE "

Call ApplSetParmValue(PRMSECTION_VBRDT, "", "PF017/RUN")
Call ApplSetParmValue(PRMSECTION_VBRDT, "", "PF017/FORMAT")
Call ApplSetParmValue(PRMSECTION_VBRDT, "", prm1)
Call ApplSetParmValue(PRMSECTION_VBRDT, "", "/PSCRN")
Call Launch("ROI", True, True, 0)

this just makes the screen go disabled for a while like it want to open the report and then just nothing.

Any help on this will be much appreciated!