Foxtable(狐表)用户栏目专家坐堂 → 窗口改变颜色


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

主题:窗口改变颜色

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


加好友 发短信
等级:九尾狐 帖子:2701 积分:17993 威望:0 精华:0 注册:2013/4/9 10:41:00
窗口改变颜色  发帖心情 Post By:2020/11/28 16:37:00 [只看该作者]

老师,在窗口的按钮改变表a的列的颜色呀? 感谢 感谢 
比如设计一个按钮,然后点击后就变成了需要的style 感谢 感谢 
If e.Col.Name = "询得信息_单价价格"
e.Style = "成本"
End If


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


加好友 发短信
等级:超级版主 帖子:105473 积分:536350 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/11/28 16:45:00 [只看该作者]

没有办法,只能到drawcell事件处理

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


加好友 发短信
等级:九尾狐 帖子:2701 积分:17993 威望:0 精华:0 注册:2013/4/9 10:41:00
  发帖心情 Post By:2020/11/30 11:27:00 [只看该作者]

是这样的,老师,本来表是有颜色的,只是打印的时候,不希望表格有颜色,其他地方还是改有颜色就有颜色, 应该怎么做呀,

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


加好友 发短信
等级:超级版主 帖子:105473 积分:536350 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/11/30 11:32:00 [只看该作者]

怎么做的打印?

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


加好友 发短信
等级:九尾狐 帖子:2701 积分:17993 威望:0 精华:0 注册:2013/4/9 10:41:00
  发帖心情 Post By:2020/11/30 14:22:00 [只看该作者]

就是上次你帮忙写的这个,感谢 感谢 

forms("客户报价窗口").controls("RadioButton2").checked = True
Tables("客户报价窗口_Table1").AutoSizeRows()

Dim path As String = Tables("客户报价表").Current("报价信息_文件路径")
'Dim path As String = ProjectPath & e.Form.Controls("ComboBox4").Text '不添加固定文件夹
If FileSys.DirectoryExists(path) = False
    filesys.CreateDirectory(path)
End If  '只是添加文件夹

Dim dlg As New SaveFileDialog '定义一个新的SaveFileDialog 
dlg.Filter= "PDF文件|*.pdf" '设置筛选器
'dlg.InitialDirectory = "自己指定的保存目录"
dlg.InitialDirectory = Tables("客户报价表").Current("报价信息_文件路径") 

dlg.FileName = Tables("客户报价表").current("客户信息_客户名称") & Tables("客户报价表").current("客户信息_负责采购") & Tables("客户报价表").current("报价单号") & ".pdf"
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮

e.Form.Page.Width =297 '纸张宽度为100毫米
e.Form.Page.Height =210'纸张高度为120毫米
e.Form.Page.LeftMargin = 10 '设置左边距
e.Form.Page.RightMargin = 0 '设置右边距
e.Form.Page.TopMargin = 20 '设置上边距
e.Form.Page.BottomMargin = 20 '设置下边距
Dim grp As WinForm.GroupBox = e.Form.Controls("GroupBox1")
Dim doc As PrintDoc = e.Form.GernatePrintDoc(grp)

Dim rar As new prt.RenderArea
rar.Stacking = prt.StackingRulesEnum.InlineLeftToRight
Dim rm As prt.RenderImage
rm = New prt.RenderImage '创建一个图片
rm.Width = 15 '宽度等于页面宽度
rm.Height = 15 '高度由图片大小自动决定
rm.Image = GetImage("匹士克logo.png")
rm.x = 121
rm.y = 0

Dim ra As New prt.RenderText '设置文本对象的内容
ra.Text = e.Form.Controls("Label13").text
ra.Style.font  = New Font("宋体", 8)
ra.Style.TextAlignHorz = prt.AlignHorzEnum.right 
ra.Style.TextAlignVert =prt.AlignVertEnum.Bottom
ra.Style.Borders.Bottom = New prt.LineDef(1, Color.Black) '设置底边框
ra.Style.Padding.Bottom = 2 '底端内容缩进0.5毫米
ra.Style.FontSize = 12 '字体大小为8磅
ra.Height = 10


Dim rt As New prt.RenderText '设置文本对象的内容
'rt.Text = "第[PageNo]页,共[PageCount]页" '设置文本内容
rt.Text = "page [PageNo] of [PageCount]" '设置英文文本内容
rt.Style.font  = New Font("宋体", 8)
rt.Style.TextAlignHorz = prt.AlignHorzEnum.Center '靠右对齐
rt.Style.Borders.Top = New prt.LineDef(1, Color.Black) '设置底边框
rt.Style.Padding.Top = 0.5 '底端内容缩进0.5毫米
rt.Style.FontSize = 14 '字体大小为8磅
rt.Height = 15

rar.Children.Add(rm) '加入图片到RenderArea中
rar.Children.Add(ra) '加入文本到RenderArea中

Doc.Pageheader  = rar '作为页眉使用
Doc.PageFooter  = rt '作为页眉使用

doc.PageSetting.Landscape = True '横向打印
'设置页眉
doc.SavePDF(dlg.FileName)

Dim Proc As New Process '打开PDF文件
Proc.File = (dlg.FileName)
Proc.Start()  '预览pdf内容
'doc.Preview() '预览

End If



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


加好友 发短信
等级:超级版主 帖子:105473 积分:536350 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/11/30 14:31:00 [只看该作者]

drawcell事件

if vars("p") = true then return
If e.Col.Name = "询得信息_单价价格"
e.Style = "成本"
End If

打印按钮
vars("p") = true
Tables("要打印的窗口表").Refresh
上面的打印代码
vars("p") = false
Tables("要打印的窗口表").Refresh

 回到顶部