报表打印问题，难！！！

Question

用PICBOX可以实现1、2，但是3相对比较...
我现在的手提上没有完整的源码，所以1没给完整的例程，2也是以前写的，如果你能想到比较好的方法就MAIL会我一个咯。====不在乎加分，在乎交流========  hehe !  //hand 对于1，我是这样做的：设置一个SUB打印原表单，用另一个SUB处理数据打印
e.g.
sub Export(PrnObj  as obj)
    if obj is picture  then DrawBox
    PrnData
    if not (obj is picture) then obj.enddoc
end sub对于2：
Sub OutTextA(pObject As Object, ByVal Xstart As Single, Optional ByVal Xend As Single = -1, Optional ByVal pY As Single = 0, Optional ByVal pFont As String = "宋体", Optional ByVal pFONTSIZE As Single = 9.5, Optional pString, Optional pBold As Boolean = False, Optional pItalic As Boolean = False, Optional pUnderline As Boolean = False, Optional Station As Integer = -1)
    Dim X As Single, tw As Single, w As Single
    Xstart = Xstart + 0.7
    Xend = Xend - 0.5
    If Xend = -1 Then Station = -1
    pObject.CurrentY = pY
    DoEvents
    pObject.FontUnderline = pUnderline
    pObject.FontItalic = pItalic
    pObject.FontBold = pBold
    pObject.FontSize = pFONTSIZE
    pObject.Font = pFont
    pObject.FontSize = pFONTSIZE
    tw = pObject.TextWidth(pString)
    w = Abs(Xend - Xstart)
    Do While tw >= w
        pObject.FontSize = pObject.FontSize - 1
        pObject.CurrentY = pObject.CurrentY + 0.2
        tw = pObject.TextWidth(pString)
    Loop
    Select Case Station
    Case -1
        pObject.CurrentX = Xstart
    Case 0
        pObject.CurrentX = Xstart + (w - tw) / 2
    Case 1
        pObject.CurrentX = Xend - tw
    End Select
    pObject.Print pString
End Sub

Answer 1

4_eye_cat:
我是一个vb初学者，能否把你的详细代码E给我

Answer 2

使用activereport应该可以控制到

Answer 3

unl:
能给我一份详细例子吗？因为我很菜:-)，拜托了！！！
                  

Answer 4

我建议你去http://lovevb.2699.com,里面有几种方法和控件,要么你去usevb.yeah.net去看看

Answer 5

1: 通过设置线的visible来显示或者隐藏表格线private sub SetLinesVisible(byval State as boolean)dim st as Section
for each st in Sections
    dim c as object
    for each c in st.controls
        if typeof c is DDActiveReports.line then
            c.visible = State
        end if
    next
next
end sub