以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 窗口改变颜色 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=158673) |
-- 作者:yangwenghd -- 发布时间:2020/11/28 16:37:00 -- 窗口改变颜色 老师,在窗口的按钮改变表a的列的颜色呀? 感谢 感谢 比如设计一个按钮,然后点击后就变成了需要的style 感谢 感谢 If e.Col.Name = "询得信息_单价价格" e.Style = "成本" End If |
-- 作者:有点蓝 -- 发布时间:2020/11/28 16:45:00 -- 没有办法,只能到drawcell事件处理 |
-- 作者:yangwenghd -- 发布时间:2020/11/30 11:27:00 -- 是这样的,老师,本来表是有颜色的,只是打印的时候,不希望表格有颜色,其他地方还是改有颜色就有颜色, 应该怎么做呀, |
-- 作者:有点蓝 -- 发布时间:2020/11/30 11:32:00 -- 怎么做的打印? |
-- 作者:yangwenghd -- 发布时间: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 |
-- 作者:有点蓝 -- 发布时间: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
|