What error are you getting? Why are you using the prompt in the Report Form Statement. You have already prompted the user for the printer in the GETPRINTER statement. I would either use the GETPRINTER statement or the prompt in the Report Form Statement. The prompt gives you more control.


cPrinter = GETPRINTER( )
SET PRINTER TO NAME (cPrinter)
SET DEVICE TO PRINTER
SET PRINTER ON
If ThisForm.stcntletter.Stcheckbox1.value = 1
Report Form strpconshorseletter to printer Preview
Else
Report Form strpconshorseletter for cons_no = thisform.stcntletter.stcmbcon.value to printer Preview
Endif

------------------------- or -----------------------------

If ThisForm.stcntletter.Stcheckbox1.value = 1
Report Form strpconshorseletter to printer Prompt Preview
Else
Report Form strpconshorseletter for cons_no = thisform.stcntletter.stcmbcon.value to printer Prompt Preview
Endif