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

If PrintRequester()

  If StartPrinting("PureBasic Test")
  
    LoadFont(0, "Arial", 30)
    LoadFont(1, "Arial", 100)
  
    If StartDrawing(PrinterOutput())
      
      BackColor(RGB(255, 255, 255)) ; Использует белый цвет как черный, полезно при печати на белом листе
      FrontColor(RGB(0, 0, 0)) ; Использует черный для стандартного цвета текста
      
      DrawingFont(FontID(0))
      DrawText(100, 100, "PureBasic тест печати")
      
      DrawingFont(FontID(1))
      DrawText(100, 400, "PureBasic тест печати 2")
    
      If LoadImage(0, #PB_Compiler_Home + "examples/sources/Data/PureBasic.bmp")
        DrawImage(ImageID(0), 200, 600)
      Else
        MessageRequester("Ошибка","Не удается загрузить изображение")
      EndIf
      
      Box(200, 1000, 100, 100, RGB(255, 0, 0)) ; Нарисует красный прямоугольник
        
      StopDrawing()
    EndIf
    
    StopPrinting()
  EndIf
EndIf