VB 如何设置横向纵向

1、Printer.Orientation=VbPRORPortrait'纵向打印  Printer.Orientation=VbPRORLandscape'横向打印  

2、Printer.Orientation = 2文档打印以纸的宽边作顶部.

3、将excel工作簿设为横向打印

xlsSheet.PageSetup.Orientation=xlLandscape '横向打印xlsSheet.PageSetup.Orientation=xlPortrait '纵向打印