Visual Basic

Public Shared Function load_structure_MovieInfo_Array( _
        ByRef m As DbSet(Of Movie),
        ByVal sXc As structure_m_Index_QueryString,
        ByVal p_Type As mv_shared.MovieType) As Integer

        Dim dwExitCode As Integer = 0

        Dim context As MovieContext = New MovieContext()
        Dim query =
            From movies In context.Movies
            Where movies.flv = 1
            Order By movies.MovieName
            Select
                MovieID = movies.MovieID,
                MovieName = movies.MovieName,
                MovieType = movies.MovieType,
                MovieDeliveryType = movies.MovieDeliveryType,
                MoviePath = movies.MoviePath,
                MovieURL = movies.MovieUrl,
                MoviePostage = movies.MoviePostage,
                MovieThumbnail = movies.MovieThumbnail,
                MovieLarge = movies.MovieLarge,
                MoviePlaceHolder = movies.MoviePlaceHolder,
                MovieBitRate = movies.MovieBitRate,
                MovieTime = movies.MovieTime,
                MovieSize = movies.MovieSize,
                MovieDescription = movies.MovieDescription,
                MovieCount = movies.MovieCount,
                MovieContributor = movies.MovieContributor,
                MoviePostDate = movies.MoviePostDate,
                MovieIcon = movies.MovieIcon,
                movie_Parameters = movies.Movie_Parameters

        m = query.Set(Of Movie)()

        Return dwExitCode

Imports System
Imports System.IO
Imports System.Data
Imports System.Text
Imports System.Drawing
Imports System.Drawing.Printing
Imports System.Collections.Generic
Imports System.Windows.Forms
Imports Microsoft.Reporting.WinForms
Imports System.Drawing.Imaging

