Foxtable(狐表) → 用户栏目 → 专家坐堂 → 关于打印问题


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

主题：关于打印问题
帅哥哟，离线，有人找我吗？
裴保民
 小大  21楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1989 积分：12631 威望：0 精华：0 注册：2017/4/3 15:01:00 		  发帖心情 Post By：2020/3/26 15:21:00 [只看该作者]

Dim i As Integer = 0
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 '新建一个样式
Dim Style2 As Xls.Style = Book.NewStyle '新建一个样式
Dim Style3 As Xls.Style = Book.NewStyle '新建一个样式
Dim Style4 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")''格式化样式的字体颜色设为红色
Style2.ForeColor = Color.Red '字体颜色设为蓝色
Style2.Font =new font("宋体", 9,FontStyle.Bold ) ''字体为宋体12加粗
Style2.Format =Format ("0.00")''格式化样式的字体颜色设为红色
Style2.BackColor =Color.PaleGreen   '格式背景颜色设为红色
Style3.BackColor =Color.PaleGreen   '格式背景颜色设为红色
Style3.Font =new font("宋体", 10,FontStyle.Bold ) ''字体为宋体12加粗
Style3.BackColor =Color.LightGray '格式背景颜色设为红色
Style4.BackColor =Color.Azure '格式背景颜色设为红色
For Each c As Col In dt.Cols
If c.visible Then i+=1
Next
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 '设置折扣单元格的样式
  If  r Mod 2 =0 Then '如果是偶数行
    For lzs As Integer = 0 To i-1  'dt.Cols.Count-5  '填入数据
        Sheet( r+1 ,lzs ).Style =Style4 '设置单元格样式
      Next
    End If
   Next
Sheet(dt.Rows.Count+1,0).value = "记录数" & dt.Rows.Count
Sheet(dt.Rows.Count+1,dt.Cols("支出金额").Index).value = dt.compute("sum(支出金额)")
Sheet(dt.Rows.Count+1,dt.Cols("收入金额").Index).value = dt.compute("sum(收入金额)")
For cc As Integer = 0 To i-1 '填入数据
Sheet(dt.Rows.Count+1,cc).Style = Style2
Sheet(0,cc).Style = Style3
Next
Book.Save(ProjectPath & "按账户查账_" & Format(Date.Now,"yyyyMMdd HHmmss") & ".xls" ) 
Dim Proc As New Process
Proc.File =ProjectPath & "按账户查账_" & Format(Date.Now,"yyyyMMdd HHmmss") & ".xls" 
Proc.Start()
MessageBox.Show(dlg.FileName)
If FileSys.FileExists("dlg.FileName") Then '如果指定的文件存在
    FileSys.DeleteFile("dlg.FileName",2,2) '则彻底删除之
End If
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  22楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：105948 积分：538809 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/3/26 15:40:00 [只看该作者]

Dim Book As New XLS.Book(dlg.FileName)
Dim Sheet As XLS.Sheet = Book.Sheets(0) '引用工作簿的第一个工作表
Dim Style As Xls.Style = Book.NewStyle '新建一个样式
Dim Style02 As Xls.Style = Book.NewStyle '新建一个样式
Dim Style1 As Xls.Style = Book.NewStyle '新建一个样式
Dim Style12 As Xls.Style = Book.NewStyle '新建一个样式
Dim Style2 As Xls.Style = Book.NewStyle '新建一个样式
Dim Style3 As Xls.Style = Book.NewStyle '新建一个样式
Dim Style4 As Xls.Style = Book.NewStyle '新建一个样式
Dim Style5 As Xls.Style = Book.NewStyle '新建一个样式
Style.ForeColor = Color.Red '字体颜色设为红色
Style.Font =new font("宋体", 9,FontStyle.Bold ) ''字体为宋体12加粗
Style.Format =("0.00") '格式化样式的字体颜色设为红色
Style02.ForeColor = Color.Red '字体颜色设为红色
Style02.Font =new font("宋体", 9,FontStyle.Bold ) ''字体为宋体12加粗
Style02.Format =("0.00") '格式化样式的字体颜色设为红色
Style02.BackColor =Color.Azure
Style1.ForeColor = Color.Blue  '字体颜色设为蓝色
Style1.Font =new font("宋体", 9,FontStyle.Bold ) ''字体为宋体12加粗
Style1.Format =("0.00")''格式化样式的字体颜色设为红色
Style12.ForeColor = Color.Blue  '字体颜色设为蓝色
Style12.Font =new font("宋体", 9,FontStyle.Bold ) ''字体为宋体12加粗
Style12.Format =("0.00")''格式化样式的字体颜色设为红色
Style12.BackColor =Color.Azure
Style2.ForeColor = Color.Red '字体颜色设为蓝色
Style2.Font =new font("宋体", 9,FontStyle.Bold ) ''字体为宋体12加粗
Style2.Format =("0.00")''格式化样式的字体颜色设为红色
Style2.BackColor =Color.PaleGreen   '格式背景颜色设为红色
Style3.BackColor =Color.PaleGreen   '格式背景颜色设为红色
Style3.Font =new font("宋体", 10,FontStyle.Bold ) ''字体为宋体12加粗
Style3.BackColor =Color.LightGray '格式背景颜色设为红色
Style4.BackColor =Color.Azure '格式背景颜色设为红色
Style5.BackColor =Color.Azure '格式背景颜色设为红色
Style5.Format =("yyyy-MM-dd")''
For Each c As Col In dt.Cols
    If c.visible Then i+=1
