Access开发培训
网站公告
·Access专家课堂QQ群号:151711184    ·Access快速开发平台下载地址及教程    ·欢迎加入Access专家课堂微信群!    ·如何快速搜索本站文章|示例|资料    
您的位置: 首页 > 技术文章 > Access数据库-报表

打印指定份数的报表

时 间: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

AcPrintRange 可以是这些 AcPrintRange 常量之一:
acPages
acPrintAll 默认
acSelection

如果将该参数留空,将采用默认常量 (acPrintAll)。

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

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

PrintQuality   可选 AcPrintQuality

AcPrintQuality 可以是下列 AcPrintQuality 常量之一:
acDraft
acHigh 默认
acLow
acMedium

如果将该参数留空,将采用默认常量 (acHigh)。

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.OpenReport "rpt_ICStockBill", acViewPreview, , "入库单号='" & P_strFTimeID & "'"                '打开报表


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

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



Access软件网QQ交流群 (群号:54525238)       Access源码网店

常见问答:

技术分类:

相关资源:

专栏作家

关于我们 | 服务条款 | 在线投稿 | 友情链接 | 网站统计 | 网站帮助