GeMIS_WEB/GUI/Tools/druckertest.p

DEF VAR cString     AS MEMPTR       NO-UNDO.

FILE-INFO:FILE-NAME = SESSION:TEMP-DIR + 'test.txt'.
SET-SIZE(cString) = FILE-INFO:FILE-SIZE.

INPUT FROM VALUE(FILE-INFO:FILE-NAME) NO-ECHO NO-CONVERT BINARY.
IMPORT UNFORMATTED cString.
INPUT CLOSE.

OUTPUT TO '\\anasrv01\hplaserjet'.
PUT CONTROL STRING(cString).
PUT CONTROL CHR(12).
OUTPUT CLOSE.