Mostrar Ventana Impresoras...
Publicado por Lucho (22 intervenciones) el 02/03/2009 04:40:30
Bueno... para empezar voy a ir agradeciendo a todos los que siempre ayudan a tontos como yo!! Tengo el siguiente código:
Dim oApp As Excel.Application
Dim cuaderno As Excel.Workbook
Dim hoja As Excel.Worksheet
Set oApp = CreateObject("Excel.Application")
oApp.Visible = False
Set cuaderno = oApp.Workbooks.Open("C:Informes EstadisticaLibro1.xls")
Set hoja = cuaderno.Worksheets("Hoja1")
hoja.PrintOut
cuaderno.Close
Set cuaderno = Nothing
Set oApp = Nothing
'Only XL 97 supports UserControl Property
On Error Resume Next
oApp.UserControl = True
Bien... este código lo saqué de este foro, lo probé y funciona de muy bien. El hecho es que de esta forma se imprime en la impresora predeterminada. Yo necesito que se muestre la ventana impresoras para que el usuario pueda optar entre las distinas impresoras disponibles.
Dim oApp As Excel.Application
Dim cuaderno As Excel.Workbook
Dim hoja As Excel.Worksheet
Set oApp = CreateObject("Excel.Application")
oApp.Visible = False
Set cuaderno = oApp.Workbooks.Open("C:Informes EstadisticaLibro1.xls")
Set hoja = cuaderno.Worksheets("Hoja1")
hoja.PrintOut
cuaderno.Close
Set cuaderno = Nothing
Set oApp = Nothing
'Only XL 97 supports UserControl Property
On Error Resume Next
oApp.UserControl = True
Bien... este código lo saqué de este foro, lo probé y funciona de muy bien. El hecho es que de esta forma se imprime en la impresora predeterminada. Yo necesito que se muestre la ventana impresoras para que el usuario pueda optar entre las distinas impresoras disponibles.
Valora esta pregunta
0
