Visual Basic.NET - Imprimir con PrintDocument y PrintDialog

¡Hola a Todos!
Con VB.NET 2003 realizo los informes para impresión con PrintDocument y PrintDialog. Mi problema es hacer que los datos de configuración seleccionados por el usuario como ser cantidad de copias, selección de hojas, tengan efecto en la impresión final del PrintDocument. Ya que muestro el dialogo de impresión pero los datos seleccionados no se reflejan en la impresión final. A modo de ejemplo les indico como hago la impresión:

Dim prtDialog As New PrintDialog
prtDialog.Document = PrintDocument
prtDialog.AllowSomePages = True
If prtDialog.ShowDialog = DialogResult.OK Then
PrintDocument.Print()
End If

¿Cómo puedo hacer para que la configuración de impresión tenga efecto sobre la impresión?

¡Muchas gracias de antemano!

Saludos

Diego

Este codigo lo tengo en vb 2005 es algo similar aloque buscas si te sirve as melo saver mi correo es [email protected]

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
' Formulario hijo activo
Dim FormHijo As FormFactura = Me

If FormHijo Is Nothing Then Return

'Permitir al usuario elegir el rango de páginas a imprimir.
PrintDialog1.AllowSomePages = True
If (PrintDialog1.ShowDialog() = Windows.Forms.DialogResult.OK) Then
'Si se pulsó el botón "Aceptar" (OK), entonces imprimir.
Dim texto As String = FormHijo.rtbtext.Text
Dim seps() As Char = {ChrW(10), ChrW(13)} 'LF y CR
línea = Text.Split() 'líneas de texto que hay que imprimir
totalLineasImpresas = 0
PrintDocument1.Print() 'invoca a ImprimirDoc_PrintPage
End If
End Sub

Private Sub ImprimirDoc_PrintPage(ByVal sender As System.Object, ByVal ev As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
'Formulario hijo activo
Dim FormHijo As FormFactura = Me

'Insertar aquí el código para procesar la página.

Dim lineasPorPag As Single
Dim pos_Y As Single
Dim margenIzq As Single = ev.MarginBounds.Left
Dim margenSup As Single = ev.MarginBounds.Top

'Calcular el número de líneas por página
Dim fuente As Font = FormHijo.rtbtext.Font
Dim altoFuente As Single = fuente.GetHeight(ev.Graphics)
lineasPorPag = ev.MarginBounds.Height / altoFuente

'Contador de las líneas impresas en una página
Dim lineasImpresasPorPag As Integer = 0
'Imprimir cada una de las líneas
While (totalLineasImpresas < línea.Length And _
lineasImpresasPorPag < lineasPorPag)
Dim totalLineasImpresas As New AccessibleNavigation
pos_Y = margenSup + (lineasImpresasPorPag * altoFuente)
lineasImpresasPorPag += 1
End While

'Si quedan líneas por imprimir, siguiente página
If (totalLineasImpresas < línea.Length) Then
ev.HasMorePages = True
'se invoca de nuevo a ImprimirDoc_PrintPage
ev.HasMorePages = False 'finaliza la impresión
End If
End Sub

Este codigo llama al elemento imprimir para seleccionar la impresora la cantidad de paginas a escrivir a iuna cosa cambia el nombre rtbtext por el nombre del campo que quieras imprimir

¡Hola Vicente!
Gracias por responder.
Te agradezco el código. ¡Me viene bien!

Saludos

Diego

el codigo sta bien pero como seria en c#???