Next
For r As Integer = 0 To dt.Rows.Count '填入数据
    If  r Mod 2 =0 Then '如果是偶数行
        For lzs As Integer = 0 To i-1  'dt.Cols.Count-5  '填入数据
            Sheet( r+1 ,lzs ).Style =Style4 '设置单元格样式
        Next
        Sheet(r + 1,dt.Cols("支出金额").Index).Style = Style02 '设置折扣单元格的样式
        Sheet(r + 1,dt.Cols("收入金额").Index).Style = Style12 '设置折扣单元格的样式
        Sheet(r + 1,dt.Cols("记账日期").Index).Style = Style5 '设置折扣单元格的样式
    Else
        Sheet(r + 1,dt.Cols("支出金额").Index).Style = Style '设置折扣单元格的样式
        Sheet(r + 1,dt.Cols("收入金额").Index).Style = Style1 '设置折扣单元格的样式
    End If
Next
 回到顶部
帅哥哟，离线，有人找我吗？
裴保民
 小大  23楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1989 积分：12631 威望：0 精华：0 注册：2017/4/3 15:01:00 		  发帖心情 Post By：2020/3/26 16:55:00 [只看该作者]

蓝老师对齐格式还是变了

图片点击可在新窗口打开查看此主题相关图片如下：截图06.jpg
图片点击可在新窗口打开查看

给个表的偶尔数列对齐样式都变了 并且同行不同的列对齐方式都不一样一个左一个右的显示


图片点击可在新窗口打开查看此主题相关图片如下：截图07.jpg
图片点击可在新窗口打开查看


