打印指定份数的报表

时　间:2014-12-29 14:24:19
作　者:大蒜头   ID：2557  城市：南京
摘　要:因仓存管理需要批量打印条形码（每一件入库产品都需要张贴），因此，最近查看了网站上的很多实例，发现没有很好的解决办法。无意中接触到VBA中的printout命令，使用后发现相当实用啊！简要整理一下，留个脚印，给各位同仁分享、借鉴。
正　文:

因仓存管理需要批量打印条形码（每一件入库产品哦度需要张贴），因此，最近查看了很多网站的实例，发现没有很好的解决办法。无意中接触到VBA中的printout命令，使用后发现相当实用啊！简要整理一下，留个脚印，给各位同仁分享、借鉴。

一、VBA帮助中的printOut详解

在 Visual Basic 中，PrintOut 方法执行 PrintOut 操作。

expression.PrintOut(PrintRange, PageFrom, PageTo, PrintQuality, Copies, CollateCopies)

expression      必需。返回“应用于”列表中的一个对象的表达式。

PrintRange   可选 AcPrintRange。

PageFrom     可选 Variant 型。数值表达式，表示活动的窗体或数据表中的有效页码。如果 printrange    参数指定为 acPages，则必需设置该参数。

PageTo     可选 Variant 型。数值表达式，表示活动窗体或数据表中的有效页码。如果 printrange    参数指定为 acPages，则必须设置该参数。

PrintQuality   可选 AcPrintQuality。

Copies     可选 Variant 型。如果将该参数留空，将采用默认值 (1)。

CollateCopies     可选 Variant 型。使用 True (–1) 可以自动分页，使用 False (0) 可以打印而不自动分页。如果将该参数留空，将采用默认值 (True)。

说明

有关该操作及其参数如何使用的详细信息，请参阅该操作的主题。

语法中的可选参数允许留空，但是必须包含参数的逗号。如果将有一个或多个位于末端的参数留空，在指定的最后一个参数后面不需使用逗号。

示例

下面的示例将活动窗体或表的前四页打印两份。

DoCmd.PrintOut acPages, 1, 4, , 2

    Dim InStockQty As Integer                                           '设置InstockQty数据类型

    InStockQty= DLookup("[FAuxQty]", "tbl_ICStockBillEntry", "[FbillNO]='" & selectstr & "'")                '表中查找InstockQty（入库数量）值

    DoCmd.PrintOut acPages, , , acMedium, InStockQty       '打印与入库数量相等的标签（指定份数）

    DoCmd.Close acReport, "rpt_ICStockBill"                       '关闭当前活动的报表