Visual Basic - PrintOut (pregunta)

Como hago para modificar la resolución con PrinOut, o en su defecto, mostrar el cuadro de dialogo de Impresión de windows.

Grácias.

No sé si esto es lo que quieres:
'Insertar un control CommonDialog y

CommonDialog1.ShowPrinter

Te muestra el cuadro de conf. de tu impresora.
La verdad es que PrintOut no lo conozco. :)
Un saludo.

Mirando por ahí (MSDN)he encontrado un método para modificar la resolución:
Printer es un objeto que contiene, inicialmente, la impresora predeterminada del sistema.
Para la resolución puedes utilizar Printer.PrintQuality = valor
valor va desde -1 (calidad inferior) a -4(calidad superior)
También puedes darle a valor un numero positivo de puntos por pulgada(ppp), por ejemplo: 300

'Para cambiar el objeto Printer inicial a uno específico que necesites:

Dim X As Printer
For Each X In Printers 'La coleción Printers proporciona la impresoras disponibles del sistema
'En la decisión 'if' pregunta que la orientación de la impresora sea vertical
If X.Orientation = vbPRORPortrait Then
' La define como predeterminada del sistema.
Set Printer = X
' Sale del bucle.
Exit For
End If
Next

La verdad, gracias por la respuesta pero en esta ocasion no me sirve pues necesito hacerlo con el PrinOut, pues estoy imprimiendo una tabla de excel.

No podrias ayudarme con las opciones del PrinOut pues no tengo los cd's del MSDN.

Grácias Nuevamente

Veamos, no quiero ser pesado, sólo que me fastidia no solucionar problemas :)

Se supone que tienes una tabla de excel llamada hoja1 abierta ¿no?.
Entonces con Worksheet(hoja1) (función que retorna un objeto puedes acceder a todas las propiedades de la hoja de cálculo.

With Worksheets("hoja1")
.PageSetup.Orientation = xlLandscape 'impresión apaisada
.PrintQuality= Array(240, 140)
.PrintOut ' vaya, printout....no tenía ni idea de él :P
End With
'El Array representa la calidad horizontal y vertical de impresión, puede dar error porque algunas impresoras no soportan calidad de impresión vertical
'Se puede utilizar como propiedad:
Worksheets("Hoja1").PageSetup.PrintQuality(1)
'Devolvería la calidad de impresión horizontal

Espero que te sirva este, en cualquier caso puedes escribirme acerca de cualquier problema que se te plantee con esto.
Un saludo.
A ver si a la tercera va la vencida :)