excelvba打印代码大全 PrintOut方法的语法如下： PrintOut(From,To,Copies,Preview,ActivePrinter,PrintToFile,Collate,PrToFileName,IgnorePrintAreas) 说明： 所有参数均可选。使用适当的参数指定打印机、份数、逐份打印以及是否需要打印预览。使用参数PrintToFile和参数PrToFileName将工作表打印到文件。参数From和参数To用于指定打印的页码范围。 参数From指定开始打印的页码。如果忽略，则从头开始打印。 参数To指定最后打印的页码。如果忽略，则打印到最后一页。 参数Copies指定要打印的份数。如果忽略，则只打印1份。 参数Preview指定打印前是否要预览打印效果。设置为True则打印预览；设置为False（默认值）则直接打印。 参数ActivePrinter设置当前打印机的名称。 参数PrintToFile设置为True，将打印到文件。如果没有指定参数PrToFileName，将提示用户输入要输出的文件名。 参数Collate设置为True将逐份打印。 参数PrToFileName在参数PrintToFile设置为True时指定想要打印到文件的名称。 参数IgnorePrintAreas设置为True将忽略打印区域，打印整份文档。 示例1：实现逐行批量打印 如下图所示的工作表，除表头的第1行不变外，从第2行开始逐条打印记录。 代码如下： 说明： PrintOut方法只打印工作表中的可见行。因此，将要打印的行逐条显示，同时隐藏不需要打印的行，从而实现逐条打印。 示例2：只打印奇数页 下面是一段简单的小程序，可以只打印奇数页。 Sub PrintOddPages() Dim k As Integer k = 1 Do While (k < 800) ActiveSheet.PrintOut From:=k, to:=k k = k + 2 Loop End Sub 本文来源：https://www.wddqw.com/doc/f018d33a5bfb770bf78a6529647d27284b733725.html