Direct print for microsoft_report (RDLC)

I had a proplem with paper size and margins using Custom size 4 by 2 

The quality of my letters in report degrades. Please help.

Dim report As New LocalReport()
            report.ReportPath = ("../../rptSellingReceipt.rdlc")
            disconnect()
            Dim da As SqlDataAdapter
            Dim ds As DataSet
            da = New SqlDataAdapter("SELECT tblItemSales.ItemSold_ID, tblItemSales.Item_ID, tblItemSales.Description, tblItemSales.Unit_Price, tblItemSales.Quantity, tblItemSales.Unit, tblSales.Received_By, tblSales.Plate_No, tblSales.Address, tblSales.Sales_Date, tblSales.Terms, tblSales.Type, tblSales.PayVal, tblItemSales.Sales_ID, tblSales.EqName, tblSales.EqNo, tblSales.Customer_Name FROM tblItemSales FULL OUTER JOIN                         tblSales ON tblItemSales.Sales_ID = tblSales.Sales_ID WHERE        (tblSales.Sales_ID = " & sID & ")", conn)
            ds = New DataSet
            da.Fill(ds, "tblItemsales")
            report.DataSources.Add(New ReportDataSource("dsSales", ds.Tables(0)))
            Dim rds As New ReportDataSource

            rds.Name = "dsSales"
            rds.Value = ds.Tables(0)
            'Export(report)
            Dim deviceInfo As String = "<DeviceInfo>" & _
                "<OutputFormat>EMF</OutputFormat>" & _
                "<PageWidth>8.5in</PageWidth>" & _
                "<PageHeight>11in</PageHeight>" & _
                "<MarginTop>0.3in</MarginTop>" & _
                "<MarginLeft>1.2in</MarginLeft>" & _
                "<MarginRight>0.2in</MarginRight>" & _
                "<MarginBottom>0.2in</MarginBottom>" & _
                "</DeviceInfo>"
            Dim warnings As Warning()
            warnings = Nothing
            m_streams = New List(Of Stream)()
            Report.Render("Image", deviceInfo, AddressOf CreateStream, warnings)
            For Each stream As Stream In m_streams
                stream.Position = 0
            Next

            'Print()
            If m_streams Is Nothing OrElse m_streams.Count = 0 Then
                Throw New Exception("Error: no stream to print.")
            End If
            Dim printDoc As New PrintDocument()
            If Not printDoc.PrinterSettings.IsValid Then
                Throw New Exception("Error: cannot find the default printer.")
            Else
                AddHandler printDoc.PrintPage, AddressOf PrintPage
                m_currentPageIndex = 0
                printDoc.Print()
                'MsgBox("Printing")

            End If

Library.PrintHelper printHelper = new Library.PrintHelper();
printHelper.print_microsoft_report(
   this.reportViewer1, "A4", false, "Printer123"
);

using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Linq;
using System.Text;
using System.Windows.Forms;
using System.IO;
using Microsoft.Reporting.WinForms;
using System.Drawing.Printing;
using System.Drawing.Imaging;

namespace Library
{
    public class PrintHelper
    {
        private int m_currentPageIndex;
        private List<Stream> m_streams = new List<Stream>();
        private System.Drawing.Printing.PrintDocument printDoc = new System.Drawing.Printing.PrintDocument();


        public void print_microsoft_report(ReportViewer reportViewer, string paperkind = "A4", bool islandscap = false, string printer_name = null)
        {
            LocalReport report = default(LocalReport);
            report = reportViewer.LocalReport;

            printDoc = new PrintDocument();
            if (printer_name != null)
                printDoc.PrinterSettings.PrinterName = printer_name;
            // detecate is the printer is exist
            if (!printDoc.PrinterSettings.IsValid)
            {
                throw new Exception("Cannot find the specified printer");
            }
            else
            {
                PaperSize ps = default(PaperSize);
                bool pagekind_found = false;
                for (int i = 0; i <= printDoc.PrinterSettings.PaperSizes.Count - 1; i++)
                {
                    if (printDoc.PrinterSettings.PaperSizes[i].Kind.ToString() == paperkind)
                    {
                        ps = printDoc.PrinterSettings.PaperSizes[i];
                        printDoc.DefaultPageSettings.PaperSize = ps;
                        pagekind_found = true;
                        break;
                    }
                }
                if (!pagekind_found)
                    throw new Exception("paper size is invalid");
                printDoc.DefaultPageSettings.Landscape = islandscap;
                Export(reportViewer);
                Print(printer_name);

            }

        }
        // Handler for PrintPageEvents
        private void PrintPage(object sender, PrintPageEventArgs ev)
        {
            Metafile pageImage = new Metafile(m_streams[m_currentPageIndex]);

            // Adjust rectangular area with printer margins.
            Rectangle adjustedRect = new Rectangle(ev.PageBounds.Left - Convert.ToInt32(ev.PageSettings.HardMarginX), ev.PageBounds.Top - Convert.ToInt32(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);
        }
        public void Print(string printerName)
        {
            if (m_streams == null || m_streams.Count == 0)
            {
                throw new Exception("Error: no stream to print.");
            }
            PrintDocument printDoc = new PrintDocument();

            if (!printDoc.PrinterSettings.IsValid)
            {
                throw new Exception("Error: cannot find the default printer.");
            }
            else
            {
                printDoc.PrintPage += PrintPage;
                m_currentPageIndex = 0;
            }
            //---- here the modification ---------------
            //PrintPreviewDialog dg = new PrintPreviewDialog();
            //dg.PrintPreviewControl.Document = printDoc;
            //dg.ShowDialog();

            printDoc.PrinterSettings.PrinterName = printerName;
            printDoc.Print();

          

        }

        private void Export(Microsoft.Reporting.WinForms.ReportViewer rv)
        {
            int w;
            int h;
            if (printDoc.DefaultPageSettings.Landscape == true)
            {
                w = printDoc.DefaultPageSettings.PaperSize.Height;
                h = printDoc.DefaultPageSettings.PaperSize.Width;
            }
            else
            {
                w = printDoc.DefaultPageSettings.PaperSize.Width;
                h = printDoc.DefaultPageSettings.PaperSize.Height;
            }
            string deviceInfo = "<DeviceInfo>" +
                "<OutputFormat>EMF</OutputFormat>" +
                "<PageWidth>" + (w / 100).ToString() + "in</PageWidth>" +
                "<PageHeight>" + (h / 100).ToString() + "in</PageHeight>" +
                "<MarginTop>0.0in</MarginTop>" +
                "<MarginLeft>0.0in</MarginLeft>" +
                "<MarginRight>0.0in</MarginRight>" +
                "<MarginBottom>0.0in</MarginBottom>" +
                "</DeviceInfo>";

            Warning[] warnings = new Warning[10];

            rv.LocalReport.Render("Image", deviceInfo, CreateStream, out warnings);
            foreach (Stream stream in m_streams)
            {
                stream.Position = 0;
            }

        }

        // Routine to provide to the report renderer, in order to
        // save an image for each page of the report.
        private Stream CreateStream(string name, string fileNameExtension, Encoding encoding, string mimeType, bool willSeek)
        {
            Stream stream = new MemoryStream();
            m_streams.Add(stream);
            return stream;
        }


    }
}

Public Sub Print()
    If m_streams Is Nothing OrElse m_streams.Count = 0 Then
        Throw New Exception("Error: no stream to print.")
    End If
    Dim printDoc As New PrintDocument()

    If Not printDoc.PrinterSettings.IsValid Then
        Throw New Exception("Error: cannot find the default printer.")
    Else
        AddHandler printDoc.PrintPage, AddressOf Print_Page
        m_currentPageIndex = 0
    End If
'---- here the modification ---------------
    Dim dg As New PrintPreviewDialog
    dg.PrintPreviewControl.Document = printDoc
    dg.ShowDialog()


End Sub

For i = 0 To printdoc.PrinterSettings.PaperSizes.Count - 1
    If printdoc.PrinterSettings.PaperSizes.Item(i).Kind.ToString = paperkind Then
        ps = printdoc.PrinterSettings.PaperSizes.Item(i)
        printdoc.DefaultPageSettings.PaperSize = ps
        pagekind_found = True
        Exit For
    End If
Next