PRINTBIN Direct_Print Message

The PRINTBIN message is used to print binary data with embedded nulls.

The message accepts one parameter. The parameter should contain the binary data to be sent to the printer.

START Direct_Print() message

STOP Direct_Print() message

PRINT Direct_Print() message

ABORT Direct_Print() message

PAGE Direct_Print() message

Direct_Print Error Codes

Direct_Print() function

Subroutine Direct_Print_Example(startValue)

Declare Function Direct_Print, Unassigned

If Unassigned(startValue) Then startValue = ''

Equ HP_Bold$ To char(27):'(s3B'

Equ HP_Norm$ To char(27):'(s-5B'

* This case statement contains the various START options

Begin Case

  Case startValue = ''

    retval = Direct_Print('START','','','') ; * print to default printer

  Case startValue = 'ToFile'

    retval = Direct_Print('START','','C:\TEMP\DIRECT_PRINT_EXAMPLE.TXT',1) ; * Print To file

  Case startValue = 'Different_Printer'

    retval = Direct_Print('START','HP LaserJet 2200 Series PCL 6','','') ; * print to a specific printer

End case

If retval < 1 then Goto ErrorHandler

* Print 30 lines of bold text

For i = 1 To 30

  retval = Direct_Print('PRINT',HP_Bold$:'This first page contains bold text.')

  If retval < 1 then Goto ErrorHandler

Next i

retval = Direct_Print('PAGE') ; * Force page break

If retval < 1 then Goto ErrorHandler

For i = 1 To 30

  retval = Direct_Print('PRINT',HP_Norm$:'This page contains plain text.')

  If retval < 1 then Goto ErrorHandler

Next i

retval = Direct_Print('PAGE') ; * Force page break

If retval < 1 then Goto ErrorHandler

retval = Direct_Print('PRINT','This page contains concatenated text.',0)

If retval < 1 then Goto ErrorHandler

retval = Direct_Print('PRINT','This page contains concatenated text.',1)

If retval < 1 then Goto ErrorHandler

* End the Print Job

retval = Direct_Print('STOP')

ErrorHandler:

If retval < 1 Then

  Swap @fm With  @vm In retval

  call Msg(@Window,'ERROR':retval)

  retval = Direct_Print('ABORT')

End

Return