Visual Basic - Imprimir con command1

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

Enviame el codigo e intentare ayudarte.

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.

Christian:
Muchíma gracias, si funcionó
Saludos

Antoni Masana
Gracias por contestar y por tu apoyo, funcionó correctamente con la ayuda de Christian también
Saludos