Include "Printer.bb"

numPrint = EnumeratePrinters()  ;get the printer names of all printers on this system


opened = OpenPrinter(Printers$(1))

NewDoc()

NewPage()

Global Bild = LoadImage("DeinBild.***")

PrintImage(Bild,10,10,20)             ;Hier musst du wahrscheinlich die Canvas-Nummer anstatt Bild übergeben...

ClosePrinter()

CleanupPrinters()

WaitKey



Function PrintImage(Image,x,y,scale)
   LockBuffer ImageBuffer(Image)
   For x1 = 0 To ImageWidth(Image)-1
      For y1 = 0 To ImageHeight(Image)-1
         rgb = ReadPixelFast(x1,y1,ImageBuffer(Image))
         r=(rgb And $FF0000)/$10000
         g=(rgb And $FF00)/$100
         b=rgb And $FF
         PPenColor(r,g,b)
           PRectangle(x1*scale,y1*scale,x1*scale+scale,y1*scale+scale,1)
      Next
   Next
   UnlockBuffer ImageBuffer(Image)
End Function