Sub Makro1()
    Dim cb As Byte
    Dim cbarr As String
 
    Dim y, y0, yMax, x, x0, xMax, xi
 
    y0 = 0                          'ein 64x64Pixel großer Bildausschnitt
    yMax = 63
    xMax = 63
 
    For y = 0 To yMax               'jede Zeile lesen
        cbarr = ""                  'string zurücksetzen
        x0 = 0
        For x = x0 To xMax Step 8   'jede Zeile byteweise einlesen
            cb = 0
            For xi = 0 To 7         'erste 8 Pixel einlesen und 1Byte bilden
                If getpixel(x + xi, y) = vbBlack Then
                    cb = cb Or 2 ^ xi
                End If
            Next xi
            cbarr = cbarr & cb      'Ergebnis in einem Feld speichern hier 
            ' string
        Next
        lpt1.Print cbarr
 
        'String an LPt1.Port ausgeben
        'siehe Beschreibung Parallelport ansprechen
 
End Sub