====== PRINTBIN Direct_Print Message ======


 
==== Description ====
 
The PRINTBIN message is used to print binary data with embedded nulls.
 
==== Parameters ====
 
The message accepts one parameter.  The parameter should contain the binary data to be sent to the printer.
 

 
==== See Also ====
 
[[start_direct_print_message|START Direct_Print() message]]

[[stop_direct_print_message|STOP Direct_Print() message]]

[[print_direct_print_message|PRINT Direct_Print() message]]

[[abort_direct_print_message|ABORT Direct_Print() message]]

[[page_direct_print_message|PAGE Direct_Print() message]]

[[direct_print_error_codes|Direct_Print Error Codes]]

[[direct_print|Direct_Print() function]]
 
==== Example ====
 
<code>
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
 
 
 
 
 
 
 
 
</code>