我想打印flexgrid的报表内容,用excel读出来,但打印却没有表格和标题,怎么用函数写标题和画表格呀?
解决方案 »
- SQL导出EXCEL,,但是打开EXCEL时会同时出现好几个新的\空的工作薄,不知道是怎么回事?如何解决?谢谢!
- 问个问题:vb6操作windows服务的(打开,关闭)某个服务的API是哪个?
- vb自带数据报表控件的奇怪问题
- 请问:怎样把汉字存为图片????
- 小问题,别笑话我!
- 我想做一进度条,在处理数据时显示进度,但不知何时处理完成,怎样根据文件大小确定最大值
- vb 模拟 数字键操作
- 100分请你给一个正确答案
- 各位大侠有理了。老板要我作一个多媒体演示系统,谁可以向我提供一点源代码啊!或者思路也行啊。
- 请问VB是怎样把工程文件编译成EXE文件的?用到哪个文件?
- 在线求助诸位前辈关于如何捕捉鼠标离开某一控件的问题(制作ActiveX控件)
- 如何使多行文本框在用程序添加内容时,总能使用户看到添加的内容(即滚动条始终处于最下端)?
'罫線
With .Range("A5:" & strColRow)
' .WrapText = True '折り返し
.Borders(xlDiagonalDown).LineStyle = xlNone
.Borders(xlDiagonalUp).LineStyle = xlNone
With .Borders(xlEdgeLeft) '左罫線を書く
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With .Borders(xlEdgeTop) '上罫線を書く
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With .Borders(xlEdgeBottom) '下罫線を書く
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With .Borders(xlEdgeRight) '右罫線を書く
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With .Borders(xlInsideVertical) '縦罫線を書く
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With .Borders(xlInsideHorizontal) '横罫線を書く
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
End With
With ActiveSheet.PageSetup
.LeftHeader = "头"
'OR .CenterHeader = "头"
'OR .RightHeader = "头"
End With