Visual Basic - Imprimir en horizontal

Life is soft - evento anual de software empresarial

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 clara

No me gusta: Está pregunta no esta clara o no es útil

Responder

Imprimir en horizontal

Publicado por Pico (114 intervenciones) el 19/06/2014 22:00:48

Dudo mucho que un objeto printer, que será algo para imprimir, tenga un método form1, que es el nombre que le has puesto a un form. Más que creo que un form se imprime como pone ahí http://msdn.microsoft.com/es-es/library/bb629268.aspx

Valora esta respuesta

Me gusta: Está respuesta es útil y esta clara

No me gusta: Está respuesta no esta clara o no es útil

Comentar

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

Comentar

Imprimir en horizontal

Publicado por Pico (114 intervenciones) el 20/06/2014 21:47:43

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

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:

Private Sub cmdimprimir_Click()

Printer. Orientation=2

PrintForm

EndSub

Valora esta respuesta

Comentar

ayuda¡¡ necesito pasar registros de una tabla que tengo en mysql a otra tabla en sql

Recibir lecturas de codigo de barras y consultar en base de datos