Dim xlApp As Excel.Application '定义EXCEL类 Dim xlBook As Excel.Workbook '定义工件簿类 Dim xlsheet As Excel.Worksheet '定义工作表类 Set xlApp = CreateObject("Excel.Application") '创建EXCEL应用类 xlApp.Visible = True '设置EXCEL可见 'Set xlBook = xlApp.Workbooks.Open("D:/temp/bb.xls") '打开EXCEL工作簿 Set xlBook = xlApp.Workbooks.Add Set xlsheet = xlBook.Worksheets(1) '打开EXCEL工作表 xlsheet.Activate '激活工作表 xlsheet.Cells(1, 1) = "第一个单元格" xlsheet.Cells(2, 2) = "第二个单元格" xlsheet.Range("A1:E7").Copy '拷贝区域 xlsheet.Range("A33").PasteSpecial xlPasteValues, xlPasteSpecialOperationNone, False, True '粘贴区域 xlsheet.PageSetup.CenterHeader = "标题头" '标题头 xlsheet.PageSetup.CenterFooter = "&""楷体_GB2312,常规""&10第&P页 共&N页" '页脚中心 xlsheet.PageSetup.LeftFooter = "&""楷体_GB2312,常规""&10制表日期:" '页脚左边 xlsheet.PageSetup.RightFooter = "&""楷体_GB2312,常规""&10制表人:" '页脚右边 xlsheet.PageSetup.PrintTitleRows = "$1:$3" '锁定 xlsheet.Cells.EntireColumn.AutoFit '自动调整列宽 xlsheet.PageSetup.Orientation = xlLandscape '设置打印方向 xlsheet.PrintPreview '打印预览 Set xlApp = Nothing Set xlBook = Nothing Set xlsheet = Nothing
vb 用excel打印
最新推荐文章于 2021-07-18 07:37:17 发布