[此贴子已经被作者于2020/3/26 17:14:47编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  24楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：105948 积分：538809 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/3/26 17:19:00 [只看该作者]


 回到顶部
帅哥哟，离线，有人找我吗？
裴保民
 小大  25楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1989 积分：12631 威望：0 精华：0 注册：2017/4/3 15:01:00 		  发帖心情 Post By：2020/3/26 17:41:00 [只看该作者]

Dim Book As New XLS.Book(dlg.FileName)
Dim Sheet As XLS.Sheet = Book.Sheets(0) '引用工作簿的第一个工作表
Dim Style As Xls.Style = Book.NewStyle '新建一个样式
Dim Style02 As Xls.Style = Book.NewStyle '新建一个样式
Dim Style1 As Xls.Style = Book.NewStyle '新建一个样式
Dim Style12 As Xls.Style = Book.NewStyle '新建一个样式
Dim Style2 As Xls.Style = Book.NewStyle '新建一个样式
Dim Style3 As Xls.Style = Book.NewStyle '新建一个样式
Dim Style4 As Xls.Style = Book.NewStyle '新建一个样式
Dim Style5 As Xls.Style = Book.NewStyle '新建一个样式
Style.ForeColor = Color.Red '字体颜色设为红色
Style.Font =new font("宋体", 9,FontStyle.Bold ) ''字体为宋体12加粗
Style.Format =("0.00") '格式化样式的字体颜色设为红色
Style02.ForeColor = Color.Red '字体颜色设为红色
Style02.Font =new font("宋体", 9,FontStyle.Bold ) ''字体为宋体12加粗
Style02.Format =("0.00") '格式化样式的字体颜色设为红色
Style02.BackColor =Color.Azure
Style1.ForeColor = Color.Blue  '字体颜色设为蓝色
Style1.Font =new font("宋体", 9,FontStyle.Bold ) ''字体为宋体12加粗
Style1.Format =("0.00")''格式化样式的字体颜色设为红色
Style12.ForeColor = Color.Blue  '字体颜色设为蓝色
Style12.Font =new font("宋体", 9,FontStyle.Bold ) ''字体为宋体12加粗
Style12.Format =("0.00")''格式化样式的字体颜色设为红色
Style12.BackColor =Color.Azure
Style2.ForeColor = Color.Red '字体颜色设为蓝色
Style2.Font =new font("宋体", 9,FontStyle.Bold ) ''字体为宋体12加粗
Style2.Format =("0.00")''格式化样式的字体颜色设为红色
Style2.BackColor =Color.PaleGreen   '格式背景颜色设为红色
Style3.BackColor =Color.PaleGreen   '格式背景颜色设为红色
Style3.Font =new font("宋体", 10,FontStyle.Bold ) ''字体为宋体12加粗
Style3.BackColor =Color.LightGray '格式背景颜色设为红色
Style4.BackColor =Color.Azure '格式背景颜色设为红色
Style5.BackColor =Color.Azure '格式背景颜色设为红色
Style5.Format =("yyyy-MM-dd")''
Style4.AlignHorz = XLS.AlignHorzEnum.Center
加了前几行 怎么不起作用呢？

图片点击可在新窗口打开查看此主题相关图片如下：截图08.jpg
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  26楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：105948 积分：538809 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/3/26 17:45:00 [只看该作者]

日期样式也同样加上

 回到顶部
帅哥哟，离线，有人找我吗？
裴保民
 小大  27楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1989 积分：12631 威望：0 精华：0 注册：2017/4/3 15:01:00 		  发帖心情 Post By：2020/3/26 17:55:00 [只看该作者]

Style.ForeColor = Color.Red '字体颜色设为红色
Style.Font =new font("宋体", 9,FontStyle.Bold ) ''字体为宋体12加粗
Style.Format =("0.00") '格式化样式的字体颜色设为红色
Style.AlignHorz = XLS.AlignHorzEnum.Center
Style02.ForeColor = Color.Red '字体颜色设为红色
Style02.Font =new font("宋体", 9,FontStyle.Bold ) ''字体为宋体12加粗
Style02.Format =("0.00") '格式化样式的字体颜色设为红色
Style02.BackColor =Color.Azure
Style02.AlignHorz = XLS.AlignHorzEnum.Center
Style1.ForeColor = Color.Blue  '字体颜色设为蓝色
Style1.Font =new font("宋体", 9,FontStyle.Bold ) ''字体为宋体12加粗
Style1.Format =("0.00")''格式化样式的字体颜色设为红色
Style1.AlignHorz = XLS.AlignHorzEnum.Center
Style12.ForeColor = Color.Blue  '字体颜色设为蓝色
Style12.Font =new font("宋体", 9,FontStyle.Bold ) ''字体为宋体12加粗
Style12.Format =("0.00")''格式化样式的字体颜色设为红色
Style12.BackColor =Color.Azure
Style12.AlignHorz = XLS.AlignHorzEnum.Center
Style2.ForeColor = Color.Red '字体颜色设为蓝色
Style2.Font =new font("宋体", 9,FontStyle.Bold ) ''字体为宋体12加粗
Style2.Format =("0.00")''格式化样式的字体颜色设为红色
Style2.BackColor =Color.PaleGreen   '格式背景颜色设为红色
Style2.AlignHorz = XLS.AlignHorzEnum.Center
Style3.BackColor =Color.PaleGreen   '格式背景颜色设为红色
Style3.Font =new font("宋体", 10,FontStyle.Bold ) ''字体为宋体12加粗
Style3.BackColor =Color.LightGray '格式背景颜色设为红色
Style3.AlignHorz = XLS.AlignHorzEnum.Center
Style4.BackColor =Color.Azure '格式背景颜色设为红色
Style4.AlignHorz = XLS.AlignHorzEnum.Center
Style5.BackColor =Color.Azure '格式背景颜色设为红色
Style5.Format =("yyyy-MM-dd")''
Style5.AlignVert = XLS.AlignVertEnum.Center

是这样吗？加上了，就这一列不行 已解决
[此贴子已经被作者于2020/3/26 18:16:35编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
裴保民
 小大  28楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1989 积分：12631 威望：0 精华：0 注册：2017/4/3 15:01:00 		  发帖心情 Post By：2020/3/26 18:27:00 [只看该作者]

Book.Save(ProjectPath & "按账户查账_" & Format(Date.Now,"yyyyMMdd HHmmss") & ".xls" ) 
Dim Proc As New Process
Proc.File =ProjectPath & "按账户查账_" & Format(Date.Now,"yyyyMMdd HHmmss") & ".xls" 
Proc.Start()
MessageBox.Show(dlg.FileName)
If FileSys.FileExists("dlg.FileName") Then '如果指定的文件存在
    FileSys.DeleteFile("dlg.FileName",2,2) '则彻底删除之
End If

刚建好的文件怎么删除不了呢？
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  29楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：105948 积分：538809 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/3/27 8:45:00 [只看该作者]

文件打开了吧

 回到顶部
帅哥哟，离线，有人找我吗？
裴保民
 小大  30楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1989 积分：12631 威望：0 精华：0 注册：2017/4/3 15:01:00 		  发帖心情 Post By：2020/3/27 8:58:00 [只看该作者]

打开了下面的文件
Book.Save(ProjectPath & "按账户查账_" & Format(Date.Now,"yyyyMMdd HHmmss") & ".xls" ) 


    这个文件没打开Tables("按账户查账窗体_azhcxTable").SaveExcel(dlg.FileName, "按账户查账",flg.CellStyle=True )  
 回到顶部
总数 32 上一页 1 2 3 4 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.07031 秒, 4 次数据查询