EXCEL VBA 控件 打印问题

参数6-逻辑值：是否输出到文件，省略则默认为否(.F.)，若选.T.且参数8为空，则Excel提示输入要输出的文件名 参数7-逻辑值：输出类型，省略则默认为(.T.)逐份打印，否则逐页打印 参数8-字符值：当参数6为.T.时，设置要打印到的文件名 Excel.ActiveSheet.PrintOut(1,3,6,.F.,"MyPrinter",....

方法1：先用PrintArea设置打印区域，然后再打印。这种设置将会保存到EXCEL文件中。比如：Worksheets("Sheet1").PageSetup.PrintArea="$A$1:$C$5"Worksheets("Sheet1").PrintOut方法2：直接打印指定区域，而不修改打印区域设置。比如Worksheets("Sheet1").Range("$A$1:$C$5").PrintOut ...

一、设置打印区域 方法一：用PageSetup.PrintArea属性。代码如下：Sub SetPrintArea()Sheet1.PageSetup.PrintArea = "A1:F15"End Sub 上述代码将区域A1:F15设置为打印区域。如果要同时设置多个打印区域，可以将上述代码改为：Sub SetPrintArea()Sheet1.PageSetup.PrintArea = "A1:F15,A20:F45"End Sub 上...

你的表格本身设计不是很完美，对吧。为会么会出现空白页或只有表头页的情况呢。建议将空白行删除掉，以确保最后一页有数据。

你用的是WPS，我试了一下Office Excel 打开EXCEL，设定一些内容；点击开发者工具，录制宏。打开打印预览，勾选显示边距，关闭打印预览。运行宏，会直接到这个位置。按你的意思，要重新设置边距的话，就不是直接打印。

需要设置打印代码。在设置打印机代码下面添加一句。ActiveSheets.PrintOut Copies:=1

1、准备工作：点选【视图】菜单【工具栏】里面的【控件工具箱】2、添加按钮：打开sheet2表，点选【控件工具箱】中的“命令按钮”（默认为CommandButton1），把它放到sheet2的合适位置 3、按钮命名：在刚添加的命令按钮上点击鼠标右键，选【命令按钮 对象】下的【编辑】，然后全选CommandButton1字符，...

Set WhNetwork = CreateObject("WScript.Network")Set SPrinters = WhNetwork.EnumPrinterConnections 其中SPrinters即为打印机对象，可以调用其属性进行打印设置。

ctrl 键 然后 用鼠标 选择工作表 标签上 的sheet1 和sheet2 然后 打印预览……这样 就可以 在一个预览界面 预览两个表的内容了 （当然 你需要翻页）excel 打印预览是 单页显示的……如果 你一定 要用 按钮 那么 你就顺着这个思路 来设置 你的代码 同时选中 这个两个 sheet 然后 打印预览……

如果一个工作簿中包含许多工作表，其中还有一些是隐藏的，我们可以用VBA代码来直接打印所有隐藏的工作表，而无需将它们取消隐藏。由于Excel无法打印隐藏的工作表，下面的代码先取消工作表的隐藏，打印之后再将其隐藏起来。将代码放入VBA编辑器的标准模块中运行。Sub PrintHiddenSheets()Dim wSheet As ...