Prova a cercare Printer nella guida di VB

cmq, per la stampa orizzontale:
codice:
Printer.Orientation = VbPRORPortrait   'verticale
Printer.Orientation = VbPRORLandscape  'orizzontale