datareport中的页面大小调整是怎么实现的呀？？？

Question

我有几个datareport页面，一起加载在一个mdiform中，我想自己做一个控制预览页面大小控制的东西？那位大虾帮助一下？

Answer 1

我也有相同的问题，datareport怎样才能打印A3纸张呢？将datareport。Reportwidth设置高了老是提示“报表宽度大于纸张宽度”，好郁闷！

Answer 2

Private Sub DataReport_Initialize()
    AddExportReport ' Add a custom format.
    
    With rptNwind ' Adjust size of report using screen measurements supplied by SysInfo control.
        .Left = 1000
        .Top = 1000
        .Width = frmShowReport.sysInfo.WorkAreaWidth * 0.75
        .Height = frmShowReport.sysInfo.WorkAreaHeight * 0.75
        '******注意这里*****
        .BottomMargin = m_PSD.rtMargin.Bottom
        .TopMargin = m_PSD.rtMargin.Top
        .LeftMargin = m_PSD.rtMargin.Left
        .RightMargin = m_PSD.rtMargin.Right 
        '**** 不过要注意单位统一阿 ****
    End With
End Sub

Answer 3

可以用一下这语看试不试你所需要的.
在报表显示之前写上这语
datareport.PrintReport True
它可以调整报表的大小.出来打印控制对话框.在你要打印机上右击属性里改就可以了.