以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  我用表格打印 代码如下 能不能把字体变大些  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=87294)
--  作者：jswjyjf
--  发布时间：2016/7/7 17:01:00
--  我用表格打印 代码如下 能不能把字体变大些
我用表格打印 代码如下 能不能把字体变大些
DataTables("毛纱进货单").StopRedraw
Tables("毛纱进货单").grid.styles.Normal.Border.Color = Color.black
Tables("毛纱进货单").grid.styles.Normal.Border.Style = 1
Tables("毛纱进货单").grid.styles.Normal.Border.width = 5
Dim t As Table = Tables("毛纱进货单")
t.PrintInfo.OnlyPrintTitleOnFirstPage = False
With Tables("毛纱进货单").PrintInfo
    .Title ="毛纱进货明细"
   .subtitle = "毛纺厂:" & e.Form.Controls("combobox1").value  
  
   .PageFooter = "第[PageNo]页,共[PageCount]页"
    .PageFooterLine = True
    .PaperKind = 9
    .FitIntoPage = True
End With
Tables("毛纱进货单").Print(True,False)
Tables("毛纱进货单").grid.styles.Normal.Border.Color = Color.black
Tables("毛纱进货单").grid.styles.Normal.Border.Style = 1
Tables("毛纱进货单").grid.styles.Normal.Border.width = 1
 DataTables("毛纱进货单").ResumeRedraw
--  作者：大红袍
--  发布时间：2016/7/7 17:03:00
--  
Tables("毛纱进货单").Font = new Font("宋体", 20)
--  作者：jswjyjf
--  发布时间：2016/7/7 17:09:00
--  
这样的话 日期字段不会全部显示出来了
--  作者：大红袍
--  发布时间：2016/7/7 17:12:00
--  
Tables("毛纱进货单").Font = new Font("宋体", 20)
Tables("毛纱进货单").AutoSizeCols
--  作者：jswjyjf
--  发布时间：2016/7/7 17:22:00
--  
那打印后如何恢复到原来
--  作者：大红袍
--  发布时间：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
--  作者：jswjyjf
--  发布时间：2016/7/7 17:47:00
--  
还有一个问题 表格输入日期时 ，默认要求是当天 如何设置
--  作者：大红袍
--  发布时间：2016/7/7 17:49:00
--  

DataRowAdded

 

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