Imports Microsoft.Office.Interop
Imports System.Data.OleDb
Imports System.IO
Imports System.Security.Principal
Imports System.Drawing
Imports System.Drawing.Printing
Public Class Form9
Dim xlApp As Excel.Application = CreateObject("Excel.Application")
Dim xlWorkBook As Excel.Workbook
Dim xlWorkSheet As Excel.Worksheet
Dim dir As String
Public pd As PrintDocument
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
xlApp.DisplayAlerts = False
pd = New PrintDocument
pd.PrinterSettings.Duplex = Printing.Duplex.Vertical
xlWorkBook = xlApp.Workbooks.Open(dir)
xlWorkBook.Sheets(7).printout()
xlWorkBook.Close()
xlApp.Quit()
End Sub
End Class