>SET SAFETY OFF
>I follow your advice, however it doesn't work. SO I attach my program and see what you can give me some idea about that.
>
>******** Source code **********
>
>line = 1
>l_string = space(134)
>
>store fopen(CHK_PATH) to file_handle
>store fseek(file_handle,0,2) to ifp_size
>store fseek(file_handle,0) to ifp_top
>
>set device to print
>set printer to &OUTPUT

Set Print On


> ? substr(l_string,1,134)
>* @ line, 0 say substr(l_string,1,134)
> endif
> endif
>enddo

Set Print Off

>set print to
>set device to screen
>=fclose(file_handle)
>

Set Device is used to redirect the output of @...say commands; Set Printer is for all the other output. So you actually have to tell it when to start output to the printer, and when to stop. Everything else in the code seems fine.