Visual Basic

Private Sub CreateRecordDocument(ByVal projectNumber As String)
       Dim Report As Document
       Dim DocBuilder As DocumentBuilder
       Dim PrintDB As New PrintDialog
       Dim OriginalPrinter As String
       Dim NewPrinter As String
       Dim wshNetwork As Object
       Dim temporaryFileName As String = ExtractReport(projectNumber)
       Dim PSettings As New PrinterSettings
       Report = New Document(temporaryFileName, LoadFormat.Doc, "")
       DocBuilder = New DocumentBuilder(Report)
       ReplaceBookmarks(Report, DocBuilder, projectNumber)
       Report.Save(temporaryFileName)
       OriginalPrinter = PrintDB.PrinterSettings.PrinterName
       If PrintDB.ShowDialog() = Windows.Forms.DialogResult.OK Then
           PSettings = PrintDB.PrinterSettings
           NewPrinter = PrintDB.PrinterSettings.PrinterName
           wshNetwork = Microsoft.VisualBasic.CreateObject("WScript.Network")
           wshNetwork.SetDefaultPrinter(NewPrinter)
           Report.Print(PSettings)
           wshNetwork.setDefaultPrinter(OriginalPrinter)
       End If
   End Sub

Public Class testchart

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim objXL As Object
        Dim objWbk As Object
        Dim oSheet As Object     ' Excel Worksheet
        Dim oChart As Object     ' Excel Chart

        objXL = CreateObject("Excel.application")
        objWbk = objXL.workbooks.Open("C:\testing\test.xls")

        On Error GoTo ErrHandler

        Dim iRow As Integer      ' Index variable for the current Row
        Dim iCol As Integer      ' Index variable for the current Row

        Const cNumCols = 10      ' Number of points in each Series
        Const cNumRows = 2       ' Number of Series

        oSheet = objWbk.Worksheets.Item(1)

        oChart = oSheet.ChartObjects.Add(50, 40, 300, 200).Chart
        oChart.SetSourceData(Source:=oSheet.Range("A1").Resize(cNumRows, cNumCols))

        ' Make Excel Visible:
        objXL.Visible = True
        objXL.UserControl = True

ExitHandler:
        On Error Resume Next
        objWbk = Nothing
        objXL.Quit()
        objXL = Nothing
        Exit Sub

ErrHandler:
        MsgBox(Err.Description, vbExclamation)
        Resume ExitHandler


    End Sub
End Class