Visual Basic - Imprimir en horizontal

Life is soft - evento anual de software empresarial
 
Vista:

Imprimir en horizontal

Publicado por lucho (22 intervenciones) el 19/06/2014 16:37:46
Mucho agradeceré a todos por su apoyo.
Quiero imprimir un proyecto que tengo en visual basic 5.0 (o sea un formato que realicé) y uso el el siguiente código:
Printer. Orientation=2
printer.form1


Pero no imprime, la verdad no sé qué código es el más adecuado
Nota: quiero aclarar que el formulario, lo tengo como nombre Saludo inicial, no se si influye
Saludos ATODOS
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

Imprimir en horizontal

Publicado por lucho (22 intervenciones) el 20/06/2014 18:40:18
Pico un saludo y muchas gracias por tu aportación:
Entonces el código quedaría asi?
Private Sub cmdimprimir_Click()
Printer. Orientation=2
PrintForm1.print
EndSub
Por favor permíteme pedirle una disculpa por mi ignorancia, y espero que me indiques donde está mi error
Gracias.
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
sin imagen de perfil

Imprimir en horizontal

Publicado por Pico (114 intervenciones) el 20/06/2014 21:47:43
1
2
3
4
5
pf As New PrintForm              Se crea el objeto PrintForm
pf.Form = Me                     Se asigna contenedor al objeto
pf.PrintAction = PrintToPrinter  Se le dice que tiene que imprimir en la impresoras, no disco o previsualización
pf.Orientation= 2                Se le dice la orientación
pf.Print()                       Se imprime



Si pones el control desde el diseño no tienes que crearlo ni tienes que decirle cuál es el contenedor.
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 en horizontal

Publicado por lucho (22 intervenciones) el 02/07/2014 19:02:52
Pico te agradezco tarde pero muchas gracias:
El siguiente código me resolvió el problema:
1
2
3
4
Private Sub cmdimprimir_Click()
Printer. Orientation=2
PrintForm
EndSub
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