Foxtable(狐表)用户栏目专家坐堂 → 我用表格打印 代码如下 能不能把字体变大些


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

主题:我用表格打印 代码如下 能不能把字体变大些

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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/7/7 17:03:00 [显示全部帖子]

Tables("毛纱进货单").Font = new Font("宋体", 20)

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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/7/7 17:12:00 [显示全部帖子]

Tables("毛纱进货单").Font = new Font("宋体", 20)
Tables("毛纱进货单").AutoSizeCols

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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/7/7 17:25:00 [显示全部帖子]

Dim f As font = Tables("表A").Font
Dim cwidth As String = Tables("表A").getColVisibleWidth

Tables("表A").Font = new Font("宋体", 9)
Tables("表A").AutoSizeCols

 

 

 

Tables("表A").SetColVisibleWidth(cwidth)
Tables("表A").Font = f


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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/7/7 17:49:00 [显示全部帖子]

DataRowAdded

 

e.DaTaRow("日期") = Date.Today


 回到顶部