For orientation try this

Printer.Orientation = vbPRORLandscape