How to convert HTML to Landscape PDF

I'm sorry, but this is so frustrating. I asked for a full process piece of code, and you gave me links.
Ok, so I figured out where to put pcl.Landscape = True. But what about the stream? It calls for a system.io.stream. So Dim myStream as System.IO.Stream(), then ExportToStream(myHTMLEditor,MyStream) ?? OK, figured that out.  So now I have to search for yet another piece of the puzzle:  how do i get it to download because "ps.ExportToPdf(stream)" doesn't actually do that… I'm used to working with memory streams and not system.io.streams so that took some doing I tried both steam and memory stream and the different methods of writing each of those to the response and in all cases it's STILL EXPORTING PORTRAIT and not LANDSCAPE.
Will you please, pretty please with sugar on top, I'll even add whipped cream (if you're not lactose intolerant) and a cherry, provide a full working example ?
This is the code I have (steam version commented out):
htmlSI.Html = objSW.ToString
' Dim myStream As System.IO.Stream = New System.IO.MemoryStream()
Dim myStream As New MemoryStream
ExportToStream(htmlSI, myStream)
'Private Sub ExportToStream(editor As ASPxHtmlEditor, stream As Stream)
Private Sub ExportToStream(editor As ASPxHtmlEditor, stream As MemoryStream)
      Using server As New RichEditDocumentServer()
          PrepareDocumentModel(editor, server.Model)
          ' Here you can configure exporting document options, e.g. margins
          Dim section As DevExpress.XtraRichEdit.API.Native.Section = server.Document.Sections(0)
          section.Margins.Top = 25
          section.Margins.Left = 25
          section.Margins.Right = 25
          section.Margins.Bottom = 25
          Using ps As New PrintingSystemBase()
              Using pcl As New PrintableComponentLinkBase(ps)
                  pcl.Component = server
                  pcl.Landscape = True
                  pcl.CreateDocument()
                  ps.ExportToPdf(stream)
                  Response.Clear()
                  Response.Buffer = False
                  Response.AppendHeader("Content-Type", "application/pdf")
                  Response.AppendHeader("Content-Transfer-Encoding", "binary")
                  Response.AppendHeader("Content-Disposition", "attachment; filename=SIS.pdf")
                  Response.BinaryWrite(stream.ToArray())
                  'system.io.stream version
                  'Dim buffer As Byte() = New Byte(8191) {}
                  'stream.Seek(0, SeekOrigin.Begin)
                  'Dim bytesRead As Integer = stream.Read(Buffer, 0, 8192)
                  'While bytesRead > 0
                      'Dim buffer2 As Byte() = New Byte(bytesRead - 1) {}
                      'System.Buffer.BlockCopy(Buffer, 0, buffer2, 0, bytesRead)
                      'Response.BinaryWrite(buffer2)
                      'Response.Flush()
                      'bytesRead = stream.Read(buffer, 0, 8192)
                  'End While
                  Response.End()
              End Using
          End Using
      End Using
  End Sub
  Private Sub PrepareDocumentModel(editor As ASPxHtmlEditor, model As DevExpress.XtraRichEdit.Model.DocumentModel)
      Dim piDocument As PropertyInfo = GetType(ASPxHtmlEditor).GetProperty("Document", BindingFlags.Instance Or BindingFlags.NonPublic)
      Dim document As HtmlEditorDocument = DirectCast(piDocument.GetValue(editor, Nothing), HtmlEditorDocument)
      Dim miPrepareDocumentModel As MethodInfo = GetType(HtmlEditorDocument).GetMethod("PrepareDocumentModel", BindingFlags.Instance Or BindingFlags.NonPublic)
      miPrepareDocumentModel.Invoke(document, New Object() {model})
  End Sub

Hello,
I suggest you use the RichEditDocumentServer.ExportToPdf method instead of exporting via a PrintableComponentLink.
I have attached a sample project and video illustrating this solution.
Please try this solution and let me know your result.