我现在已经用vb把数据库里的数据成功导入到了excel模板中去,并显示出来。
请问如何用vb在代码中提前设定这个excel文件的
1、打印纸张(A4)以及打印方向(横向or纵向)
2、等比缩放到打印纸张大小
3、页边距
4、如何清除excel的某个范围里的内容:
比方说我要清除(清空).Range(.Cells(5, 1), .Cells(.UsedRange.Rows.Count, .UsedRange.Columns.Count))里的所有数据,该如何清除。
哈哈,谢谢大家。
请问如何用vb在代码中提前设定这个excel文件的
1、打印纸张(A4)以及打印方向(横向or纵向)
2、等比缩放到打印纸张大小
3、页边距
4、如何清除excel的某个范围里的内容:
比方说我要清除(清空).Range(.Cells(5, 1), .Cells(.UsedRange.Rows.Count, .UsedRange.Columns.Count))里的所有数据,该如何清除。
哈哈,谢谢大家。
解决方案 »
- 想要一个VB 6 的串口控件,但不是MSComm,谢谢
- 关于oracle的addnew问题,大家看看
- 代理服务器的问题
- 请问.cls与.bas有什么区别呀!
- 如何在SSTab控件的第二个Tab上显示新增加frame控件?
- Time的問題:請教各位高手
- 请问如何使用 ExitWindowsEx 进行各种操作?
- vb应用程序运行问题?高手请进!
- 急!!!今天去应聘,成功了!公司要求我做一份公司网站策划书!请问各位高手如何策划好一个企业网站呀!100分相送
- 急,急急,急急急...............!!!!!我只有今天晚上的时间了!!!
- vb如何操作word文档
- 大循环导致cpu100%如何解决
Sub 设置纸张()
'
' 设置纸张 Macro
' 宏由 USER 录制,时间: 2008-12-29
''
With ActiveSheet.PageSetup
.PrintTitleRows = ""
.PrintTitleColumns = ""
End With
ActiveSheet.PageSetup.PrintArea = ""
With ActiveSheet.PageSetup
.LeftHeader = ""
.CenterHeader = ""
.RightHeader = ""
.LeftFooter = ""
.CenterFooter = ""
.RightFooter = ""
.LeftMargin = Application.InchesToPoints(0.75)
.RightMargin = Application.InchesToPoints(0.75)
.TopMargin = Application.InchesToPoints(1)
.BottomMargin = Application.InchesToPoints(1)
.HeaderMargin = Application.InchesToPoints(0.5)
.FooterMargin = Application.InchesToPoints(0.5)
.PrintHeadings = False
.PrintGridlines = False
.PrintComments = xlPrintNoComments
.PrintQuality = 200
.CenterHorizontally = False
.CenterVertically = False
.Orientation = xlLandscape
.Draft = False
.PaperSize = xlPaperA4
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.BlackAndWhite = False
.Zoom = 100
.PrintErrors = xlPrintErrorsDisplayed
End With
End Sub
哈哈,thank all the same.
基础上excle中按F1查一下,再google一下
程序中用 Application.Workbooks.Add 新建工作簿时,参数就用上面保存的这个 .xlt 文件,所有内容都从模板继承,也不需要清空数据了。
在 Excel 中新建空白工作簿,只留一个工作表,设好纸张、打印方向、页边距等,如果有固定的标题、列头等也预先设好,数据留空,另存为“模板(*.xlt)”。
程序中用 Application.Workbooks.Add 新建工作簿时,参数就用上面保存的这个 .xlt 文件,所有内容都从模板继承,也不需要清空数据了。
但是,其它的excel都被修改到这个格式。不如做一个空白表格,吧格式设好,需要写数据时,打开这个模板,写好后,另存为。