Dim myReport As New Aspose.Pdf.Document
Dim myPage As Aspose.Pdf.Page = myReport.Pages.Add()
' height = 842
' width = 595
Dim width As Double = myPage.PageInfo.Width
Dim height As Double = myPage.PageInfo.Height
myPage.PageInfo.IsLandscape = True
' Shouldn't the width and height be swapped?
' height = 595
' width = 842
Dim width2 As Double = myPage.PageInfo.Width
Dim height2 As Double = myPage.PageInfo.Height
MsgBox("width:height before: " + width.ToString() + ":" + height.ToString() + vbCrLf + "width:height after " + width2.ToString() + ":" + height2.ToString())
myReport.Save("Test.pdf")