Hola a todos ! Estoy haciendo un programa y me han surgido 2 dudas xD

La primera duda es a la hora de imprimir un formulario, y quiero que la hoja me salga en horizontal, he puesto un codigo al hacer click en un boton pero me lo imprime normal:

Form3.PrintForm
Printer.NewPage
Printer.PaperSize = vbPRPSA4
Printer.Orientation = 2
Printer.EndDoc

Es la primera vez que intento imprimir algo desde visual se nota ehh ? jeje


Y la segunda duda, puedo utilizar matrices en los ficheros?He creado un modulo y escribi lo siguiente:

Public Type Accidente
Ac(14, 5) As Integer
End Type

Es esto correcto ? Al ejecutar el programa da este error: El numero de dimensiones es incorrecto.He creado mal la matriz?

Un saludo y gracias de antemano

Para que te imprima, prueba esto:

Printer.Orientation = 2
Me.PrintForm

Ese codigo no funciona :S me lo sigue imprimiendo en vertical.Alguien tiene una solucion ? Porfa

Iniciado por juliocasho

Form3.PrintForm
Printer.NewPage
Printer.PaperSize = vbPRPSA4
Printer.Orientation = 2
Printer.EndDoc

En primer lugar el codigo que estas ocupando esta bien, solo que escrito de manera incorrecta. Esto que te pongo aqui es la forma correcta

Nota: Primero debes configurar la pagina como la quieres, y luego mandar a imprimir

Código:

Printer.PaperSize = vbPRPSA4
Printer.Orientation = 2
Printer.NewPage
Form3.PrintForm
Printer.EndDoc

Saludos