Problem sending a standard landscape SSRS report to a printer

Question

I have successfully used the Printer Delivery Extension sample (_//msdn.microsoft.com/en-us/library/ms252091(v=vs.100).aspx) in a vb.net  winforms application to send a 28” X 17” rdlc report to a specialty printer.
However, I cannot seem to successfully send an 8.5” X 11” landscape report (rdlc) directly to a printer without preview or printdialog using the same approach.
I have tried setting the paper size to “custom” in Report Properties in the report design  (this automatically reverts to “Letter” due to the dimensions).  I also tried reversing the width/height dimensions  in the report design and in the “PageWidth”
and “PageHeight” settings in the <DeviceInfo> configuration info for the output emf file.  I have tried various combinations of PrintDocument settings (including setting DefaultPageSettings.Landscape=true), with no success. I also tried setting
the DefaultPageSetting pages size to one I created programmatically with the correct dimensions (1100/850). Even though it is defined as a landscape report, I get either a report broken over 2 portrait pages, or a report squeezed into a smaller area on a single
portrait page.
I don’t know if there is a device setting that would “tell” the emf file that this is a landscape report, but it’s almost like that information is not being passed, despite of all the settings I have experimented with.
Does anybody have any suggestions?  I have researched this online and tried every suggestion I have read.  According to other posts, some others had been unable to get this to work also.
UPDATE: This problem is still unresolved.  The report now prints in landscape mode, but the intended 10"X9" report is being compressed into an area 8.5" wide.  This is an excerpt of the code I am using:
    Friend Sub Run(ByRef report As LocalReport, printerName As String)
        Export(report)
        Print(printerName)
    End Sub
    Private Sub Export(ByVal report As LocalReport)
        Dim deviceInfo As String = "<DeviceInfo>" & _
            "<OutputFormat>EMF</OutputFormat>" & _
            "<PageWidth>11in</PageWidth>" & _
            "<PageHeight>8.5in</PageHeight>" & _
            "<MarginTop>0in</MarginTop>" & _
            "<MarginLeft>0in</MarginLeft>" & _
            "<MarginRight>0in</MarginRight>" & _
            "<MarginBottom>0in</MarginBottom>" & _
            "</DeviceInfo>"
        Dim warnings As Warning()
        m_streams = New List(Of Stream)()
        Try
            report.Render("Image", deviceInfo, AddressOf CreateStream, warnings)
            For Each stream As Stream In m_streams
                stream.Position = 0
            Next
        Catch ex As Exception
            ErrorRoutine.sendError("SendReportToPrinter.Export", ex)
        End Try
    End Sub
Private Sub Print(currentPrinter
As String)
    Try
        If m_streams
Is Nothing OrElse m_streams.Count
= 0 Then
        End If
        'set the print control for print document to StandardPrintController to suppress print dialog
        printDoc.PrintController
= New Printing.StandardPrintController
        printDoc.PrinterSettings.PrinterName
= currentPrinter
        If Not printDoc.PrinterSettings.IsValid
Then
            Throw
New System.Exception("Error: cannot find printer.")
        Else
            m_currentPageIndex
= 0
            AddHandler printDoc.PrintPage,
AddressOf PrintListPage
            Dim pkSize
As New PaperSize("Custom",
1100, 850)
            printDoc.DefaultPageSettings.PaperSize
= pkSize
            printDoc.DefaultPageSettings.Landscape
= True
            printDoc.PrinterSettings.DefaultPageSettings.PaperSize
= pkSize
            printDoc.Print()
        End If
    Catch e As Exception
        MsgBox("Error:"
& e.Message, MsgBoxStyle.OkOnly)
    End Try
End Sub
Private Sub PrintListPage(ByVal sender
As Object,
ByVal ev As PrintPageEventArgs)
    Dim pageImage As
New Metafile(m_streams(m_currentPageIndex))
    ev.PageSettings.Landscape
= True
    ' Adjust rectangular area with printer margins.
    Dim adjustedRect As
New Rectangle(ev.PageBounds.Left
- CInt(ev.PageSettings.HardMarginX), _
                                      ev.PageBounds.Top
- CInt(ev.PageSettings.HardMarginY), _
                                      ev.PageBounds.Width,
                                      ev.PageBounds.Height)
    ' Draw a white background for the report
    ev.Graphics.FillRectangle(Brushes.White, adjustedRect)
    ' Draw the report content
    ev.Graphics.DrawImage(pageImage, adjustedRect)
    ' Prepare for the next page. Make sure we haven't hit the end.
    m_currentPageIndex += 1
    ev.HasMorePages =
(m_currentPageIndex < m_streams.Count)
End Sub
When stepping through the code in PrintListPage using debug, ev.PageSettings.Papersize shows a width and height of 1100 and 850, and ev.PageSettings.Landscape is set to True.  However, the rectangle shows a size corresponding to 8.5 X 11.  In    
Dim adjustedRect As New Rectangle(ev.PageBounds.Left - CInt(ev.PageSettings.HardMarginX), _                                     
ev.PageBounds.Top - CInt(ev.PageSettings.HardMarginY), _                                     
ev.PageBounds.Width, ev.PageBounds.Height)
I have tried swapping ev.PageBounds.Width and ev.PageBounds.Height, and actually hard coding numeric values for width and height, and the rectangle still appears to be dimensioned as portrait.  Does anybody see what I am doing wrong, and how to fix
this?

Answer 1

With active debug i got following information:
The first mail in the debug-log is with the source code as quoted in my first post, the second mail is when i cut out the part which generates and adds the attachement. I had to make the adresses anonymous, but the second mail contains a lot more adresses then the first, although they both use the same query with same parameters, etc.
Have i done something wrong with the attachements? Overwriting headers, syntax errors, anything? I'm out of ideas...
edit: Had to cut out the debug-log because it is too big. It just said that everything was working ok, but the first mail contains too few adresses and the second (without attachement) the correct number of adresses. I can mail the log, if you like.