Module modul_print_reports
    Private m_currentPageIndex As Integer
    Private m_streams As IList(Of Stream)
    Private printDoc As PrintDocument

    ''' <summary>
    ''' Print rdlc report with custom page width and height
    ''' </summary>
    ''' <param name="report"></param>
    ''' <param name="page_width">the width of the papger, in hunderdths of an inch</param>
    ''' <param name="page_height">the height of the papger, in hunderdths of an inch</param>
    ''' <param name="islandscap"></param>
    ''' <param name="printer_name">Ignore this parameter to use default printer</param>
    ''' <remarks></remarks>
    Public Sub print_microsoft_report(ByRef report As LocalReport, ByVal page_width As Integer, ByVal page_height As Integer, _
                                      Optional ByVal islandscap As Boolean = False, _
                                      Optional ByVal printer_name As String = Nothing)
        printDoc = New PrintDocument()
        If printer_name <> Nothing Then printDoc.PrinterSettings.PrinterName = printer_name
        If Not printDoc.PrinterSettings.IsValid Then ' detecate is the printer is exist
            Throw New Exception("Cannot find the specified printer")
        Else
            Dim ps As New PaperSize("Custom", page_width, page_height)
            printDoc.DefaultPageSettings.PaperSize = ps
            printDoc.DefaultPageSettings.Landscape = islandscap
            Export(report)
            Print()
        End If
    End Sub
    ''' <summary>
    ''' Print rdlc report with specific paper kind
    ''' </summary>
    ''' <param name="report"></param>
    ''' <param name="paperkind">String paper Kind, ex:"letter"</param>
    ''' <param name="islandscap"></param>
    ''' <param name="printer_name">Ignore this parameter to use default printer</param>
    ''' <remarks></remarks>
    Public Sub print_microsoft_report(ByVal report As LocalReport, Optional ByVal paperkind As String = "A4", _
                                      Optional ByVal islandscap As Boolean = False, _
                                      Optional ByVal printer_name As String = Nothing)

        printDoc = New PrintDocument()
        If printer_name <> Nothing Then printDoc.PrinterSettings.PrinterName = printer_name
        If Not printDoc.PrinterSettings.IsValid Then ' detecate is the printer is exist
            Throw New Exception("Cannot find the specified printer")
        Else
            Dim ps As PaperSize
            Dim pagekind_found As Boolean = False
            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
                End If
            Next
            If Not pagekind_found Then Throw New Exception("paper size is invalid")
            printDoc.DefaultPageSettings.Landscape = islandscap
            Export(report)
            Print()
        End If

    End Sub

    ' Routine to provide to the report renderer, in order to
    ' save an image for each page of the report.
    Private Function CreateStream(ByVal name As String, ByVal fileNameExtension As String, _
                   ByVal encoding As Encoding, ByVal mimeType As String, ByVal willSeek As Boolean) As Stream

        Dim stream As Stream = New MemoryStream()
        m_streams.Add(stream)
        Return stream
    End Function
    ' Export the given report as an EMF (Enhanced Metafile) file.
    Private Sub Export(ByVal report As LocalReport)
        Dim w As Integer
        Dim h As Integer
        If printDoc.DefaultPageSettings.Landscape = True Then
            w = printDoc.DefaultPageSettings.PaperSize.Height
            h = printDoc.DefaultPageSettings.PaperSize.Width
        Else
            w = printDoc.DefaultPageSettings.PaperSize.Width
            h = printDoc.DefaultPageSettings.PaperSize.Height
        End If
        Dim deviceInfo As String = "<DeviceInfo>" & _
            "<OutputFormat>EMF</OutputFormat>" & _
            "<PageWidth>" & w / 100 & "in</PageWidth>" & _
            "<PageHeight>" & h / 100 & "in</PageHeight>" & _
            "<StartPage>0</StartPage><EndPage>0</EndPage><MarginTop>0.0in</MarginTop>" & _
            "<MarginLeft>0.0in</MarginLeft>" & _
            "<MarginRight>0.0in</MarginRight>" & _
            "<MarginBottom>0.0in</MarginBottom>" & _
            "</DeviceInfo>"
        Dim warnings As Warning()
        m_streams = New List(Of Stream)()

        'Dim byt As Byte() = report.Render("IMAGE")

        report.Render("IMAGE", deviceInfo, AddressOf CreateStream, warnings)
        For Each stream As Stream In m_streams
            stream.Position = 0
        Next
    End Sub

    ' Handler for PrintPageEvents
    Private Sub PrintPage(ByVal sender As Object, ByVal ev As PrintPageEventArgs)
        Dim pageImage As New Metafile(m_streams(m_currentPageIndex))

        ' 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
    Private Sub Print()
        If m_streams Is Nothing OrElse m_streams.Count = 0 Then
            Throw New Exception("Error: no stream to print.")
        End If
        AddHandler printDoc.PrintPage, AddressOf PrintPage
        m_currentPageIndex = 0
        printDoc.Print()
    End Sub
End Module


  cn.Open()
  Dim cmd = New SqlCommand("SELECT [BatchNo]," +
                           "[ProdID],[ProdName],[MfgDate],[ExpDate],[ImgName],[ImgPath],[UserID],[FullName]" +
                           "FROM dbo.vwBatchRecs WHERE [BatchNo]=@bn ORDER BY [ImgName]", cn)
          cmd.Parameters.Clear()
          cmd.Parameters.AddWithValue("@bn", pf_Id)
          Dim dr = cmd.ExecuteReader()
          Dim dt As New DataTable
          dt.Load(dr)

          Dim rpt As New LocalReport
          rpt.DataSources.Clear()
          rpt.EnableExternalImages = True
          rpt.ReportEmbeddedResource = "PharmaDoc.BatchPrep.rdlc"
          rpt.ReportPath = "BatchPrep.rdlc"
          rpt.DataSources.Add(New ReportDataSource("vwBatchRecs", dt)) '

         rpt.Refresh()

         dr.Close()
         cmd.Dispose()
         cn.Close()
                    'rpt.SetDisplayMode(DisplayMode.PrintLayout)
                    'rpt.ZoomMode = ZoomMode.FullPage

                    'Dim cp As New Reportprint
                    print_microsoft_report(rpt)

I have also tried the following source but still same problem <a href="https://msdn.microsoft.com/en-us/library/ms252091%28v=vs.100%29.aspx">https://msdn.microsoft.com/en-us/library/ms252091%28v=vs.100%29.aspx</a>[<a href="https://msdn.microsoft.com/en-us/library/ms252091%28v=vs.100%29.aspx" target="_blank" title="New Window">^</a>]

<s:Envelope xmlns:s="http://schemas.xmlsoap.org/soap/envelope/">
    <s:Body s:encodingStyle="http://schemas.xmlsoap.org/soap/encoding/" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
        <q1:SendAndCommit xmlns:q1="http://secure2.e-xact.com/vplug-in/transaction/rpc-enc/Request">
            <SendAndCommitSource href="#id1"/>
        </q1:SendAndCommit>
        <q2:Transaction id="id1" xsi:type="q2:Transaction" xmlns:q2="http://secure2.e-xact.com/vplug-in/transaction/rpc-enc/encodedTypes">
            <ExactID xsi:type="xsd:string">AH2824-05</ExactID>
            <Password xsi:type="xsd:string">0g4tu7pj1hb88q5d8xa55dlhvhvwlm3r</Password>
            <Transaction_Type xsi:type="xsd:string">00</Transaction_Type>
            <DollarAmount xsi:type="xsd:string">99.20</DollarAmount>
            <Card_Number xsi:type="xsd:string">4111111111111111</Card_Number>
            <Expiry_Date xsi:type="xsd:string">1215</Expiry_Date>
            <CardHoldersName xsi:type="xsd:string">Joe Smoe</CardHoldersName>
            <CVDCode xsi:type="xsd:string">999</CVDCode>
            <Reference_No xsi:type="xsd:string">CA-Test4</Reference_No>
            <Client_IP xsi:type="xsd:string">::1</Client_IP>
            <Client_Email xsi:type="xsd:string">xxxxxxx@gmail.com</Client_Email>
            <Currency xsi:type="xsd:string">USD</Currency>
            <Address href="#id2"/>
        </q2:Transaction>
        <q3:Address_Type id="id2" xsi:type="q3:Address_Type" xmlns:q3="http://secure2.e-xact.com/vplug-in/transaction/rpc-enc/encodedTypes">
            <Address1 xsi:type="xsd:string">1234 Main Street</Address1>
            <Address2 xsi:type="xsd:string"/>
            <City xsi:type="xsd:string">Huntington Beach</City>
            <State xsi:type="xsd:string">CA</State>
            <Zip xsi:type="xsd:string">92648</Zip>
            <CountryCode xsi:type="xsd:string">US</CountryCode>
        </q3:Address_Type>
    </s:Body>
</s:Envelope>

Public Function BeforeSendRequest( _
        ByRef request As Message,
        ByVal channel As IClientChannel) As Object Implements IClientMessageInspector.BeforeSendRequest

        Dim buffer As MessageBuffer = request.CreateBufferedCopy(Int32.MaxValue)
        request = buffer.CreateMessage

        Dim msg As Message = buffer.CreateMessage
        Dim encoder As ASCIIEncoding = New ASCIIEncoding

        Dim sb As StringBuilder = New StringBuilder
        Dim xmlSettings As New XmlWriterSettings
        xmlSettings.OmitXmlDeclaration = True

        Dim xmlWriter As XmlWriter = xmlWriter.Create(sb, xmlSettings)
        Dim writer As XmlDictionaryWriter = XmlDictionaryWriter.CreateDictionaryWriter(xmlWriter)

        msg.WriteStartEnvelope(writer)
        msg.WriteStartBody(writer)
        msg.WriteBodyContents(writer)
        xmlWriter.WriteEndElement()
        xmlWriter.WriteEndElement()

        writer.Flush()

        Dim body As String = sb.ToString.Replace(" />", "/>")
        Dim xml_bytes() As Byte = encoder.GetBytes(body)

        'SHA1 hash on XML string
        Dim sha1_crypto As SHA1CryptoServiceProvider = New SHA1CryptoServiceProvider
        Dim hash As String = BitConverter.ToString(sha1_crypto.ComputeHash(xml_bytes)).Replace("-", "")
        Dim hashed_content As String = hash.ToLower

        'assign values to hashing and header variables
        Dim m_method As String = "POST"
        Dim m_type As String = "application/xml"
        Dim m_time As String = DateTime.UtcNow.ToString("yyyy-MM-ddTHH:mm:ssZ")
        Dim m_hashData As String = m_method & vbLf & m_type & vbLf & hashed_content & vbLf & m_time & vbLf & _endPoint_Uri

        'Compute the HMAC and convert to a base64 hash
        Dim m_hmac_sha1 As HMAC = New HMACSHA1(Encoding.UTF8.GetBytes(_hmac))
        Dim m_hmac_data() As Byte = m_hmac_sha1.ComputeHash(Encoding.UTF8.GetBytes(m_hashData))
        Dim m_base64_hash As String = Convert.ToBase64String(m_hmac_data)

        Dim httpRequestMessage As HttpRequestMessageProperty
        Dim httpRequestMessageObject As Object = Nothing

        If request.Properties.TryGetValue(HttpRequestMessageProperty.Name, httpRequestMessageObject) Then

            httpRequestMessage = CType(httpRequestMessageObject, HttpRequestMessageProperty)
            httpRequestMessage.Headers("x-gge4-date") = m_time
            httpRequestMessage.Headers("x-gge4-content-sha1") = hashed_content
            httpRequestMessage.Headers("Authorization") = "GGE4_API " & _keyID & ":" & m_base64_hash

        Else

            httpRequestMessage = New HttpRequestMessageProperty
            httpRequestMessage.Headers("x-gge4-date") = m_time
            httpRequestMessage.Headers("x-gge4-content-sha1") = hashed_content
            httpRequestMessage.Headers("Authorization") = "GGE4_API " & _keyID & ":" & m_base64_hash
            request.Properties.Add(HttpRequestMessageProperty.Name, httpRequestMessage)

        End If

        Return Nothing

    End Function

Using client = New ServiceSoapClient(New BasicHttpsBinding(), remoteAddress)
                client.ChannelFactory.Endpoint.EndpointBehaviors.Add(New HMAC_SR_Header_Behavior(
                        uRequest.eXact.HMAC_ID,
                        uRequest.eXact.HMAC_Key,
                        m_endpointUri
                    )
                )

                Dim responseType As New TransactionResult
                responseType = client.SendAndCommit(ppRequest)
                ppResponse = responseType

            End Using