在activereport或水晶报表9中，如何用代码指定纸张大小（用户自定义）？

Question

急啊，谢谢！！

Answer 1

Private Sub ActiveReport_ReportStart()
    If Me.Printer.NDevices = 0 Then Me.Printer.DeviceName = ""
    Me.Printer.PaperSize = 10   ' 设置打印纸为 A4
    Me.Printer.Orientation = ddOPortrait    ' 纵向 “长 > 宽”    Me.Caption = UP_LoadString("H00239")
    SetActRpt Me
    lngRecord = 0
    lngPage = 0
    lngRecCount = datCtrl.Recordset.RecordCount
    bolHavePgTotal = False
    strPrevEmpNo = ""
    
    lblDateRpt.Caption = Format(frmAttn_I_P.dtpDate_from, "yyyy-mm-dd") & "  (" & rptGetWeek(frmAttn_I_P.dtpDate_from) & ") - " & Format(frmAttn_I_P.dtpDate_to, "yyyy-mm-dd") & "  (" & rptGetWeek(frmAttn_I_P.dtpDate_to) & ")"
    lblSortOrder.Caption = GetSort
    'check whether in/out is applied
    nInOut = GetSetting(RegKeyName, "INS", "USEIN_OUT", 0)
End Sub

Answer 2

不是
我要自定义，比如:宽210mm,高195mm
怎么设置？

Answer 3

在做rpt文件时指定,crystal可以的
开始指定的是默认打印机的大小
在rpt文件中,Detail里的LayOut里指定length和width

Answer 4

ActiveReport里当然也可以
Private Sub ActiveReport_ReportStart()
        ' Specify a custom paper size
    Me.PageSettings.PaperSize = 256
        ' Sets the paper's width to 2 inches
    Me.PageSettings.PaperWidth = 1440 * 2
         ' Sets the paper's height to 4 inches
    Me.PageSettings.PaperHeight = 1440 * 4
End Sub
不过，我在WIN2K下，1440 * 2宽度显示出来好像不是2英吋宽。

Answer 5

activereport中，我这样设置不起作用：）
arp1.printer.pagesize=256
arp1.printer.pagewidth=1400
arp1.printer.pageheight=1400
预览出来的还是A4纸
1.1版本