Foxtable(狐表)用户栏目专家坐堂 → 对于报表示例文件中有1个不明白.


  共有18895人关注过本帖树形打印复制链接

主题:对于报表示例文件中有1个不明白.

帅哥哟,离线,有人找我吗?
gdtgl
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:445 积分:3013 威望:0 精华:0 注册:2008/9/13 10:49:00
对于报表示例文件中有1个不明白.  发帖心情 Post By:2008/10/6 23:56:00 [只看该作者]

因为无论命令窗口或代码编程器应都不支持、(顿号),但示例文件中的图确做到了???


此主题相关图片如下:未命名.jpg
按此在新窗口浏览图片


这段代码应是在窗口执行的吧?(变量s应不是表中内容)
 

Dim doc As New PrintDoc '定义一个报表
Dim
rt As prt.RenderText '定义一个文本对象
Dim
s As String '定义字符变量
s =
"新华网绵阳5月16日电(记者孙承斌)16日上午,在四川抗震救灾的"
s = s &
"危急时刻,中共中央总书记、国家主席、中央军委主席胡锦涛乘飞机赶往四川"
s = s &
"省地震灾区,慰问灾区干部群众,看望奋战在抗震救灾第一线的部队官兵、公"
s = s &
"安民警和医护人员,指导抗震救灾工作。"
For
i As Integer = 1 to 20
    rt = New prt.RenderText
    rt.Text = s
'设置文本对象的内容
    rt.Style.TextIndent =
9 '首行缩进9毫米
    rt.Style.Spacing.Top =
5 '每段间隔5毫米
    rt.Style.LineSpacing =
150 '1.5倍行距
    doc.Body.Children.Add(rt)
'将文本对象加入到报表
Next

'设置页眉

Dim
rx As New prt.RenderTable
rx.Cells(
0,0).Text = Date.Today
rx.Cells(
0,1).Text = "抗震救灾专题"
rx.Cells(
0,2).Text = "第[PageNo]页,共[PageCount]页"
rx.Cols(
0).Style.TextAlignHorz = prt.AlignHorzEnum.Left
rx.Cols(
1).Style.TextAlignHorz = prt.AlignHorzEnum.Center
rx.Cols(
2).Style.TextAlignHorz = prt.AlignHorzEnum.right
rx.Style.Borders.Bottom = prt.LineDef.Default
'设置底边框
rx.CellStyle.Spacing.Bottom =
0.5 '底端内容缩进0.5毫米
rx.Style.FontSize =
8 '字体大小为8磅
Doc.PageHeader = rx
'作为页眉使用
doc.Preview()
'预览


 回到顶部
帅哥哟,离线,有人找我吗?
czy
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章 三级勋章 二级勋章
等级:超级版主 帖子:6318 积分:33945 威望:0 精华:10 注册:2008/8/31 20:56:00
  发帖心情 Post By:2008/10/7 0:19:00 [只看该作者]

可以的呀。
 

 

自动全角转换

在默认的情况下,代码编辑器会自动将全角字符转换为半角,如果你不喜欢这种强制转换,可以在第一行代码输入:'''

例如:


'''

Dim d1 As Date
d1 = #12/31/2008#
Output.Show(d1.Month)

[此贴子已经被作者于2008-10-7 0:19:10编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
gdtgl
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:445 积分:3013 威望:0 精华:0 注册:2008/9/13 10:49:00
  发帖心情 Post By:2008/10/7 0:30:00 [只看该作者]

谢谢啊.图片点击可在新窗口打开查看

 回到顶部