作者：乔山办公网日期：
返回目录：excel表格制作
打印Frame1内容之前，先将Form1的窗口宽度高度调整剩知下Frame1。或是Frame1放大与窗口同道大小。或隐藏控件后再开始打印专。VB一直就没支持打印数据的属功能，它有个外部支持程序叫 CrystalReport 专门打印报表数据的，找度娘问一下吧（我就觉得它也不好使）。
xlsSheet.PageSetup.Orientation=xlLandscape '横向打印
xlsSheet.PageSetup.Orientation=xlPortrait '纵向打印
Application.ActivePrinter = "打印机知名称 Ne0X:"
如："HP LaserJet *** 在 Ne0?:"，在打印机名称与Ne0X间有空格
打印机名在打印对话框中的“名称”项，“道在 Ne0X:"的X是添加打印机的序号，由版0开始。
在打印机名称下拉选择框中，最下权边的一个为0，向上依次为：1、2、3...
即Ne00:、Ne01:、Ne02:等
具体设置参数如下：
sub dayin()
Application.ActiveSheet.PrintOut copies:=1
end sub
这是打印当前的工作表 打印一份
如果是打印当前工作薄中的工作表
Excel.ActiveWorkBook.PrintOut(1,Excel.WorkSheets.count,1,.T.) 带参数的打印
参数说明：共四个参数
参数1-数值：e799bee5baa6e997aee7ad94e4b893e5b19e332当前工作簿中进行打印的起始工作表号(默认1)参数2-数值：当前工作簿中进行打印的结束工作表号(默认最末)
参数3-数值：打印份数(默认1)
参数4-逻辑值：是预览打印还是直接打印：.T.-预览打印，.F.-直接打印(默认.F.)
Excel.ActiveSheet.PrintOut()
参数说明：共八个参数
参数1-数值：起始页号，省略则默认为开始位置参数2-数值：终止页号，省略则默认为最后一页
参数3-数值：打印份数，省略则默认为1份
参数4-逻辑值：是否预览，省略则默认为直接打印(.F.)
参数5-字符值：设置活动打印机名称，省略则为默认打印机
参数6-逻辑值：是否输出到文件，省略则默认为否(.F.)，若选.T.且参数8为空，则Excel提示输入要输出的文件名
参数7-逻辑值：输出类型，省略则默认为(.T.)逐份打印，否则逐页打印
参数8-字符值：当参数6为.T.时，设置要打印到的文件名
Excel.ActiveSheet.PrintOut(1,3,6,.F.,"MyPrinter",.F.,.T.,,) 从1页打印到3页，打印6份，通过MyPrinter打印机来打印，并且，要逐份打印。