vb报表在设计时如何调整打印方向?

Question

if 超过宽度 then
    printer.Orientation=2
else
end if

Answer 1

修改打印对象的Orientation属性,
随便问一句,"当每行需要添加的控件太多时"这句话是什么意思?

Answer 2

printer.Orientation=2
我肯定它是沒用的.........
解決之道API

Answer 3

你可以通过一个CommonDialog来进行调整，程序如下：
　Private Sub Command1_Click() 
    CommonDialog1.Flags = cdlPDPrintSetup 
    CommonDialog1.CancelError = True 
    On Error GoTo ErrorHandle: 
    CommonDialog1.ShowPrinter '必 须 Show出 来 且 "确 定 "才 能 修 改 纸 方 向 
    'Me.Refresh 
    'Command1.Refresh 
    On Error GoTo 0 
    DataReport1.Show vbModal 
    ErrorHandle: 
    End Sub

Answer 4

调整printer.Orientation，具体参数情参见MSDN