/* Print Background Wordworth v1.0, for Wordworth v5 by Ryan Morse © 1996.
$VER: Print_BG_Wordworth_Macro 1.0 (24/1/96)

This macro is part of the PrintPlus (© Ryan Morse) Wordworth ARexx enhancement set.

INSTRUCTIONS: This script will print a document in the background of Wordworth 5. It will print the document using the current printer settings. If you would like the Print Setup requester to appear, then delete the comment brackets around this command resave this script.

NOTE: Background printing is only really suitable for users that have upgraded their processor - Wordworth will slow down, and may become unresponsive until printing has finished. */

/* Return results to obtain portname and file name */
OPTIONS RESULTS

/* Notify user */
REQUESTRESPONSE 'This script will PRINT a document in the BACKGROUND of Wordworth 5.'
/* If user cancels requester then stop script */
IF RC>0 THEN DO
	REQUESTNOTIFY 'AREXX MACRO CANCELLED.'
	EXIT
	END

/* DETERMINE DOCUMENT TO PRINT */
REQUESTRESPONSE 'PRINT CURRENT DOCUMENT?'
/* If user cancels requester then open document to print */
IF RC>0 THEN DO

	/* OPEN DOCUMENT TO PRINT */
	/* Create work area */
	NEW
	/* Create variable for result */
	Portname1 = RESULT
	/* Address work area */
	ADDRESS VALUE Portname1
	/* Request file */
	REQUESTFILE TITLE 'Select file to PRINT...'
	/* If user cancels requester then stop script */
	IF RC>0 THEN DO
		REQUESTNOTIFY 'AREXX MACRO CANCELLED.'
		EXIT
		END
	/* Create variable for file name */
	File = RESULT
	/* Open document */
	OPEN FILENAME File
	END

/* PRINT DOCUMENT IN BACKGROUND */
/* Change Print Setup - OPTIONAL */
/* PRINTSETUP */
/* Print document */
PRINTOPTIONS BACKGROUND
PRINT