求一DataReport的列子，奉上100分，不够可再加

Question

你修改一下报表脚注的forcepagebreaker和keeptogether属性看看，或者干脆把报表脚注部分加长

Answer 1

forcepagebreaker的值为: 0-rptPageBrakeNone
keeptogether的值为:False报表的注脚部分加长也没用谢谢

Answer 2

D:\Program Files\Microsoft Visual Studio\VB98\Template\Projects\
Data Project.vbp

Answer 3

Private Sub cmdPrintList_Click()
Set rs = New ADODB.Recordset
rs.Open "Select * From UrgencyInfo", cnn
DataReport2.RptPrint rs
rs.CloseEnd Sub
Public Sub RptPrint(rsP As ADODB.Recordset)
    On Error GoTo Handle
    Me.Sections("section1").Controls("labTitle").Caption = rsP("UrgencyInfoNo")
    Me.Sections("section1").Controls("labRecevier").Caption = rsP("DEPARTMENTNAME") & "："
    Me.Sections("section1").Controls("labContent").Caption = "    " & rsP("UrgencyContent")
    Me.Sections("section1").Controls("labDate").Caption = Now
    Me.Sections("section1").Controls("labConnect").Caption = rsP("EMPLOREENAME")
    Me.Sections("section1").Controls("labTel").Caption = rsP("DEPARTMENTTELINFO")
    Set Me.DataSource = rsP.DataSource
    Me.Show vbModal
    Exit Sub
    
Handle:
    If rsP.State <> adStateClosed Then rsP.Close
    Set rsP = Nothing
    MsgBox Err.Description
    
End Sub

Answer 4

建议你使用Printer对象进行打印，

Answer 5

lonelystarcn(虫虫)你好！
能否给我一个用Printer对象打印的例子？还有一点，我想知道，我可否只对报表注脚这一块用Printer进行打印，而别的地方用别的方法输出？我的信箱：[email protected]谢谢！

Answer 6

你可以用printer.print就可以打印啦

Answer 7

shadow0430(狙击组长)你好！
能否给我一个用Printer对象打印的例子？还有一点，我想知道，我可否只对报表注脚这一块用Printer进行打印，而别的地方用别的方法输出？我的信箱：[email protected]谢谢！