Visual Basic

Dim nUserID As Long
 Dim sToday  As String
 Dim sUser   As String
 Dim sSQL    As String

 Dim li      As ListItem

 Me.lvMain.ListItems.Clear

 'rsUser.MoveFirst

 Set dbGlob = OpenDatabase(GenPath & "WORORDGB.MDB")
 'Set rsCal = Nothing
 sToday = sDate
 Select Case UCase(sType)

     Case "ALL"            'All

         sSQL = "SELECT * FROM [Accum] WHERE [Type] = 'LABOR' AND [Closed]= 0 AND [WOCounter] <> 0 ORDER BY [Date],[UserID],[Start],[WOCounter]"
         Set rsCal = dbGlob.OpenRecordset(sSQL)
         rsCal.MoveLast
         rsCal.MoveFirst

     Case "WO"      'WO

         Set rsCal = dbGlob.OpenRecordset("SELECT * FROM [Accum] WHERE [Type] = 'LABOR' AND [Closed]= 0 AND [WOCounter] = " & CInt(Trim(Me.cmbWOID.Text)) & " ORDER BY [Date],[UserID],[Start],[WOCounter]")
         rsCal.MoveLast
         rsCal.MoveFirst

     Case "WR"          'WORKER

         Set rsCal = dbGlob.OpenRecordset("SELECT * FROM [Accum] WHERE [Type] = 'LABOR' AND [Closed]= 0 AND [WOCounter] <> 0 AND [UserID]=" & CLng(Me.cmbuserID.Text) & " ORDER BY [Date],[UserID],[Start],[WOCounter]")
         rsCal.MoveLast
         rsCal.MoveFirst

     Case "WRWO"         'Worker - WO

         Set rsCal = dbGlob.OpenRecordset("SELECT * FROM [Accum] WHERE [Type] = 'LABOR' AND [Closed]= 0 AND [WOCounter] = " & CInt(Trim(Me.cmbWOID.Text)) & " AND [UserID]=" & CLng(Me.cmbuserID.Text) & " ORDER BY [Date],[UserID],[Start],[WOCounter]")
         rsCal.MoveLast
         rsCal.MoveFirst

 End Select

 With Me.lvMain
     '.ListItems.Clear
     If rsCal.RecordCount = 0 Then
         Set li = .ListItems.Add(1, "ID" & rsUser.Fields("ID").Value, "Empty", , 4)
         Exit Sub
     End If

     For X = 1 To rsCal.RecordCount

         If IsNull(rsCal.Fields("UserID").Value) Then
             sUser = rsCal.Fields("Desc").Value
         Else
             For Y = 0 To cmbUser.ListCount - 1
                 If CLng(rsCal.Fields("UserID").Value) = CLng(cmbuserID.List(Y)) Then
                     sUser = cmbUser.List(Y)
                     Exit For
                 End If
             Next Y
         End If

         Set li = .ListItems.Add(X, "ID" & rsCal.Fields("Counter").Value, sUser, , 2)
         li.SubItems(1) = Format(rsCal.Fields("Date").Value, "mm/dd/yyyy")
         li.SubItems(2) = Format(rsCal.Fields("Start").Value, "hh:mm ampm")
         li.SubItems(3) = Format(rsCal.Fields("End").Value, "hh:mm ampm")
         li.SubItems(4) = Val(rsCal.Fields("Quantity").Value)
         li.SubItems(5) = rsCal.Fields("WOCounter").Value

         rsCal.MoveNext

     Next X
 End With

'Create the connection string
sConnString = "Provider=SQLOLEDB.1;Data Source=SRV002982;" & _
              "Initial Catalog=HFMDSmartFDM_QMR211;" & _
              "Password=password;Persist Security Info=True;User ID=User"

'Create the Connection and Recordset objects
Set conn = CreateObject("ADODB.Connection")
Set rs = CreateObject("ADODB.Recordset")

'Open the connection and execute
conn.Open sConnString
Set rs = conn.Execute(CommandString)

    'Check data
    If Not rs.EOF Then
        nRow = nRow + 1
        'Transfer result to WS
        Do While Not rs.EOF
            For Each elem In rs.Fields
                nCol = nCol + 1
                ws.Cells(nRow, nCol) = elem
            Next
        rs.movenext
        Loop
    End If

=Code.AddMyNet(Sum(ReportItems!itm_value.Value))

=IIf((ReportItems!Textbox15.Value ="CARRY FORWARDED "), Code.AddMyNet(Sum(ReportItems!itm_value.Value)), Nothing)

Imports System.Drawing
Imports System.Drawing.Printing
Imports System.Runtime.InteropServices

Namespace ActiveX
    Public Interface IActiveXPrintLib
        Sub PrintFile(filePath As String)
    End Interface

    <ProgId("ActiveX.PrintFile")>
   <ClassInterface(ClassInterfaceType.AutoDual)>
   <ComVisible(True)>
    Public Class ActiveXPrintLib
        Implements IActiveXPrintLib

        <ComVisible(True)>
        Public Sub PrintFile(filePath As String) Implements IActiveXPrintLib.PrintFile

            Dim AcroPdf As New AcroPDFLib.AcroPDF()
            AcroPdf.LoadFile(filePath)
            AcroPdf.printAll()

        End Sub

    End Class
End Namespace

<object id="myControl1" name="myControl1" classid="clsid:ActiveX.ActiveXPrintLib"> </object>


var axComponent = new ActiveXObject("ActiveX.ActiveXPrintLib");
    alert(axComponent);
    if (axComponent == null) {
        alert('Probably not installed');
    }
    else {
        yourAxComponent.PrintFile('<%= Page.ResolveUrl("~/PdfTemp/0d818b57-9384-4f52-ae89-8ef5868064b7.pdf")  %>');
        alert('yes');
    }

Dim HighLeveBenefitHeader() As String = {"Health Center Information", "", "", "", "", ""}
Dim myHighLeveBenefitEnum As IEnumerator = HighLeveBenefitHeader.GetEnumerator()
'Add  Header row
Dim HeaderHighLevelBenefit As Row = CreateTableHeaderRow(currentRow)
' Add Cells
For Each value As String In HighLeveBenefitHeader
       CreateTextTableCell(HeaderHighLevelBenefit, myHighLeveBenefitEnum.MoveNext, value.ToString, currentRow, 182, True)
        Next
        sheetData.AppendChild(HeaderHighLevelBenefit)