imprimir userform horizontal y error q no conozco

21/07/2006 - 14:44 por MARCO6325 | Informe spam

Hola¡¡¡
tengo este código para imprimir un userform y quiero arreglarle 2
detalles:
1. Quisiera que imprimiera con la hoja en horizontal..para aprovechar
el espacio al
máximo y ayudando un poco a los miopes, ya que saldria mas
grande.jejeje
2. Y lo que no entiendo es que despues de imprimir no puedo seleccionar

nada con el puntero del mouse, cuando hago click en la barra de
herramientas aparece algo parecido a un boton de comando pequeñito en
la punta del puntero...y si hago click en una imagen que contiene una
macroen vez de ejecutarla selecciona la imagen...como si
estuviese manteniendo pulsado la tecla Ctrl...

Algo me dice que es el DoEvents, si me ayudan a hacerlo de otra
forma.se los agradezco
mando el código que usé :

Private Sub Image2_Click()
DoEvents
ImprPant 164, 0, 1, 0
ImprPant 44, 0, 1, 0
DoEvents
Workbooks.Add
ActiveSheet.PasteSpecial Format:="mapa de bits"
' imprimimos la hoja requerida '
Application.ActivePrinter = "\\ipas_linux\Piso01.ObrasyServII en Ne02:"

ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, _
ActivePrinter:="\\ipas_linux\Piso01.ObrasyServII en Ne02:",
Collate:=True
ActiveWorkbook.Close False
Sheets("Inicio").Select
ActiveWorkbook.Save
End Sub

Como siempre...Gracias de Antemano

Siga el debate

1 respuesta

Tengo una respuesta

Preguntas similare

error en winword. no permite imprimir y se cierra

Leer las respuestas

#1 Héctor Miguel

22/07/2006 - 02:07 | Informe spam

hola, Marco !

1. ... que imprimiera con la hoja en horizontal..para aprovechar el espacio al maximo...
2. ... lo que no entiendo es que despues de imprimir no puedo seleccionar nada con el puntero del mouse [...]

Algo me dice que es el DoEvents, si me ayudan a hacerlo de otra forma.se los agradezco mando el codigo que use:

1) prueba a cambiar la orientacion en la configuracion de la pagina ANTES de 'mandar a la impresion'... [p.e.]

ActiveSheet.PageSetup.Orientation = xlLandscape
ActiveSheet.PrintOut

2) entre las dos instrucciones 'DoEvents' se ha quedado 'corta' la liberacion de la tecla PrnScr :((
corrige a:...

DoEvents
ImprPant 164, 0, 1, 0
ImprPant 44, 0, 1, 0
ImprPant 44, 0, 1 + 2, 0
ImprPant 164, 0, 1 + 2, 0
DoEvents

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

__ el codigo expuesto __
Private Sub Image2_Click()
DoEvents
ImprPant 164, 0, 1, 0
ImprPant 44, 0, 1, 0
DoEvents
Workbooks.Add
ActiveSheet.PasteSpecial Format:="mapa de bits"
' imprimimos la hoja requerida '
Application.ActivePrinter = "\\ipas_linux\Piso01.ObrasyServII en Ne02:"
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, _
ActivePrinter:="\\ipas_linux\Piso01.ObrasyServII en Ne02:", Collate:=True
ActiveWorkbook.Close False
Sheets("Inicio").Select
ActiveWorkbook.Save
End Sub

Siga el debate Respuesta

Responder a este mensaje

Ads by Google

Hacer una pregunta

Tengo una respuesta

Busqueda sugerida