Visual Basic - Imprimir con command1

Life is soft - evento anual de software empresarial
   
Vista:

Imprimir con command1

Publicado por lucho (22 intervenciones) el 13/10/2011 18:40:10
Saludos a todos:
Solicito de favor que alguien del foro me pueda corregir con el siguiente código, tengo un formulario del cual metí un command para imprimir, mismo si imprime al dar ckick, pero en vertical, yo lo que quiero que dicho formulario salga en forma horizontal. Manejo Visual Basic 6.0
Private sub command1_click()
Printforrm
end sub
Gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Antoni Masana

Imprimir con command1

Publicado por Antoni Masana amasana@hotmail.com (88 intervenciones) el 14/10/2011 08:45:30
Enviame el codigo e intentare ayudarte.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Imprimir con command1

Publicado por Christian (666 intervenciones) el 14/10/2011 22:50:00
Mira no estoy seguro de que funcione pero podes probar haciendo esto.

Printer.Orientation = 1 (vbPRORPortrait)
Printer.Orientation = 2 (vbPRORLandscape) este seria tu caso

despues hace el printform.

lo que no se es si el print form tambien es parte del objeto printer pero bueno fijate y despues me contas.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Imprimir con command1

Publicado por lucho (22 intervenciones) el 17/10/2011 20:22:13
Christian:
Muchíma gracias, si funcionó
Saludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Imprimir con command1

Publicado por lucho (22 intervenciones) el 17/10/2011 20:27:46
Antoni Masana
Gracias por contestar y por tu apoyo, funcionó correctamente con la ayuda de Christian también
Saludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar