关于打印问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

为什么打印出来的样式和窗体实际显示的样式不一样呢？

此主题相关图片如下：微信图片_20200325005911.jpg

此主题相关图片如下：截图11.jpg

这种使用底层用法设置样式的，foxtable的打印无法识别。

怎么能实现这个样式呢？数据也不对，显示的是记录数，打出来的却是合计两字

[此贴子已经被作者于2020/3/25 8:44:51编辑过]

这种修改过的合计行无法导出。只能是导出后自己另外使用代码设置合计行样式和数据：http://www.foxtable.com/webhelp/topics/1146.htm

Dim dlg As New SaveFileDialog '定义一个新的SaveFileDialog

Dim flg As New SaveExcelFlags

dlg.Filter= "Excel文件|*.xlsx" '设置筛选器

If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮

Tables("按账户查账窗体_azhcxTable").SaveExcel(dlg.FileName, "按账户查账",flg.CellStyle=True ) '保存文件

End If

Dim Book As New XLS.Book

Dim Sheet As XLS.Sheet = Book.Sheets(0)

Dim Style As XLS.Style = Book.NewStyle() '定义新样式

Style.ForeColor = Color.Red '设置样式的字体颜色

For i As Integer = 0 To 9

Sheet(i, 0).Value = i

If i Mod 2 =0 Then '如果是偶数行

Sheet(i,0).Style =Style '设置单元格样式

End If

Book.Save("C:\WINDOWS\Web\Wallpaper\test.xls")

Dim Proc As New Process

Proc.File = "C:\WINDOWS\Web\Wallpaper\test.xls"

Proc.Start()

这样修改后把原数据都给删除了

把【开发指南-execl报表-类型介绍】这章内容仔细看一遍，学会理解代码再做。先看懂代码是做什么的

实现这个功能属于导出功能还是报表功能呢？本来是想随时将窗体表筛选出符合条件的数据按照窗体表显示的格式打印出来或导出来就可以了，报表是不是还得重新筛选计算和设计样式呀？

[此贴子已经被作者于2020/3/25 17:43:41编辑过]

属于导出功能，直接导出窗口数据。样式需要重新设计

想格式化合计行格式我怎么获取这个值呢？

此主题相关图片如下：截图00.jpg

导出的excel怎么没有合计行呢？

获取列的语句如下

For r As Integer = 0 To dt.Rows.Count - 1 '填入数据

Sheet(r + 1,dt.Cols("支出金额").Index).Style = Style '设置折扣单元格的样式

Sheet(r + 1,dt.Cols("收入金额").Index).Style = Style1 '设置折扣单元格的样式

获取合计行语句是什么呢？

全部代码如下

Dim dt As Table = Tables("按账户查账窗体_azhcxTable")

Dim dlg As New SaveFileDialog '定义一个新的SaveFileDialog

Dim flg As New SaveExcelFlags

dlg.Filter= "Excel文件|*.xlsx" '设置筛选器

If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮

Tables("按账户查账窗体_azhcxTable").SaveExcel(dlg.FileName, "按账户查账",flg.CellStyle=True ) '保存文件

End If

Dim Book As New XLS.Book(dlg.FileName)

Dim Sheet As XLS.Sheet = Book.Sheets(0) '引用工作簿的第一个工作表

Dim Style As Xls.Style = Book.NewStyle '新建一个样式

Dim Style1 As Xls.Style = Book.NewStyle '新建一个样式

Style.ForeColor = Color.Red '字体颜色设为红色

Style.Font =new font("宋体", 9,FontStyle.Bold ) ''字体为宋体12加粗

Style.Format =Format ("0.00") '格式化样式的字体颜色设为红色

Style1.ForeColor = Color.Blue '字体颜色设为蓝色

Style1.Font =new font("宋体", 9,FontStyle.Bold ) ''字体为宋体12加粗

Style1.Format =Format ("0.00")''格式化样式的字体颜色设为红色

For r As Integer = 0 To dt.Rows.Count - 1 '填入数据

Sheet(r + 1,dt.Cols("支出金额").Index).Style = Style '设置折扣单元格的样式

Sheet(r + 1,dt.Cols("收入金额").Index).Style = Style1 '设置折扣单元格的样式

Book.Save("C:\WINDOWS\Web\Wallpaper\test.xls")

Dim Proc As New Process

Proc.File = "C:\WINDOWS\Web\Wallpaper\test.xls"

Proc.Start()

[此贴子已经被作者于2020/3/26 10:06:10编辑过]

Style1.Format =Format ("0.00")''格式化样式的字体颜色设为红色

For r As Integer = 0 To dt.Rows.Count '填入数据

Sheet(r + 1,dt.Cols("支出金额").Index).Style = Style '设置折扣单元格的样式

Sheet(r + 1,dt.Cols("收入金额").Index).Style = Style1 '设置折扣单元格的样式

Sheet(dt.Rows.Count,0).Style = Style

Book.Save("C:\WINDOWS\Web\Wallpaper\test.xls")

主题：关于打印问题