这么调用的
    With dlgCommonDialog
        .CancelError = True
        .DialogTitle = "打印设置"
        .Flags = cdlPDPrintSetup
        .ShowPrinter
    End With

解决方案 »

  1.   

    是这样的请用下面的代码
    或许对你有用。
    http://www.csdn.net/expert/topic/660/660318.xml?temp=.4891016
    主  题:  如何在程序中设置打印机的方向 
    作  者:  jswxcathay596200 ()  
    等  级:    
    信 誉 值:  100 
    所属论坛:  Visual Basic 
    问题点数:  20 
    回复次数:  8 
    发表时间:  2002-4-19 14:35:57 
          '**********在屏幕中调用如下**********
          '    ResetPrinterOrientation Me      '设为默认值
          '    ChngPrinterOrientationPortrait Me '设置为纵向
          '    ChngPrinterOrientationLandscape Me '设置为横向