Использование printdocument для печати диапазона страниц

---

у меня возникла проблема с выбором диапазона страниц или одной страницы для моей программы для печати выходных данных из моего приложения. Приложение печатает все страницы всякий раз, когда я хочу распечатать их из приложения.Приведенный ниже код работает хорошо но только печатает все страницы'
Спасибо

Что я уже пробовал:

Dim strConnection As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data source=c:\Users\Public\COUNCILDATA.mdb;Jet OLEDB:Database Password=ibadanc1;"
       Dim cn As OleDb.OleDbConnection = New OleDb.OleDbConnection(strConnection)
       cn.Open()
       Dim da As New OleDb.OleDbCommand("select * from DEPTNAME_DATA where DEPT_NAME='" & (dep_name) & "'", cn)
       Dim dr As OleDb.OleDbDataReader = da.ExecuteReader()
       If dr.HasRows Then
           dr.Close()
           cn.Close()
           Dim printDialog1 As PrintDialog = New PrintDialog
           PrintDocument1.DefaultPageSettings.PaperSize = PrintDocument1.PrinterSettings.PaperSizes(1)
           PrintPreviewDialog1.ShowDialog()
           Dim result As DialogResult = printDialog1.ShowDialog
           If (result = Windows.Forms.DialogResult.OK) Then
               PrintDocument1.Print()
           End If
       Else
           MsgBox("IT SEEMS THE DEPARTMENT'S NAME IS NOT CORRECT")
       End If

---

Dim da As New OleDb.OleDbCommand("select * from DEPTNAME_DATA where DEPT_NAME='" & (dep_name) & "'", cn)