' Gambas module file

Public Sub Main()
  
  Dim hrc As New Report
  Dim vb As ReportVBox
  Dim himg As New Image(1, 1)

  hrc.tag = 
    hrc.Width = "21cm"
  hrc.Height = "29.7cm"
  vb = New ReportVBox(hrc)
  Paint.Begin(himg)
  hrc.Layout
  Paint.End
  Print hrc._Height
  Print hrc._Width
  
End
