;+
; NAME:
;	IsPrinter
; PURPOSE:
;	Check whether !d.name is the printer
; CATEGORY:
;	Environment
; CALLING SEQUENCE:
	FUNCTION IsPrinter, dev
; INPUTS:
;	(none)
; OUTPUTS:
;	Result		scalar; type: byte
;					1: it's a printer device
;					1: it's not the printer
; INCLUDE:
	@compile_opt.pro		; On error, return to caller
; PROCEDURE:
;	Returns true if !d.name is !ThePrinter or !d.name = 'PS'.
;	!TheTerminal is set during IDL startup
; MODIFICATION HISTORY:
;	FEB-2000, Paul Hick (UCSD/CASS; pphick@ucsd.edu)
;-

InitVar, dev, !d.name

return, dev eq !ThePrinter or dev eq 'PS'  &  end