Can anyone help with the following print problem please?

When printing Rbasic and Rlist reports from Arev 3.12 to a network printer the printjob seems to just sit in the queue until it eventually times out, then it appears on the printer. I've followed the steps outlined in some of the posts to the discussion board (see below) but to no avail. Is Esc&r1F the correct PCL to be using as the end-of-job command?

$insert sysinclude, print_constants

call driver_control(1)

call set_active_printer(2,printer,status)

printer on

* sending EscE

print @(prninit$)

perform 'list control (P'

* sending Esc&r1F

print @(endofjob$)

printer off

With Rbasic reports we can insert the following at the end:

data ''

perform 'setprinter'

This seems to work with Rbasic reports but can't be used with Rlist reports.

Any help appreciated

DonVJ

You don't mention the network OS so I assume it is a flavor of NT. In NT I close and reopen the print queue by calling the subroutine SETPTR. CALL SETPTR("LPT1":CHAR(0),1) is the syntax and that is a zero inside CHAR.

So, create a wrapper around your RLIST commands that runs this after each report. Or, if the users are in control, give them a MACRO that calls that routine when they want to release the print job.

Dave

Howsabout a PDISK PRN from tcl, or from an Execute statement inside a program?

Mike

PDISK PRN (SO

Is my preferred method. You can edit a 2 line VOC item PRINTIT (or whatever) and call that from where ever (menu, PERFORM etc).

1) TCL

2) PDISK PRN (SO

I have one more solution which I have used for the past year.

If you are printing a report from an RBasic program, insert a line at the end of the programs, i.e. LAST BREAK:, prior to the END;STOP. This line is

EXECUTE "SETPRINTER 1"

If you are processing the report from a menu, I have added the same routine to all my menu report options, e.g.

Code Command

E;E RUN BP REPORT ; SETPRINTER 1

Hope this helps.

View this thread on the forum...