vb 用excel打印

来源：互联网发布：海银财富怎么样知乎编辑：程序博客网时间：2024/05/02 18:33

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.AddSet 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 = NothingSet xlBook = NothingSet xlsheet = Nothing