Sub LoadBMPfromFile(FName)
  Dim bmpobj as BMP                   'declare our BMP object
  Set bmpobj = New BMP                'initialize it
  bmpobj.FileName = FName             'supply the file name

  If bmpobj.ReadFile Then             'read BMP file
    ImgSz = bmpobj.Size               'get image size
    ReDim TheBytes(1 To ImgSz)        'adjust image receptacle size
    BytesPerRow = bmpobj.width        'get bytes in an image
    row Rows = bmpobj.Height          'get number of rows in image 
    Call bmpobj.GetImage(TheBytes)    'retrieve the image
    'generate printable form of image
    s = MakeSignatureString(ImgSz, Rows, BytesPerRow, TheBytes)  
  End If 
  Setbmpobj = Nothing                 'clean up memory 
End Sub

Function ResolutionCommand(width) As String 
'Returns an HP printer resolution command, based on width, 
'to cause the signiture to occupy approximately 2.5 inches.
  Dim i As Integer
  i = CInt(width / 2.5)

  If i < 100 Then
    i = 75
  ElseIf i < 150 Then
    i = 100
  ElseIf i < 200 Then
    i = 150
  ElseIf i < 300 Then
    i = 200
  ElseIf i < 600 Then
    i = 300
  Else
    i = 600
  End If
  ResolutionCommand = Chr$(27) + "*t" + Trim(str(i)) + "R"
End Function

Function MakeSignature(ImgSz, Rows, BytesInRow, TheBytes()) 
'Returns HP printer string
  Dim s     As String
  Dim row   As Integer
  Dim abyte As Integer
  Dim arow  As String
  Dim Esc   As String * 1
  Esc = Chr$(27)
  s = ResolutionCommand(BytesInRow * 8) 'set raster resolution
  s = s + Chr$(27) + "*r0F"            'set logical page orientation
  s = s + Chr$(27) + "*r1A"            'start at current cursor position

  For row = Rows To 1 Step -1
    arow = ""                          'init. the output string

    For abyte = 1 To BytesInRow - 2    'construct the output string
      arow = arow + Chr$(Not (TheBytes((row - 1) * BytesInRow + abyte)))
    Next                               'abyte
    'make it into a raster graphics command
    arow = Chr$(27) + "*b" + Trim(str(Len(arow))) + "W" + arow
    s = s + arow                       'output the row
  Next                                 'row
  s = s + Chr$(27) + "*rC"             'end graphics
  MakeSignatureString = s
End Function

Declare Function OpenPrinter Lib "winspool.drv" Alias "OpenPrinterA" ( _
        ByVal pPrinterName As String, phPrn As Long, pDefault As Any) _
        As Long
Declare Function StartDocPrinter Lib "winspool.drv" Alias _
        "StartDocPrinterA" (ByVal hPrn As Long, ByVal Level As Long, _
        pDocInfo As DocInfo) As Long
Declare Function StartPagePrinter Lib "winspool.drv" (ByVal hPrn _
        As Long) As Long
Declare Function WritePrinter Lib "winspool.drv" (ByVal hPrn As Long, _
        pBuf As Any, ByVal cdBuf As Long, pcWritten As Long) As Long
Declare Function EndPagePrinter Lib "winspool.drv" (ByVal hPrn _
        As Long) As Long
Declare Function EndDocPrinter Lib "winspool.drv" (ByVal hPrn _
        As Long) As Long
Declare Function ClosePrinter Lib "winspool.drv" (ByVal hPrn _
        As Long) As Long

Type DocInfo
  pDocName    As String
  pOutputFile As String
  pDataType   As String
End Type
Type Defaults
  pDataType     As String
  pDevMode      As Long
  DesiredAccess As Long
End Type

Dim lhPrinter       As Long               'handle of printer
Dim PrintJobID      As Long
Dim ThePrinter      As String                 
Dim MyDocInfo       As DocInfo
Dim PrinterDefaults As Defaults
Dim lpcWritten      As Long
Dim Result          As Long
Dim lReturn         As Long

  PrinterDefaults.pDataType = "RAW" 'set up the printer
  PrinterDefaults.pDevMode = 0
  PrinterDefaults.DesiredAccess = 8 'PRINTER_ACCESS_USE
  ThePrinter = UCase$(Printers(0).DeviceName) 'get first printer name
  lReturn = OpenPrinter(ThePrinter, lhPrinter, PrinterDefaults) 
' get printer handle
  If lReturn = 0 Then
    MsgBox "Printer [" + ThePrinter + "] could not be found!", _
           vbCritical, "Ouch!"
    End 'give up
  End If
  MyDocInfo.pDocName = ProgramName 'set up the document
  MyDocInfo.pOutputFile = vbNullString
  MyDocInfo.pDataType = "RAW"
  PrintJobID = StartDocPrinter(lhPrinter, 1, MyDocInfo) 'start document
  Call StartPagePrinter(lhPrinter) 'start page
  Esc = Chr$(27)
  s = printer_setup_string 
  Result = WritePrinter(lhPrinter, ByVal s, Len(s), lpcWritten)
  s = Esc + "*p0100x0200Y" 'position on page
  Result = WritePrinter(lhPrinter, ByVal s, Len(s), lpcWritten)
  s = signaturestring 'write signature string
  Result = WritePrinter(lhPrinter, ByVal s, Len(s), lpcWritten)
  s = Esc + "E" 'clear printer
  Result = WritePrinter(lhPrinter, ByVal s, Len(s), lpcWritten)
  lReturn = EndPagePrinter(lhPrinter) 'end page
  lReturn = EndDocPrinter(lhPrinter) 'end document
  lReturn = ClosePrinter(lhPrinter) 'end Windows printer use

Public Function ReadFile() As Boolean         'TRUE if successful
Public Property Let FileName(ByVal NewName As String) 'Sets the file name
Public Property Get Size() As Variant         'Get image size in bytes
Public Property Get Height() As Variant       'Get image height in rows
Public Property Get width() As Variant        'Get image width in bytes
Public Sub GetImage(Image())                  'Get image content
Public Property Get ColorsUsed() As Variant   'Get color cnt in ColorTable
Public Property Get ColorTable() As Variant   'Get color table for image
' The ColorTable is an array of RGBQuad items 
' such as "Dim CTab(ColorsUsed) as RGBQuad"
Type RGBQuad
  Blue  As Byte 'blue value for color map entry
  Green As Byte 'green value for color map entry
  Red   As Byte 'red value for color map entry
  Zero  As Byte '=0
End Type