Tom正在尝试创建一些宏代码,这些宏代码将根据在单元格中输入的值来控制要打印的份数。他为运输人员创建了一个输入表单,供打印包装内容标签使用。他希望能够使它们在单元格B11中输入需要打印的标签数量,然后再打印该数量。

这相对容易实现,具体取决于您要打印的内容。如果只想打印活动工作表的内容,则可以使用类似于以下的代码:

iNumCopies = Range("B11").Value If iNumCopies < 1 Then iNumCopies = 1 ActiveSheet.PrintOut Copies:=iNumCopies

如果您不想打印整个工作表,则只需稍微修改一下PrintOut语句即可。例如,以下示例假定要在范围A1:A5中打印“标签”:

Set MyRange = Range("A1:A5")

iNumCopies = Range("B11").Value If iNumCopies < 1 Then iNumCopies = 1 MyRange.PrintOut Copies:=iNumCopies

注意:

如果您想知道如何使用此页面(或_ExcelTips_网站上的任何其他页面)中描述的宏,我准备了一个特殊页面,其中包含有用的信息。

_ExcelTips_是您进行经济高效的Microsoft Excel培训的来源。

本技巧(3272)适用于Microsoft Excel 97、2000、2002和2003。可以在以下功能区中为Excel的功能区界面(Excel 2007及更高版本)找到本技巧的版本: