;
; ------------------------------------------------------------
;
;   PureBasic - Printer example file
;
;    (c) Fantaisie Software
;
; ------------------------------------------------------------
;

If PrintRequester()

  If StartPrinting("PureBasic Test")
  
    LoadFont(0, "Arial", 30)
    LoadFont(1, "Arial", 100)
  
    If StartDrawing(PrinterOutput())

      DrawingFont(FontID(0))
  
      DrawText(100, 100, "PureBasic Printer Test")
      
      DrawingFont(FontID(1))
      
      DrawText(100, 400, "PureBasic Printer Test 2")
    
      If LoadImage(0, "Data/PureBasic.bmp")
        DrawImage(ImageID(0), 200, 600)
      Else
        MessageRequester("Error","Can't load the image")
      EndIf
      
      FrontColor(RGB(100,100,100))
      Box(200, 600, 100, 100)
        
      StopDrawing()
    EndIf
    
    StopPrinting()
  EndIf
EndIf